mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 01:59:28 +02:00
ff3f812d97
(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 -
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.
|