Prof A Olowofoyeku (The African Chief) wrote:
Works fine here, except that this (valid in Delphi) is still rejected: procedure foo (); begin end;
I see. I have updated the patch to accept the following:
program delfp; type pt = procedure (); ft = function () : integer; var a : pt; b : procedure (); c : ft; d : function () : integer;
function fi : integer; begin fi := 0 end; function fid () : integer; begin fid := 0 end; procedure p ; begin end; procedure pd (); begin end;
begin a := p; a := pd; b := p; b := pd; c := fi; c := fid; d := fi; d := fid; writeln('OK') end .
However, I do not know if the following is accepted by Delphi:
program delf101; procedure pi (i : integer); forward; procedure pi (); begin end; begin end .