Patch #614055: Support OpenVMS.

This commit is contained in:
Martin v. Löwis 2002-12-06 12:48:53 +00:00
parent 468742878f
commit 79acb9edfa
13 changed files with 528 additions and 7 deletions

View file

@ -693,8 +693,11 @@ open_exclusive(char *filename)
#ifdef O_BINARY
|O_BINARY /* necessary for Windows */
#endif
, 0666);
#ifdef __VMS
, 0666, "ctxt=bin", "shr=nil");
#else
, 0666);
#endif
if (fd < 0)
return NULL;
return fdopen(fd, "wb");