paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 16:10:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

[PATCH 38/83] wasm real constants

Browse Source 
From 6a799546a80d0b0a165edc9715e56e89139452a8 Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <skalogryz.lists@gmail.com>
Date: Mon, 16 Sep 2019 17:11:27 -0400

git-svn-id: branches/wasm@45915 -
This commit is contained in:
nickysn 2020-07-29 17:38:57 +00:00
parent 0275232f16
commit 791db81f8e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/wasm/nwasmcon.pas
View File

@ -150,7 +150,7 @@ implementation
*)
{*****************************************************************************
TJVMREALCONSTNODE
TWASMREALCONSTNODE
*****************************************************************************}
procedure twasmrealconstnode.pass_generate_code;
@ -158,7 +158,7 @@ implementation
location_reset(location,LOC_FPUREGISTER,def_cgsize(resultdef));
location.register:=hlcg.getfpuregister(current_asmdata.CurrAsmList,resultdef);
thlcgwasm(hlcg).a_loadfpu_const_stack(current_asmdata.CurrAsmList,resultdef,value_real);
//thlwasm(hlcg).a_load_stack_reg(current_asmdata.CurrAsmList,resultdef,location.register);
thlcgwasm(hlcg).a_load_stack_reg(current_asmdata.CurrAsmList,resultdef,location.register);
end;