paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed commented out code

Browse Source 
git-svn-id: branches/wasm@48273 -
This commit is contained in:
nickysn 2021-01-21 16:57:35 +00:00
parent 72abf6f472
commit aaf28ca259
1 changed files with 0 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
compiler/wasm32/hlcgcpu.pas
View File

@ -1794,50 +1794,6 @@ implementation
finishandval:=-1; finishandval:=-1;
if isload then result := a_get_local if isload then result := a_get_local
else result := a_set_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; end;
procedure thlcgwasm.resize_stack_int_val(list: TAsmList; fromsize, tosize: tdef; formemstore: boolean); procedure thlcgwasm.resize_stack_int_val(list: TAsmList; fromsize, tosize: tdef; formemstore: boolean);