When the following program is compiled with option -gl -Mdelphi
and executed, it results in
An unhandled exception occurred at $00000000 :
EAccessViolation : Access violation
without a stack trace or line numbers. How come? Is that a bug?
(If so, I will submit it as such.)
The problem remains when SysUtils is used as well.
This makes it very awkward to find the source of such unhandled exceptions.
(Something similar seems to happen with incorrect calls to Format.)
Is there any workaround?
Tom
--
program UnassignedProcedureBug;
{ compile with -gl -Mdelphi }
{ causes an unhandled exception (Access Violation) without stack trace }
uses
Classes;
type
TProcedure = procedure of object;
TMyClass = class(TObject)
public
FP: TProcedure;
procedure P;
end;
procedure TMyClass.P;
begin
writeln ( 'P called' )
end;
var
VMyClass: TMyClass;
begin
VMyClass := TMyClass.Create;
//VMyClass.FP := VMyClass.P; { with this assignment, it works }
VMyClass.FP; { this causes an Access Violation }
end.
--
E-MAIL: T.Verhoeff @ TUE.NL | Fac. of Math. & Computing Science
PHONE: +31 40 247 41 25 | Eindhoven University of Technology
FAX: +31 40 247 54 04 | PO Box 513, NL-5600 MB Eindhoven
http://www.win.tue.nl/~wstomv/ | The Netherlands
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
