diff --git a/compiler/wasm32/hlcgcpu.pas b/compiler/wasm32/hlcgcpu.pas index e5a393b653..01d2bb4a81 100644 --- a/compiler/wasm32/hlcgcpu.pas +++ b/compiler/wasm32/hlcgcpu.pas @@ -1794,50 +1794,6 @@ implementation finishandval:=-1; if isload then result := a_get_local else result := a_set_local; - {case def2regtyp(def) of - R_INTREGISTER: - begin - size:=def.size; - case size of - 1,2,3,4: - if isload then - result:=a_i32_load - else - result:=a_i32_store; - 8: - if isload then - result:=a_i64_load - else - result:=a_i64_store; - else - internalerror(2011032814); - end; - end; - R_ADDRESSREGISTER: - if isload then - result:=a_i32_load - else - result:=a_i32_store; - R_FPUREGISTER: - begin - case tfloatdef(def).floattype of - s32real: - if isload then - result:=a_f32_load - else - result:=a_f32_store; - s64real: - if isload then - result:=a_f32_load - else - result:=a_f32_store - else - internalerror(2010120504); - end - end - else - internalerror(2010120502); - end;} end; procedure thlcgwasm.resize_stack_int_val(list: TAsmList; fromsize, tosize: tdef; formemstore: boolean);