Selaa lähdekoodia

[PATCH 38/83] wasm real constants

From 6a799546a80d0b0a165edc9715e56e89139452a8 Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <[email protected]>
Date: Mon, 16 Sep 2019 17:11:27 -0400

git-svn-id: branches/wasm@45915 -
nickysn 5 vuotta sitten
vanhempi
commit
791db81f8e
1 muutettua tiedostoa jossa 2 lisäystä ja 2 poistoa
  1. 2 2
      compiler/wasm/nwasmcon.pas

+ 2 - 2
compiler/wasm/nwasmcon.pas

@@ -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;