mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 20:29:23 +02:00
+ added fixing because first_in_to_real is now completely generic
This commit is contained in:
parent
e212fa90d5
commit
d175d7113f
@ -98,7 +98,10 @@ implementation
|
|||||||
inserttypeconv(left,u32bittype);
|
inserttypeconv(left,u32bittype);
|
||||||
firstpass(left);
|
firstpass(left);
|
||||||
end;
|
end;
|
||||||
result := inherited first_int_to_real;
|
result := nil;
|
||||||
|
if registersfpu<1 then
|
||||||
|
registersfpu:=1;
|
||||||
|
location.loc:=LOC_FPUREGISTER;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
@ -418,7 +421,10 @@ begin
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.21 2002-08-11 06:14:41 florian
|
Revision 1.22 2002-08-14 19:30:42 carl
|
||||||
|
+ added fixing because first_in_to_real is now completely generic
|
||||||
|
|
||||||
|
Revision 1.21 2002/08/11 06:14:41 florian
|
||||||
* fixed powerpc compilation problems
|
* fixed powerpc compilation problems
|
||||||
|
|
||||||
Revision 1.20 2002/08/10 17:15:31 jonas
|
Revision 1.20 2002/08/10 17:15:31 jonas
|
||||||
|
Loading…
Reference in New Issue
Block a user