Browse Source

* fix typos

git-svn-id: trunk@8146 -
peter 18 years ago
parent
commit
8d53e54e3e
1 changed files with 9 additions and 9 deletions
  1. 9 9
      rtl/inc/ctypes.pp

+ 9 - 9
rtl/inc/ctypes.pp

@@ -87,7 +87,7 @@ type
 {$ifdef longdouble_is_double}
 {$ifdef longdouble_is_double}
   clongdouble=double;
   clongdouble=double;
 {$else}
 {$else}
-  {$ifdef x86}
+  {$if defined(cpui386) or defined(cpux86_64)}
   {$define longdouble_assignment_overload_real80}
   {$define longdouble_assignment_overload_real80}
   clongdouble = packed record
   clongdouble = packed record
     value:extended;
     value:extended;
@@ -110,26 +110,26 @@ type
 
 
 
 
 {$ifdef longdouble_assignment_overload_real80}
 {$ifdef longdouble_assignment_overload_real80}
-operator := (const v:clongdouble):r:extended;
-operator := (const v:extended):r:clongdouble;
+operator := (const v:clongdouble) r:extended;inline;
+operator := (const v:extended) r:clongdouble;inline;
 {$endif}
 {$endif}
 
 
 {$ifdef longdouble_assignment_overload_real128}
 {$ifdef longdouble_assignment_overload_real128}
 {Non-x86 typically doesn't have extended. To be fixed once this changes.}
 {Non-x86 typically doesn't have extended. To be fixed once this changes.}
-operator := (const v:clongdouble) r:double;
-operator := (const v:double) r:clongdouble;
+operator := (const v:clongdouble) r:double;inline;
+operator := (const v:double) r:clongdouble;inline;
 {$endif}
 {$endif}
 
 
 implementation
 implementation
 
 
 {$ifdef longdouble_assignment_overload_real80}
 {$ifdef longdouble_assignment_overload_real80}
-operator := (const v:clongdouble) r:extended;inline;
+operator := (const v:clongdouble) r:extended;
 
 
 begin
 begin
   r:=v.value;
   r:=v.value;
 end;
 end;
 
 
-operator := (const v:extended) r:clongdouble;inline;
+operator := (const v:extended) r:clongdouble;
 
 
 begin
 begin
   r.value:=v;
   r.value:=v;
@@ -146,14 +146,14 @@ const r128_mantissa_ofs=2;
       r128_exponent_ofs=0;
       r128_exponent_ofs=0;
 {$endif}
 {$endif}
 
 
-operator := (const v:clongdouble) r:double;inline;
+operator := (const v:clongdouble) r:double;
 
 
 begin
 begin
   qword(r):=(qword(Pword(@v[r128_exponent_ofs])^) shl 52) or
   qword(r):=(qword(Pword(@v[r128_exponent_ofs])^) shl 52) or
             (Pqword(@v[r128_mantissa_ofs])^ shr 12);
             (Pqword(@v[r128_mantissa_ofs])^ shr 12);
 end;
 end;
 
 
-operator := (const v:double) r:clongdouble;inline;
+operator := (const v:double) r:clongdouble;
 
 
 begin
 begin
   Pword(@r[r128_exponent_ofs])^:=qword(v) shr 52;
   Pword(@r[r128_exponent_ofs])^:=qword(v) shr 52;