more volatile

Author: fingolfin

src/streams.c

@@ -138,7 +138,7 @@ Obj READ_ALL_COMMANDS(Obj instream, Obj echo, Obj capture, Obj resultCallback)
     RequireInputStream("READ_ALL_COMMANDS", instream);
 
     // try to open the streams
-    TypInputFile input;
+    volatile TypInputFile input;
     if (!OpenInputStream(&input, instream, echo == True)) {
         return Fail;
     }
@@ -148,7 +148,7 @@ Obj READ_ALL_COMMANDS(Obj instream, Obj echo, Obj capture, Obj resultCallback)
         outstream = DoOperation2Args(ValGVar(GVarName("OutputTextString")),
                                      outstreamString, True);
     }
-    TypOutputFile output;
+    volatile TypOutputFile output;
     if (outstream && !OpenOutputStream(&output, outstream)) {
         CloseInput(&input);
         return Fail;
@@ -241,7 +241,7 @@ static Obj FuncREAD_COMMAND_REAL(Obj self, Obj stream, Obj echo)
     AssPlist(result, 1, False);
 
     // open the stream, read a command, and close it again
-    TypInputFile input;
+    volatile TypInputFile input;
     if (!OpenInputStream(&input, stream, echo == True)) {
         return result;
     }
@@ -413,7 +413,7 @@ Int READ_GAP_ROOT ( const Char * filename )
         Pr("#I  READ_GAP_ROOT: loading '%s' as GAP file\n", (Int)filename, 0);
     }
 
-    TypInputFile input;
+    volatile TypInputFile input;
     if (!OpenInput(&input, path))
         return 0;
 
@@ -454,7 +454,7 @@ static Obj FuncCALL_WITH_STREAM(Obj self, Obj stream, Obj func, Obj args)
     RequireOutputStream(SELF_NAME, stream);
     RequireSmallList(SELF_NAME, args);
 
-    TypOutputFile output;
+    volatile TypOutputFile output;
     if (!OpenOutputStream(&output, stream)) {
         ErrorQuit("CALL_WITH_STREAM: cannot open stream for output", 0, 0);
     }
@@ -698,7 +698,7 @@ static Obj PRINT_OR_APPEND_TO_FILE_OR_STREAM(Obj args, int append, int file)
     // first entry is the file or stream
     destination = ELM_LIST(args, 1);
 
-    TypOutputFile output;
+    volatile TypOutputFile output;
 
     // try to open the output and handle failures
     if (file) {
@@ -819,7 +819,7 @@ static Obj FuncAPPEND_TO_STREAM(Obj self, Obj args)
 */
 static Obj FuncREAD(Obj self, Obj inputObj)
 {
-    TypInputFile input;
+    volatile TypInputFile input;
     if (!OpenInputFileOrStream(SELF_NAME, &input, inputObj))
         return False;
 
@@ -866,12 +866,12 @@ static Obj FuncREAD_STREAM_LOOP(Obj self,
                         "must be a local variables bag "
                         "or the value 'false'");
 
-    TypInputFile input;
+    volatile TypInputFile input;
     if (!OpenInputStream(&input, instream, FALSE)) {
         return False;
     }
 
-    TypOutputFile output;
+    volatile TypOutputFile output;
     if (!OpenOutputStream(&output, outstream)) {
         res = CloseInput(&input);
         GAP_ASSERT(res);
@@ -946,7 +946,7 @@ static Obj FuncREAD_STREAM_LOOP(Obj self,
 */
 static Obj FuncREAD_AS_FUNC(Obj self, Obj inputObj)
 {
-    TypInputFile input;
+    volatile TypInputFile input;
     if (!OpenInputFileOrStream(SELF_NAME, &input, inputObj))
         return False;