paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 02:49:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

variable trashing: don't trash internal syms

Browse Source 
Since they're managed by the code generator, they should always be valid.
This commit is contained in:
Jonas Maebe 2022-07-26 21:50:03 +02:00
parent 0e9ea11859
commit 5012e45d04
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ngenutil.pas
View File

@ -889,6 +889,8 @@ implementation
begin begin
if not(tsym(p).typ in [localvarsym,paravarsym]) then if not(tsym(p).typ in [localvarsym,paravarsym]) then
exit; exit;
if sp_internal in tsym(p).symoptions then
exit;
maybe_trash_variable(stat^,tabstractnormalvarsym(p),cloadnode.create(tsym(p),tsym(p).owner)); maybe_trash_variable(stat^,tabstractnormalvarsym(p),cloadnode.create(tsym(p),tsym(p).owner));
end; end;