mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:28:14 +02:00
29 lines
387 B
ObjectPascal
29 lines
387 B
ObjectPascal
{ PAGE FAULT PROBLEM ... TEST UNDER DOS ONLY! Not windows... }
|
|
{ -Cr -g flags }
|
|
|
|
Program Test1;
|
|
|
|
uses
|
|
dpmiexcp;
|
|
type
|
|
myObject = object
|
|
constructor init;
|
|
procedure v;virtual;
|
|
end;
|
|
|
|
constructor myobject.init;
|
|
Begin
|
|
end;
|
|
|
|
procedure myobject.v;
|
|
Begin
|
|
WriteLn('Hello....');
|
|
end;
|
|
|
|
var
|
|
my: myobject;
|
|
Begin
|
|
my.init;
|
|
my.v;
|
|
end.
|