From 1b0d0ca3c4b570e58b169584ce15b9a8828aa682 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 1 Dec 2003 18:43:31 +0000
Subject: [PATCH]   * s128real type is not compatible with s80real

---
 compiler/aasmtai.pas       | 7 +++++--
 compiler/arm/cpuinfo.pas   | 9 ++++++---
 compiler/i386/cpuinfo.pas  | 9 ++++++---
 compiler/sparc/cpuinfo.pas | 9 ++++++---
 4 files changed, 23 insertions(+), 11 deletions(-)

diff --git a/compiler/aasmtai.pas b/compiler/aasmtai.pas
index fb4617495e..996dca2a3f 100644
--- a/compiler/aasmtai.pas
+++ b/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
diff --git a/compiler/arm/cpuinfo.pas b/compiler/arm/cpuinfo.pas
index 6f88729232..edc2e491be 100644
--- a/compiler/arm/cpuinfo.pas
+++ b/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
diff --git a/compiler/i386/cpuinfo.pas b/compiler/i386/cpuinfo.pas
index c3302c0dfa..a557d63862 100644
--- a/compiler/i386/cpuinfo.pas
+++ b/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
diff --git a/compiler/sparc/cpuinfo.pas b/compiler/sparc/cpuinfo.pas
index 7fee9b6166..53bde987ea 100644
--- a/compiler/sparc/cpuinfo.pas
+++ b/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