Jelajahi Sumber

Rename function to reset_all_default_types

Margers 10 bulan lalu
induk
melakukan
3e7d58bce7
2 mengubah file dengan 3 tambahan dan 3 penghapusan
  1. 1 1
      compiler/parser.pas
  2. 2 2
      compiler/symdef.pas

+ 1 - 1
compiler/parser.pas

@@ -286,7 +286,7 @@ implementation
              unloaded_units:=nil;
            end;
          { Set default types to nil. At this point they are not valid class pointers. }
-         set_default_types_nil; 
+         reset_all_default_types; 
 
          { if there was an error in the scanner, the scanner is
            still assinged }

+ 2 - 2
compiler/symdef.pas

@@ -1398,7 +1398,7 @@ interface
     procedure get_tabledef(prefix:tinternaltypeprefix;countdef,elementdef:tdef;count:longint;packrecords:shortint;out recdef:trecorddef;out arrdef:tarraydef);
 
     function fileinfo_of_typesym_in_def(def:tdef;sym:tsym;out filepos:tfileposinfo):boolean;
-    procedure set_default_types_nil; {housekeeping for Textmode IDE sanity}
+    procedure reset_all_default_types; {housekeeping for Textmode IDE sanity}
 
 implementation
 
@@ -9580,7 +9580,7 @@ implementation
 {$endif}
       end;
 
-    procedure set_default_types_nil;
+    procedure reset_all_default_types;
     { Those class pointers have to be set to nil manually }
     { after memory they point to have been released.      }
     { Necessary strictly for Textmode IDE.                }