paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* disabled overloaded operators for non-x86 because they don't compile

Browse Source 
(the value is a packed array of bytes in this case, not a record)

git-svn-id: trunk@8231 -
This commit is contained in:
Jonas Maebe 2007-08-06 13:44:13 +00:00
parent 0e1357642e
commit 134427700b
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/ctypes.pp
View File

@ -136,6 +136,7 @@ operator <=(const c:clongdouble;const e:Extended) r:boolean;inline;
{Non-x86 typically doesn't have extended. To be fixed once this changes.}
operator := (const v:clongdouble) r:double;inline;
operator := (const v:double) r:clongdouble;inline;
{$ifdef dummy}
operator +(const e:Double;const c:clongdouble) r:Double;inline;
operator +(const c:clongdouble;const e:Double) r:Double;inline;
operator -(const e:Double;const c:clongdouble) r:Double;inline;
@ -154,6 +155,7 @@ operator >=(const e:Double;const c:clongdouble) r:boolean;inline;
operator >=(const c:clongdouble;const e:Double) r:boolean;inline;
operator <=(const e:Double;const c:clongdouble) r:boolean;inline;
operator <=(const c:clongdouble;const e:Double) r:boolean;inline;
{$endif dummy}
{$endif}
implementation
@ -288,6 +290,10 @@ begin
Pword(@r[r128_mantissa_ofs+12])^:=0;
end;
{$ifdef dummy}
// There is no record with a value field in this case
operator +(const e:Double;const c:clongdouble) r:Double;inline;
begin
r:=e+c.value;
@ -378,5 +384,6 @@ begin
r:=c.value<=e;
end;
{$endif}
{$endif}
end.