diff options
Diffstat (limited to 'compiler/globals.pas')
| -rw-r--r-- | compiler/globals.pas | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/compiler/globals.pas b/compiler/globals.pas index cc0df4e2d8..af28bcc9af 100644 --- a/compiler/globals.pas +++ b/compiler/globals.pas @@ -84,23 +84,23 @@ interface treelogfilename = 'tree.log'; {$if defined(CPUARM) and defined(FPUFPA)} - MathQNaN : tdoublerec = (bytes : (0,0,252,255,0,0,0,0)); - MathInf : tdoublerec = (bytes : (0,0,240,127,0,0,0,0)); - MathNegInf : tdoublerec = (bytes : (0,0,240,255,0,0,0,0)); - MathPi : tdoublerec = (bytes : (251,33,9,64,24,45,68,84)); + MathQNaN : tcompdoublerec = (bytes : (0,0,252,255,0,0,0,0)); + MathInf : tcompdoublerec = (bytes : (0,0,240,127,0,0,0,0)); + MathNegInf : tcompdoublerec = (bytes : (0,0,240,255,0,0,0,0)); + MathPi : tcompdoublerec = (bytes : (251,33,9,64,24,45,68,84)); {$else} {$ifdef FPC_LITTLE_ENDIAN} - MathQNaN : tdoublerec = (bytes : (0,0,0,0,0,0,252,255)); - MathInf : tdoublerec = (bytes : (0,0,0,0,0,0,240,127)); - MathNegInf : tdoublerec = (bytes : (0,0,0,0,0,0,240,255)); - MathPi : tdoublerec = (bytes : (24,45,68,84,251,33,9,64)); - MathPiExtended : textendedrec = (bytes : (53,194,104,33,162,218,15,201,0,64)); + MathQNaN : tcompdoublerec = (bytes : (0,0,0,0,0,0,252,255)); + MathInf : tcompdoublerec = (bytes : (0,0,0,0,0,0,240,127)); + MathNegInf : tcompdoublerec = (bytes : (0,0,0,0,0,0,240,255)); + MathPi : tcompdoublerec = (bytes : (24,45,68,84,251,33,9,64)); + MathPiExtended : tcompextendedrec = (bytes : (53,194,104,33,162,218,15,201,0,64)); {$else FPC_LITTLE_ENDIAN} - MathQNaN : tdoublerec = (bytes : (255,252,0,0,0,0,0,0)); - MathInf : tdoublerec = (bytes : (127,240,0,0,0,0,0,0)); - MathNegInf : tdoublerec = (bytes : (255,240,0,0,0,0,0,0)); - MathPi : tdoublerec = (bytes : (64,9,33,251,84,68,45,24)); - MathPiExtended : textendedrec = (bytes : (64,0,201,15,218,162,33,104,194,53)); + MathQNaN : tcompdoublerec = (bytes : (255,252,0,0,0,0,0,0)); + MathInf : tcompdoublerec = (bytes : (127,240,0,0,0,0,0,0)); + MathNegInf : tcompdoublerec = (bytes : (255,240,0,0,0,0,0,0)); + MathPi : tcompdoublerec = (bytes : (64,9,33,251,84,68,45,24)); + MathPiExtended : tcompextendedrec = (bytes : (64,0,201,15,218,162,33,104,194,53)); {$endif FPC_LITTLE_ENDIAN} {$endif} @@ -963,7 +963,7 @@ implementation result := -1; end; - function convertdoublerec(d : tdoublerec) : tdoublerec;{$ifdef USEINLINE}inline;{$endif} + function convertdoublerec(d : tcompdoublerec) : tcompdoublerec;{$ifdef USEINLINE}inline;{$endif} {$ifdef CPUARM} var i : longint; |