Преглед изворни кода

* remove packed used for nan records in the softfpu code, it served no purpose
* recordered files of nan records in the softfpu code

git-svn-id: trunk@23300 -

florian пре 12 година
родитељ
комит
f0487f8fde
1 измењених фајлова са 4 додато и 4 уклоњено
  1. 4 4
      rtl/inc/softfpu.pp

+ 4 - 4
rtl/inc/softfpu.pp

@@ -1698,9 +1698,9 @@ Internal canonical NaN format.
 -------------------------------------------------------------------------------
 *}
 TYPE
- commonNaNT = packed record
-   sign: flag;
+ commonNaNT = record
    high, low : bits32;
+   sign: flag;
  end;
 {*
 -------------------------------------------------------------------------------
@@ -2106,9 +2106,9 @@ end;
 | Internal canonical NaN format.
 *----------------------------------------------------------------------------*)
 type
- commonNANT = packed record
-  sign : flag;
+ commonNANT = record
   high, low : bits32;
+  sign : flag;
  end;
 
 (*----------------------------------------------------------------------------