|
@@ -74,6 +74,11 @@ function tmipseltypeconvnode.first_int_to_real: tnode;
|
|
var
|
|
var
|
|
fname: string[19];
|
|
fname: string[19];
|
|
begin
|
|
begin
|
|
|
|
+ if cs_fp_emulation in current_settings.moduleswitches then
|
|
|
|
+ begin
|
|
|
|
+ result:=inherited;
|
|
|
|
+ exit;
|
|
|
|
+ end;
|
|
{ converting a 64bit integer to a float requires a helper }
|
|
{ converting a 64bit integer to a float requires a helper }
|
|
if is_64bitint(left.resultdef) or
|
|
if is_64bitint(left.resultdef) or
|
|
is_currency(left.resultdef) then
|
|
is_currency(left.resultdef) then
|