paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 14:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

Rename function to reset_all_default_types

Browse Source
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

2
compiler/parser.pas
View File

@ -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 }

4
compiler/symdef.pas
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);
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. }