paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-24 15:09:37 +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

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

@ -9,7 +9,7 @@ var
type type
tmyobject = object tmyobject = object
envbuf : jmp_buf; envbuf : jmp_buf;
i, j : integer; j : integer;
jmpresult : integer; jmpresult : integer;
constructor init; constructor init;
destructor done; destructor done;
@ -52,6 +52,8 @@ procedure tderivedobject.testlongjmp;
end; end;
procedure tderivedobject.testsetjmp; procedure tderivedobject.testsetjmp;
var
i : integer;
begin begin
j:=0; j:=0;
jmpresult:=setjmp(envbuf); jmpresult:=setjmp(envbuf);
@ -119,7 +121,10 @@ end.
{ {
$Log$ $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 * initial revision of longjmp/setjmp testing
} }