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

* enable test to work also with small targets taking only a shortint as longjmp argument

Browse Source 
git-svn-id: trunk@34972 -
This commit is contained in:
florian 2016-11-26 18:42:15 +00:00
parent 0c238b72e5
commit bfb6d4d1b7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -48,7 +48,7 @@ procedure tmyobject.testsetjmp;
procedure tderivedobject.testlongjmp;
begin
longjmp(envbuf, 255);
longjmp(envbuf, 127);
end;
procedure tderivedobject.testsetjmp;
@ -67,7 +67,7 @@ procedure tderivedobject.testsetjmp;
self.testlongjmp;
end;
end;
255 : WriteLn('Sucess!');
127 : WriteLn('Success!');
else
begin
WriteLn('Failure!');
@ -78,7 +78,7 @@ procedure tderivedobject.testsetjmp;
procedure testlongjmp;
begin
longjmp(global_envbuf, 255);
longjmp(global_envbuf, 127);
end;
@ -99,7 +99,7 @@ procedure testsetjmp;
testlongjmp;
end;
end;
255 : WriteLn('Sucess!');
127 : WriteLn('Success!');
else
begin
WriteLn('Failure!');