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

* consolidated code

Browse Source
This commit is contained in:
florian 2024-10-21 23:04:25 +02:00
parent d01efd153c
commit a9f522c29d
1 changed files with 37 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/scanner.pas
View File

@ -2294,6 +2294,8 @@ type
begin begin
try_consume_nestedsym(srsym,srsymtable); try_consume_nestedsym(srsym,srsymtable);
if assigned(srsym) then if assigned(srsym) then
begin
MarkSymbolAsUsed(srsym);
case srsym.typ of case srsym.typ of
constsym: constsym:
begin begin
@ -2312,7 +2314,6 @@ type
begin begin
result.free; result.free;
result:=texprvalue.create_const(tconstsym(srsym)); result:=texprvalue.create_const(tconstsym(srsym));
MarkSymbolAsUsed(tconstsym(srsym));
end; end;
end; end;
enumsym: enumsym:
@ -2331,11 +2332,11 @@ type
begin begin
result.free; result.free;
result:=texprvalue.create_int(tenumsym(srsym).value); result:=texprvalue.create_int(tenumsym(srsym).value);
MarkSymbolAsUsed(tenumsym(srsym));
end; end;
end; end;
else else
MarkSymbolAsUsed(tconstsym(srsym)); ;
end;
end; end;
end end
{ the id must be belong to the set type } { the id must be belong to the set type }