paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 11:08:02 +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

73
compiler/scanner.pas
View File

@ -2294,48 +2294,49 @@ type
begin
try_consume_nestedsym(srsym,srsymtable);
if assigned(srsym) then
case srsym.typ of
constsym:
begin
{ const def must conform to the set type }
if (conform_to<>nil) and
(conform_to.typ=setdef) and
(tconstsym(srsym).constdef.typ=setdef) and
(compare_defs(tsetdef(tconstsym(srsym).constdef).elementdef,tsetdef(conform_to).elementdef,nothingn)<>te_exact) then
begin
MarkSymbolAsUsed(srsym);
case srsym.typ of
constsym:
begin
{ const def must conform to the set type }
if (conform_to<>nil) and
(conform_to.typ=setdef) and
(tconstsym(srsym).constdef.typ=setdef) and
(compare_defs(tsetdef(tconstsym(srsym).constdef).elementdef,tsetdef(conform_to).elementdef,nothingn)<>te_exact) then
begin
result.free;
result:=nil;
// TODO(ryan): better error?
Message(scan_e_error_in_preproc_expr);
end;
if result<>nil then
begin
result.free;
result:=nil;
// TODO(ryan): better error?
Message(scan_e_error_in_preproc_expr);
result:=texprvalue.create_const(tconstsym(srsym));
end;
if result<>nil then
begin
result.free;
result:=texprvalue.create_const(tconstsym(srsym));
MarkSymbolAsUsed(tconstsym(srsym));
end;
end;
enumsym:
begin
{ enum definition must conform to the set type }
if (conform_to<>nil) and
(conform_to.typ=setdef) and
(compare_defs(tenumsym(srsym).definition,tsetdef(conform_to).elementdef,nothingn)<>te_exact) then
end;
enumsym:
begin
{ enum definition must conform to the set type }
if (conform_to<>nil) and
(conform_to.typ=setdef) and
(compare_defs(tenumsym(srsym).definition,tsetdef(conform_to).elementdef,nothingn)<>te_exact) then
begin
result.free;
result:=nil;
// TODO(ryan): better error?
Message(scan_e_error_in_preproc_expr);
end;
if result<>nil then
begin
result.free;
result:=nil;
// TODO(ryan): better error?
Message(scan_e_error_in_preproc_expr);
result:=texprvalue.create_int(tenumsym(srsym).value);
end;
if result<>nil then
begin
result.free;
result:=texprvalue.create_int(tenumsym(srsym).value);
MarkSymbolAsUsed(tenumsym(srsym));
end;
end;
else
MarkSymbolAsUsed(tconstsym(srsym));
end;
else
;
end;
end;
end
{ the id must be belong to the set type }