Browse Source

* fixed conversion from signed value to floats if the compiler is
compiled with a 1.0.x compiler

Jonas Maebe 22 years ago
parent
commit
2a3c6e0de5
1 changed files with 6 additions and 4 deletions
  1. 6 4
      compiler/powerpc/nppccnv.pas

+ 6 - 4
compiler/powerpc/nppccnv.pas

@@ -132,9 +132,7 @@ implementation
         signed, valuereg_is_scratch: boolean;
         signed, valuereg_is_scratch: boolean;
       begin
       begin
 {$ifdef VER1_0}
 {$ifdef VER1_0}
-        { the "and" is because 1.0.x will sign-extend the $80000000 to }
-        { $ffffffff80000000 when converting it to int64 (JM)           }
-        dummy1 := int64($80000000) and (int64($43300000) shl 32);
+        dummy1 := (int64(1) shl 31) or (int64($43300000) shl 32);
         dummy2 := int64($43300000) shl 32;
         dummy2 := int64($43300000) shl 32;
 {$endif VER1_0}
 {$endif VER1_0}
 
 
@@ -457,7 +455,11 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.40  2003-06-14 22:32:43  jonas
+  Revision 1.41  2003-08-09 15:28:29  jonas
+    * fixed conversion from signed value to floats if the compiler is
+      compiled with a 1.0.x compiler
+
+  Revision 1.40  2003/06/14 22:32:43  jonas
     * ppc compiles with -dnewra, haven't tried to compile anything with it
     * ppc compiles with -dnewra, haven't tried to compile anything with it
       yet though
       yet though