--- Merging r19791 into '.':

U    rtl/inc/softfpu.pp

# revisions: 19791
------------------------------------------------------------------------
r19791 | florian | 2011-12-09 22:34:09 +0100 (Fri, 09 Dec 2011) | 2 lines
Changed paths:
   M /trunk/rtl/inc/softfpu.pp

* fix to align float64 correctly

------------------------------------------------------------------------

git-svn-id: branches/fixes_2_6@19793 -

rtl/inc/softfpu.pp

@@ -147,8 +147,12 @@ TYPE
     high : qword;
   end;
 {$else}
-  float64 = packed record
-    high,low : bits32;
+  float64 = record
+      case byte of
+        1: (high,low : bits32);
+        // force the record to be aligned like a double
+        // else *_to_double will fail for cpus like sparc
+        2: (dummy : double);
   end;
 
   int64rec = packed record