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

git-svn-id: trunk@34972 -

tests/test/units/system/tjmp.pp

@@ -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!');