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

* mark constant symbols used in preprocessor expressions as used, resolves #40108

Browse Source
This commit is contained in:
florian 2023-01-24 22:36:26 +01:00
parent 84e7a17b67
commit 8ef0f59025
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/scanner.pas
View File

@ -2134,11 +2134,13 @@ type
begin begin
result.free; result.free;
result:=texprvalue.create_const(tconstsym(srsym)); result:=texprvalue.create_const(tconstsym(srsym));
tconstsym(srsym).IncRefCount;
end; end;
enumsym: enumsym:
begin begin
result.free; result.free;
result:=texprvalue.create_int(tenumsym(srsym).value); result:=texprvalue.create_int(tenumsym(srsym).value);
// tconstsym(srsym).IncRefCount;
end; end;
else else
; ;

14
tests/webtbs/tw40108.pp Normal file
View File

@ -0,0 +1,14 @@
{ %opt=-Seh }
{ %norun }
program test;
const
TheVersion = 1;
begin
{$if TheVersion >= 1}
writeln('Version 1 or higher');
{$else}
writeln('Version < 1');
{$endif}
end.