mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-01 21:22:38 +02:00
abf89eea0d
(mantis #38492)
o since the macro lookups are recursive, "mac" will usually be nil
afterwards (unless we found an undefined macro)
git-svn-id: trunk@49160 -
(cherry picked from commit ff3f812d97)
14 lines
201 B
ObjectPascal
14 lines
201 B
ObjectPascal
{ %opt=-Sm -dmydefine:=false }
|
|
|
|
{$mode macpas}
|
|
{$setc def := mydefine}
|
|
program setcbug;
|
|
begin
|
|
{$ifc def}
|
|
writeln( 'mydefine is true')
|
|
halt(1);
|
|
{$elsec}
|
|
writeln( 'mydefine is false')
|
|
{$endc}
|
|
end.
|