paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 10:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* s128real type is not compatible with s80real

Browse Source
This commit is contained in:
peter 2003-12-01 18:43:31 +00:00
parent 7d9ec3978d
commit 1b0d0ca3c4
4 changed files with 23 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/aasmtai.pas
View File

@ -381,7 +381,7 @@ interface
{ Generates an extended float (128 bit real) } { Generates an extended float (128 bit real) }
tai_real_128bit = class(tai) tai_real_128bit = class(tai)
value : ts128real; value : ts128real;
constructor Create(_value : ts80real); constructor Create(_value : ts128real);
constructor ppuload(t:taitype;ppufile:tcompilerppufile);override; constructor ppuload(t:taitype;ppufile:tcompilerppufile);override;
procedure ppuwrite(ppufile:tcompilerppufile);override; procedure ppuwrite(ppufile:tcompilerppufile);override;
end; end;
@ -2188,7 +2188,10 @@ implementation
end. end.
{ {
$Log$ $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 * assembler readers OOPed
+ typed currency constants + typed currency constants
+ typed 128 bit float constants if the CPU supports it + typed 128 bit float constants if the CPU supports it

9
compiler/arm/cpuinfo.pas
View File

@ -37,8 +37,8 @@ Type
bestreal = double; bestreal = double;
ts32real = single; ts32real = single;
ts64real = double; ts64real = double;
ts80real = extended; ts80real = type extended;
ts128real = extended; ts128real = type extended;
ts64comp = comp; ts64comp = comp;
pbestreal=^bestreal; pbestreal=^bestreal;
@ -112,7 +112,10 @@ Implementation
end. end.
{ {
$Log$ $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 + first part of arm assembler reader
Revision 1.3 2003/11/07 15:58:32 florian Revision 1.3 2003/11/07 15:58:32 florian

9
compiler/i386/cpuinfo.pas
View File

@ -45,8 +45,8 @@ Type
ts32real = single; ts32real = single;
ts64real = double; ts64real = double;
ts80real = extended; ts80real = extended;
ts128real = extended; ts128real = type extended;
ts64comp = extended; ts64comp = type extended;
pbestreal=^bestreal; pbestreal=^bestreal;
@ -120,7 +120,10 @@ Implementation
end. end.
{ {
$Log$ $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 * assembler readers OOPed
+ typed currency constants + typed currency constants
+ typed 128 bit float constants if the CPU supports it + typed 128 bit float constants if the CPU supports it

9
compiler/sparc/cpuinfo.pas
View File

@ -38,8 +38,8 @@ type
ts32real = single; ts32real = single;
ts64real = double; ts64real = double;
ts80real = extended; ts80real = extended;
ts128real = extended; ts128real = type extended;
ts64comp = extended; ts64comp = type extended;
pbestreal=^bestreal; pbestreal=^bestreal;
{ possible supported processors for this target } { possible supported processors for this target }
@ -89,7 +89,10 @@ implementation
end. end.
{ {
$Log$ $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 + defintion of ts128real
+ globtype is needed in interface uses clause + globtype is needed in interface uses clause