$setc regression
Original Reporter info from Mantis: Adriaan van Os
-
Reporter name: Adriaan van Os
Original Reporter info from Mantis: Adriaan van Os
- Reporter name: Adriaan van Os
Description:
adriaan% cat setcbug.pas
{$mode macpas}
{$setc def := mydefine}
program setcbug;
begin
{$ifc def}
writeln( 'mydefine is true')
{$elsec}
writeln( 'mydefine is false')
{$endc}
end.
adriaan% /usr/local/lib/fpc/3.0.4/ppc386 setcbug -Sm -dmydefine:=false
Free Pascal Compiler version 3.0.4 [2017/11/26] for i386
Copyright (c) 1993-2017 by Florian Klaempfl and others
Target OS: Darwin for i386
Compiling setcbug.pas
Assembling (pipe) setcbug.s
Linking setcbug
11 lines compiled, 0.1 sec
adriaan% /usr/local/lib/fpc/3.2.0/ppc386 setcbug -Sm -dmydefine:=false
Free Pascal Compiler version 3.2.0 [2020/05/31] for i386
Copyright (c) 1993-2020 by Florian Klaempfl and others
Target OS: Darwin for i386
Compiling setcbug.pas
setcbug.pas(3,2) Error: Compile time expression: Wanted Boolean, Integer but got AnsiString at SETC
setcbug.pas(12) Fatal: There were 1 errors compiling module, stopping
Fatal: Compilation aborted
In other words, $setc doesn't work anymore with 3,2.0, where it did with 3.0.4.
Mantis conversion info:
- Mantis ID: 38492
- Version: 3.2.0
- Fixed in version: 3.3.1
- Fixed in revision: 38492 (#11ef1d17)