* s128real type is not compatible with s80real

compiler/aasmtai.pas

@@ -381,7 +381,7 @@ interface
        { Generates an extended float (128 bit real) }
        tai_real_128bit = class(tai)
           value : ts128real;
-          constructor Create(_value : ts80real);
+          constructor Create(_value : ts128real);
           constructor ppuload(t:taitype;ppufile:tcompilerppufile);override;
           procedure ppuwrite(ppufile:tcompilerppufile);override;
        end;
@@ -2188,7 +2188,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.55  2003-11-12 16:05:39  florian
+  Revision 1.56  2003-12-01 18:43:31  peter
+    * s128real type is not compatible with s80real
+
+  Revision 1.55  2003/11/12 16:05:39  florian
     * assembler readers OOPed
     + typed currency constants
     + typed 128 bit float constants if the CPU supports it

compiler/arm/cpuinfo.pas

@@ -37,8 +37,8 @@ Type
    bestreal = double;
    ts32real = single;
    ts64real = double;
-   ts80real = extended;
-   ts128real = extended;
+   ts80real = type extended;
+   ts128real = type extended;
    ts64comp = comp;
 
    pbestreal=^bestreal;
@@ -112,7 +112,10 @@ Implementation
 end.
 {
   $Log$
-  Revision 1.4  2003-11-17 23:23:47  florian
+  Revision 1.5  2003-12-01 18:43:32  peter
+    * s128real type is not compatible with s80real
+
+  Revision 1.4  2003/11/17 23:23:47  florian
     + first part of arm assembler reader
 
   Revision 1.3  2003/11/07 15:58:32  florian

compiler/i386/cpuinfo.pas

@@ -45,8 +45,8 @@ Type
    ts32real = single;
    ts64real = double;
    ts80real = extended;
-   ts128real = extended;
-   ts64comp = extended;
+   ts128real = type extended;
+   ts64comp = type extended;
 
    pbestreal=^bestreal;
 
@@ -120,7 +120,10 @@ Implementation
 end.
 {
   $Log$
-  Revision 1.19  2003-11-12 16:05:39  florian
+  Revision 1.20  2003-12-01 18:43:31  peter
+    * s128real type is not compatible with s80real
+
+  Revision 1.19  2003/11/12 16:05:39  florian
     * assembler readers OOPed
     + typed currency constants
     + typed 128 bit float constants if the CPU supports it

compiler/sparc/cpuinfo.pas

@@ -38,8 +38,8 @@ type
   ts32real = single;
   ts64real = double;
   ts80real = extended;
-  ts128real = extended;
-  ts64comp = extended;
+  ts128real = type extended;
+  ts64comp = type extended;
   pbestreal=^bestreal;
 
   { possible supported processors for this target }
@@ -89,7 +89,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.11  2003-11-28 13:09:07  mazen
+  Revision 1.12  2003-12-01 18:43:32  peter
+    * s128real type is not compatible with s80real
+
+  Revision 1.11  2003/11/28 13:09:07  mazen
   + defintion of ts128real
   + globtype is needed in interface uses clause