generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Under VMS, ftruncate should be available

Browse Source
This commit is contained in:
Bodo Möller 2000-01-23 22:02:34 +00:00
parent e84c2d2679
commit ce052b6c3b
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
crypto/rand/randfile.c
View File

@ -162,6 +162,13 @@ int RAND_write_file(const char *file)
ret+=i; ret+=i;
if (n <= 0) break; if (n <= 0) break;
} }
#ifdef VMS
/* We may have updated an existing file using mode "rb+",
* now remove any old extra bytes */
if (ret > 0)
ftruncate(fileno(out), ret);
#endif
fclose(out); fclose(out);
memset(buf,0,BUFSIZE); memset(buf,0,BUFSIZE);
err: err: