mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 20:28:14 +02:00
3d6d5145bf
+ accept string constants in preprocessor expressions, resolves #31246 git-svn-id: trunk@35432 -
14 lines
138 B
ObjectPascal
14 lines
138 B
ObjectPascal
program Project1;
|
|
const
|
|
|
|
text = '';
|
|
|
|
text2 = {$IF text <> ''}
|
|
asdf
|
|
{$ELSE}
|
|
'';
|
|
{$IFEND}
|
|
|
|
begin
|
|
end.
|