瀏覽代碼

* Use "clongdouble" instead of "extended" in libc printf tests.

git-svn-id: trunk@31864 -
yury 10 年之前
父節點
當前提交
bbb1cae57f
共有 3 個文件被更改,包括 6 次插入6 次删除
  1. 2 2
      tests/test/cg/tprintf.pp
  2. 2 2
      tests/test/cg/tprintf2.pp
  3. 2 2
      tests/test/cg/tprintf3.pp

+ 2 - 2
tests/test/cg/tprintf.pp

@@ -4,7 +4,7 @@
 {$mode objfpc}
 {$mode objfpc}
 
 
 uses
 uses
-  strings;
+  strings, ctypes;
 
 
 {$ifdef FPC_HAS_TYPE_EXTENDED}
 {$ifdef FPC_HAS_TYPE_EXTENDED}
 {$define TEST_EXTENDED}
 {$define TEST_EXTENDED}
@@ -54,7 +54,7 @@ const
   s2 : pchar = 'next';
   s2 : pchar = 'next';
   si : single = 32.12;
   si : single = 32.12;
   d : double = 45.45;
   d : double = 45.45;
-  e : extended = 74.74;
+  e : clongdouble = 74.74;
   p : pchar = nil;
   p : pchar = nil;
   has_errors : boolean = false;
   has_errors : boolean = false;
 
 

+ 2 - 2
tests/test/cg/tprintf2.pp

@@ -4,7 +4,7 @@
 {$mode objfpc}
 {$mode objfpc}
 
 
 uses
 uses
-  strings;
+  strings, ctypes;
 
 
 {$ifdef FPC_HAS_TYPE_EXTENDED}
 {$ifdef FPC_HAS_TYPE_EXTENDED}
 {$define TEST_EXTENDED}
 {$define TEST_EXTENDED}
@@ -54,7 +54,7 @@ const
   s2 : pchar = 'next';
   s2 : pchar = 'next';
   si : single = 32.12;
   si : single = 32.12;
   d : double = 45.45;
   d : double = 45.45;
-  e : extended = 74.74;
+  e : clongdouble = 74.74;
   p : pchar = nil;
   p : pchar = nil;
   has_errors : boolean = false;
   has_errors : boolean = false;
 
 

+ 2 - 2
tests/test/cg/tprintf3.pp

@@ -5,7 +5,7 @@
 {$mode macpas}
 {$mode macpas}
 
 
 uses
 uses
-  strings, uprintf3;
+  strings, uprintf3, ctypes;
 
 
 {$ifdef FPC_HAS_TYPE_EXTENDED}
 {$ifdef FPC_HAS_TYPE_EXTENDED}
 {$define TEST_EXTENDED}
 {$define TEST_EXTENDED}
@@ -39,7 +39,7 @@ const
   s2 : pchar = 'next';
   s2 : pchar = 'next';
   si : single = 32.12;
   si : single = 32.12;
   d : double = 45.45;
   d : double = 45.45;
-  e : extended = 74.74;
+  e : clongdouble = 74.74;
   p : pchar = nil;
   p : pchar = nil;
   has_errors : boolean = false;
   has_errors : boolean = false;