Compilation raised exception internally - Error 217
Original Reporter info from Mantis: ravi
-
Reporter name: ravi dion
Original Reporter info from Mantis: ravi
- Reporter name: ravi dion
Description:
Free Pascal Compiler version 3.2.1-r48511 [2021/02/07] for x86_64
Error: Compilation raised exception internally
Fatal: Compilation aborted
An unhandled exception occurred at $000000000048F18A:
EAccessViolation: Access violation
$000000000048F18A ADDDEPENDENCY, line 917 of fmodule.pas
$0000000000647124 LOADUNITS, line 519 of pmodules.pas
$0000000000648516 PROC_UNIT, line 967 of pmodules.pas
$0000000000548B70 COMPILE, line 399 of parser.pas
$000000000053A84F LOADPPU, line 2133 of fppu.pas
$00000000006470F3 LOADUNITS, line 514 of pmodules.pas
$000000000064892B PROC_UNIT, line 1058 of pmodules.pas
$0000000000548B70 COMPILE, line 399 of parser.pas
$000000000053A84F LOADPPU, line 2133 of fppu.pas
$00000000006470F3 LOADUNITS, line 514 of pmodules.pas
$0000000000648516 PROC_UNIT, line 967 of pmodules.pas
$0000000000548B70 COMPILE, line 399 of parser.pas
$000000000053A84F LOADPPU, line 2133 of fppu.pas
$00000000006470F3 LOADUNITS, line 514 of pmodules.pas
$000000000064892B PROC_UNIT, line 1058 of pmodules.pas
$0000000000548B70 COMPILE, line 399 of parser.pas
$000000000053A84F LOADPPU, line 2133 of fppu.pas
make: *** [Makefile:30: prog] Error 217
Steps to reproduce:
Unfortunately it's a huge program and I wanted to add command line support and changed:
- before in prog.lpr:
uses console;
begin
ConsoleStart;
end.
- now which leads to compiler exception:
uses commandlineutil, console;
var
BinName: String;
i: Integer;
begin
BinName := ExtractFileName(ParamStr(0));
if ParamCount > 3 then
begin
for i := 1 to ParamCount do
begin
CmdLine := CmdLine + ParamStr(i) + ' ';
end;
CmdLine := Trim(CmdLine);
ParseCommandLine(BinName, CmdLine);
Exit;
end;
ConsoleStart;
end.
Additional information:
- mode Delphi
- it should also raise an error because CmdLine isn't defined but it doesn't do that either
- happens with -O3 -Xs
- happens with -O- -Xs
- happens with -O-
-> just happens every time -.-
Mantis conversion info:
- Mantis ID: 38451
- OS: Linux
- Version: 3.2.1
- Monitored by: » @CuriousKit (J. Gareth Moreton)