瀏覽代碼

* use $E switch to determine tests

carl 23 年之前
父節點
當前提交
061b179457
共有 1 個文件被更改,包括 3 次插入3 次删除
  1. 3 3
      tests/test/cg/tstr.pp

+ 3 - 3
tests/test/cg/tstr.pp

@@ -64,7 +64,7 @@ begin
 
 
   { for more in-depth tests of str_real, see ../tstreal[1,2].pp }
   { for more in-depth tests of str_real, see ../tstreal[1,2].pp }
   f := -1.12345;
   f := -1.12345;
-{$ifndef FPU_EMULATION}  
+{$IFOPT E-}  
   str(f,s);
   str(f,s);
   check('-1.123450000000000E+000');
   check('-1.123450000000000E+000');
 {$endif}  
 {$endif}  
@@ -242,7 +242,7 @@ begin
 
 
   { for more in-depth tests of str_real, see ../tstreal[1,2].pp }
   { for more in-depth tests of str_real, see ../tstreal[1,2].pp }
   f := -1.12345;
   f := -1.12345;
-{$ifndef FPU_EMULATION}  
+{$IFOPT E-}  
   str(f,s);
   str(f,s);
   check('-1.123450000000000E+000');
   check('-1.123450000000000E+000');
 {$endif}  
 {$endif}  
@@ -421,7 +421,7 @@ begin
 
 
   { for more in-depth tests of str_real, see ../tstreal[1,2].pp }
   { for more in-depth tests of str_real, see ../tstreal[1,2].pp }
   f := -1.12345;
   f := -1.12345;
-{$ifndef FPU_EMULATION}  
+{$IFOPT E-}  
   str(f,s);
   str(f,s);
   check('-1.123450000000000E+000');
   check('-1.123450000000000E+000');
 {$endif}  
 {$endif}