paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 14:10:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* runtime check added

Browse Source
This commit is contained in:
peter 2003-01-31 22:18:08 +00:00
parent b809c662e4
commit b4f01df991
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/webtbs/tw2317.pp
View File

@ -13,7 +13,15 @@ Begin
Exit(TypeOf(Self));
End;
var
l : longint;
Begin
WriteLn(Longint(tObject.GetVMT()));
l:=Longint(tObject.GetVMT());
WriteLn('self in static: ',l);
if l<>0 then
begin
writeln('Error!');
halt(1);
end;
End.