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

* bugfix for generic calls to FPU emulation code

Browse Source
This commit is contained in:
carl 2003-02-15 22:20:14 +00:00
parent 236a807071
commit ff5cc80fcd
1 changed files with 21 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
compiler/nadd.pas
View File

@ -1552,40 +1552,40 @@ implementation
exit; exit;
case nodetype of case nodetype of
addn : procname := 'fpc_float32_add'; addn : procname := 'fpc_single_add';
muln : procname := 'fpc_float32_mul'; muln : procname := 'fpc_single_mul';
subn : procname := 'fpc_float32_sub'; subn : procname := 'fpc_single_sub';
slashn : procname := 'fpc_float32_div'; slashn : procname := 'fpc_single_div';
ltn : procname := 'fpc_float32_lt'; ltn : procname := 'fpc_single_lt';
lten: procname := 'fpc_float32_le'; lten: procname := 'fpc_single_le';
gtn: gtn:
begin begin
procname := 'fpc_float32_le'; procname := 'fpc_single_le';
notnode := true; notnode := true;
end; end;
gten: gten:
begin begin
procname := 'fpc_float32_lt'; procname := 'fpc_single_lt';
notnode := true; notnode := true;
end; end;
equaln: procname := 'fpc_float32_eq'; equaln: procname := 'fpc_single_eq';
unequaln : unequaln :
begin begin
procname := 'fpc_float32_eq'; procname := 'fpc_single_eq';
notnode := true; notnode := true;
end; end;
else else
CGMessage(type_e_mismatch); CGMessage(type_e_mismatch);
end; end;
{ otherwise, create the parameters for the helper } { convert the arguments (explicitely) to fpc_normal_set's }
right := ccallparanode.create(right,ccallparanode.create(left,nil)); result := ccallnode.createintern(procname,ccallparanode.create(right,
ccallparanode.create(left,nil)));
left:=nil; left:=nil;
right:=nil;
{ do we need to reverse the result } { do we need to reverse the result }
if notnode then if notnode then
result := cnotnode.create(ccallnode.createintern(procname,right)) result := cnotnode.create(result);
else
result := ccallnode.createintern(procname,right);
right := nil;
firstpass(result); firstpass(result);
end; end;
{$endif cpufpemu} {$endif cpufpemu}
@ -1931,7 +1931,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.80 2003-02-12 22:10:07 carl Revision 1.81 2003-02-15 22:20:14 carl
* bugfix for generic calls to FPU emulation code
Revision 1.80 2003/02/12 22:10:07 carl
* load_frame_pointer is now generic * load_frame_pointer is now generic
* change fpu emulation routine names * change fpu emulation routine names