Browse Source

* fxed test for 80x86

Jonas Maebe 22 years ago
parent
commit
cca04655a6
1 changed files with 6 additions and 6 deletions
  1. 6 6
      tests/test/cg/tstr.pp

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

@@ -66,9 +66,9 @@ begin
   f := -1.12345;
   f := -1.12345;
 {$IFOPT E-}  
 {$IFOPT E-}  
   str(f,s);
   str(f,s);
-  if sizeof(f) = 10 then
+  if sizeof(extended) = 10 then
     check('-1.123450000000000E+000')
     check('-1.123450000000000E+000')
-  else if sizeof(f) = 8 then
+  else if sizeof(extended) = 8 then
     check('-1.12345000000000E+000')
     check('-1.12345000000000E+000')
   else
   else
     check('error, not yet implemented!!!!');
     check('error, not yet implemented!!!!');
@@ -249,9 +249,9 @@ begin
   f := -1.12345;
   f := -1.12345;
 {$IFOPT E-}  
 {$IFOPT E-}  
   str(f,s);
   str(f,s);
-  if sizeof(f) = 10 then
+  if sizeof(extended) = 10 then
     check('-1.123450000000000E+000')
     check('-1.123450000000000E+000')
-  else if sizeof(f) = 8 then
+  else if sizeof(extended) = 8 then
     check('-1.12345000000000E+000')
     check('-1.12345000000000E+000')
   else
   else
     check('error, not yet implemented!!!!');
     check('error, not yet implemented!!!!');
@@ -433,9 +433,9 @@ begin
   f := -1.12345;
   f := -1.12345;
 {$IFOPT E-}  
 {$IFOPT E-}  
   str(f,s);
   str(f,s);
-  if sizeof(f) = 10 then
+  if sizeof(extended) = 10 then
     check('-1.123450000000000E+000')
     check('-1.123450000000000E+000')
-  else if sizeof(f) = 8 then
+  else if sizeof(extended) = 8 then
     check('-1.12345000000000E+000')
     check('-1.12345000000000E+000')
   else
   else
     check('error, not yet implemented!!!!');
     check('error, not yet implemented!!!!');