Browse Source

* fix test for improved fpc_Val_SInt_ShortStr

florian 3 năm trước cách đây
mục cha
commit
62f1771121
1 tập tin đã thay đổi với 0 bổ sung8 xóa
  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.