Rename function to reset_all_default_types

This commit is contained in:
Margers 2024-10-04 09:10:42 +00:00 committed by Michael Van Canneyt
parent aeb17a48fc
commit 3e7d58bce7
2 changed files with 3 additions and 3 deletions

View File

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

View File

@ -1398,7 +1398,7 @@ interface
procedure get_tabledef(prefix:tinternaltypeprefix;countdef,elementdef:tdef;count:longint;packrecords:shortint;out recdef:trecorddef;out arrdef:tarraydef); 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; 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 implementation
@ -9580,7 +9580,7 @@ implementation
{$endif} {$endif}
end; end;
procedure set_default_types_nil; procedure reset_all_default_types;
{ Those class pointers have to be set to nil manually } { Those class pointers have to be set to nil manually }
{ after memory they point to have been released. } { after memory they point to have been released. }
{ Necessary strictly for Textmode IDE. } { Necessary strictly for Textmode IDE. }