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

* remove ppc code

Browse Source
This commit is contained in:
peter 2003-09-14 21:36:01 +00:00
parent dfd282aac6
commit 94b2de254f
1 changed files with 8 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/sparc/ncpucnv.pas
View File

@ -121,17 +121,10 @@ implementation
end;
procedure TSparctypeconvnode.second_real_to_real;
begin
inherited second_real_to_real;
{ work around bug in some powerpc processors where doubles aren't }
{ properly converted to singles }
if(tfloatdef(left.resulttype.def).typ = s64real)and
(tfloatdef(resulttype.def).typ = s32real)
then
{$WARNING FIXME what really should be done?}
exprasmlist.concat(taicpu.op_reg_reg(A_FADDs,location.register,location.register));
end;
procedure TSparctypeconvnode.second_real_to_real;
begin
inherited second_real_to_real;
end;
procedure TSparctypeconvnode.second_int_to_bool;
@ -258,7 +251,10 @@ begin
end.
{
$Log$
Revision 1.17 2003-06-04 20:59:37 mazen
Revision 1.18 2003-09-14 21:36:01 peter
* remove ppc code
Revision 1.17 2003/06/04 20:59:37 mazen
+ added size of destination in code gen methods
+ making g_overflowcheck declaration same as
ancestor's method declaration