paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 14:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix typos

Browse Source 
git-svn-id: trunk@8146 -
This commit is contained in:
peter 2007-07-23 07:54:58 +00:00
parent 585f9b09f4
commit 8d53e54e3e
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/inc/ctypes.pp
View File

@ -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:clongdouble) r:extended;inline;
operator := (const v:extended):r:clongdouble; 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:clongdouble) r:double;inline;
operator := (const v:double) r:clongdouble; 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;