浏览代码

* fix compile error

git-svn-id: trunk@6597 -
peter 18 年之前
父节点
当前提交
fcc873b202
共有 1 个文件被更改,包括 0 次插入16 次删除
  1. 0 16
      tests/tbs/tb0162.pp

+ 0 - 16
tests/tbs/tb0162.pp

@@ -75,20 +75,6 @@ begin
       doerror(8);
   end;
 
-  // The calculation will be done in int64 and
-  // give a rangecheck instead of a overflow
-  c := 0;
-  try
-    c := c-1;
-    doerror(9);
-  except
-    on erangecheck do
-      ;
-    else
-      doerror(10);
-  end;
-
-
   c := high(cardinal);
   try
     c := c+1;
@@ -125,7 +111,6 @@ begin
 {$endif CPU64}
 
 {$ifdef fpc}
-{$ifndef ver1_0}
 
   n := high(int64);
   try
@@ -226,7 +211,6 @@ begin
       doerror(32);
   end;
 
-{$endif ver1_0}
 {$endif fpc}
 
 End.