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

* fix loop variable

Browse Source
This commit is contained in:
peter 2003-05-10 09:55:00 +00:00
parent f64d66fa48
commit 409e9c5606
1 changed files with 28 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
tests/test/units/system/tjmp.pp
View File

@ -4,54 +4,56 @@ program tjmp;
var
global_envbuf: jmp_buf;
type
type
tmyobject = object
envbuf : jmp_buf;
i, j : integer;
j : integer;
jmpresult : integer;
constructor init;
destructor done;
procedure testlongjmp;virtual;
procedure testsetjmp;virtual;
end;
end;
pderivedobject = ^tderivedobject;
pderivedobject = ^tderivedobject;
tderivedobject = object(tmyobject)
procedure testlongjmp; virtual;
procedure testsetjmp; virtual;
end;
end;
constructor tmyobject.init;
begin
end;
destructor tmyobject.done;
begin
end;
procedure tmyobject.testlongjmp;
begin
end;
procedure tmyobject.testsetjmp;
begin
end;
procedure tderivedobject.testlongjmp;
begin
longjmp(envbuf, 255);
end;
procedure tderivedobject.testsetjmp;
var
i : integer;
begin
j:=0;
jmpresult:=setjmp(envbuf);
@ -63,7 +65,7 @@ procedure tderivedobject.testsetjmp;
j:=j + 13;
if j = 13 then
self.testlongjmp;
end;
end;
end;
255 : WriteLn('Sucess!');
else
@ -78,8 +80,8 @@ procedure testlongjmp;
begin
longjmp(global_envbuf, 255);
end;
procedure testsetjmp;
var
i, j : integer;
@ -95,7 +97,7 @@ procedure testsetjmp;
j:=j + 13;
if j = 13 then
testlongjmp;
end;
end;
end;
255 : WriteLn('Sucess!');
else
@ -105,7 +107,7 @@ procedure testsetjmp;
end
end;
end;
var
pobj : pderivedobject;
begin
@ -119,7 +121,10 @@ end.
{
$Log$
Revision 1.1 2002-09-15 09:53:05 carl
Revision 1.2 2003-05-10 09:55:00 peter
* fix loop variable
Revision 1.1 2002/09/15 09:53:05 carl
* initial revision of longjmp/setjmp testing
}