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

* first_int_to_real moved to i386 (other one is generic)

Browse Source
This commit is contained in:
carl 2002-08-14 19:19:14 +00:00
parent 534f6b2468
commit ecb32b0ef0
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/i386/n386cnv.pas
View File

@ -40,6 +40,7 @@ interface
{ procedure second_pointer_to_array;override; } { procedure second_pointer_to_array;override; }
{ procedure second_chararray_to_string;override; } { procedure second_chararray_to_string;override; }
{ procedure second_char_to_string;override; } { procedure second_char_to_string;override; }
function first_int_to_real: tnode; override;
procedure second_int_to_real;override; procedure second_int_to_real;override;
{ procedure second_real_to_real;override; } { procedure second_real_to_real;override; }
{ procedure second_cord_to_pointer;override; } { procedure second_cord_to_pointer;override; }
@ -73,6 +74,16 @@ implementation
SecondTypeConv SecondTypeConv
*****************************************************************************} *****************************************************************************}
function ti386typeconvnode.first_int_to_real : tnode;
begin
first_int_to_real:=nil;
if registersfpu<1 then
registersfpu:=1;
location.loc:=LOC_FPUREGISTER;
end;
procedure ti386typeconvnode.second_int_to_real; procedure ti386typeconvnode.second_int_to_real;
var var
@ -365,7 +376,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.47 2002-08-11 14:32:30 peter Revision 1.48 2002-08-14 19:19:14 carl
* first_int_to_real moved to i386 (other one is generic)
Revision 1.47 2002/08/11 14:32:30 peter
* renamed current_library to objectlibrary * renamed current_library to objectlibrary
Revision 1.46 2002/08/11 13:24:16 peter Revision 1.46 2002/08/11 13:24:16 peter