diff options
Diffstat (limited to 'compiler/mips/ncpucnv.pas')
-rw-r--r-- | compiler/mips/ncpucnv.pas | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/compiler/mips/ncpucnv.pas b/compiler/mips/ncpucnv.pas index 3f9952fe4a..98dfba9688 100644 --- a/compiler/mips/ncpucnv.pas +++ b/compiler/mips/ncpucnv.pas @@ -71,8 +71,6 @@ uses *****************************************************************************} function tmipseltypeconvnode.first_int_to_real: tnode; -var - fname: string[19]; begin { converting a 64bit integer to a float requires a helper } if is_64bitint(left.resultdef) or @@ -87,7 +85,11 @@ begin if is_signed(left.resultdef) then inserttypeconv(left,s32inttype) else - inserttypeconv(left,u32inttype); + begin + inserttypeconv(left,u32inttype); + if (cs_create_pic in current_settings.moduleswitches) then + include(current_procinfo.flags,pi_needs_got); + end; firstpass(left); end; result := nil; |