- removed the 'savefull' parameter from tglobalstate.create

compiler/ctask.pas

@@ -150,7 +150,7 @@ end;
 procedure ttask_list.SaveState;
 begin
   if State=Nil then
-    State:=tglobalstate.Create(true)
+    State:=tglobalstate.Create
   else
     State.save(true);
 end;

compiler/globstat.pas

@@ -65,7 +65,7 @@ type
     old_debuginfo : tdebuginfo;
     old_scanner : tscannerfile;
     old_parser_file : string;
-    constructor create(savefull : boolean);
+    constructor create;
     destructor destroy; override;
     procedure clearscanner;
     class procedure remove_scanner_from_states(scanner : tscannerfile); static;
@@ -219,11 +219,11 @@ var
         end;
     end;
 
-    constructor tglobalstate.create(savefull: boolean);
+    constructor tglobalstate.create;
 
     begin
       addstate(self);
-      save(savefull);
+      save(true);
     end;
 
   destructor tglobalstate.destroy;

compiler/pmodules.pas

@@ -364,7 +364,7 @@ implementation
 
         { load_intern_types resets the scanner... }
         current_scanner.tempcloseinputfile;
-        state:=tglobalstate.create(true);
+        state:=tglobalstate.create;
         load_intern_types;
         state.restore(true);
         FreeAndNil(state);
@@ -725,7 +725,7 @@ implementation
       begin
         Result:=true;
         current_scanner.tempcloseinputfile;
-        state:=tglobalstate.create(true);
+        state:=tglobalstate.create;
         { Load the units }
         pu:=tused_unit(curr.used_units.first);
         while assigned(pu) do