paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 02:09:36 +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
try_consume_nestedsym(srsym,srsymtable);
if assigned(srsym) then
begin
MarkSymbolAsUsed(srsym);
case srsym.typ of
constsym:
begin
@ -2312,7 +2314,6 @@ type
begin
result.free;
result:=texprvalue.create_const(tconstsym(srsym));
MarkSymbolAsUsed(tconstsym(srsym));
end;
end;
enumsym:
@ -2331,11 +2332,11 @@ type
begin
result.free;
result:=texprvalue.create_int(tenumsym(srsym).value);
MarkSymbolAsUsed(tenumsym(srsym));
end;
end;
else
MarkSymbolAsUsed(tconstsym(srsym));
;
end;
end;
end
{ the id must be belong to the set type }