paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 23:47:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

* pass on the "eval" state (whether or not subexpressions should be evaluated)

Browse Source 
when encountering a "(" in a preprocessor expression (broken after r25465,
    mantis #25296)

git-svn-id: trunk@26615 -
This commit is contained in:
Jonas Maebe 2014-01-29 19:26:12 +00:00
parent 2f741121e9
commit a6d28b5630
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/scanner.pas
View File

@ -1923,7 +1923,7 @@ type
else if current_scanner.preproc_token =_LKLAMMER then
begin
preproc_consume(_LKLAMMER);
result:=preproc_sub_expr(opcompare,true);
result:=preproc_sub_expr(opcompare,eval);
preproc_consume(_RKLAMMER);
end
else if current_scanner.preproc_token = _LECKKLAMMER then