Browse Source

* fix test for improved fpc_Val_SInt_ShortStr

florian 3 years ago
parent
commit
62f1771121
1 changed files with 0 additions and 8 deletions
  1. 0 8
      tests/tbs/tb0336.pp

+ 0 - 8
tests/tbs/tb0336.pp

@@ -35,11 +35,7 @@ begin
      do_error(3);
    s:='2147483648';
    val(s,l,code);
-{$ifdef CPU64}
-   if code<>0 then
-{$else CPU64}
    if code=0 then
-{$endif CPU64}
      do_error(4);
    s:='-2147483648';
    val(s,l,code);
@@ -47,10 +43,6 @@ begin
      do_error(5);
    s:='-2147483649';
    val(s,l,code);
-{$ifdef CPU64}
-   if code<>0 then
-{$else CPU64}
    if code=0 then
-{$endif CPU64}
      do_error(6);
 end.