Actually FPC 2.2 does not compile the code:
$ /cygdrive/c/FPC/2.2.0/bin/i386-win32/fpc.exe -Mmacpas crashes.p Free Pascal Compiler version 2.2.0 [2007/09/09] for i386 Copyright (c) 1993-2007 by Florian Klaempfl Target OS: Win32 for i386 Compiling crashes.p crashes.p(17,20) Error: Incompatible type for arg no. 2: Got "local E(SmallInt): Boolean", expected "<procedure variable type of function(SmallInt):Boolean;Regis ter>" crashes.p(24) Fatal: There were 1 errors compiling module, stopping Fatal: Compilation aborted Error: c:\FPC\2.2.0\bin\i386-win32\ppc386.exe returned an error exitcode (normal if you did not specify a source file to be compiled)
2008/4/3, Russell Whitaker russ@ashlandhome.net:
On Thu, 3 Apr 2008, Prof A Olowofoyeku (The African Chief) wrote:
On 3 Apr 2008 at 10:59, Régis Cridlig wrote:
Hello!
This short program compiles without a warning, but crashes at execution. The compiler is FPC 2.2 on the win32 platform.
^^^^^^^Hmmm, can you run FPC using gpc as the command? Anyway, program compiles and runs using latest gpc on linux platform.
Hope this helps Russ
program Crashes(input,output);
function B(l:integer):boolean; begin B:=true; end;
procedure Q(j:integer;function A(l:integer):boolean);
function E(l:integer):boolean; begin E := false end;begin if A(j) then Q(200,E); end;
begin Q(100,B); end.
This is the compiler command: $ gpc --classic-pascal -g -Wall crashes.p
Which GPC version are you using?