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

* raise an internal error for unexpected subregister types in rgcpu.registertobasictype

Browse Source 
git-svn-id: branches/wasm@47717 -
This commit is contained in:
nickysn 2020-12-08 07:26:08 +00:00
parent dc5b78d5f0
commit 1a6f6f6054
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/wasm32/rgcpu.pas
View File

@ -324,19 +324,27 @@ implementation
begin
case getregtype(reg) of
R_INTREGISTER:
if getsubreg(reg)=R_SUBD then
registertobastype:=wbt_i32
else
registertobastype:=wbt_i64;
case getsubreg(reg) of
R_SUBD:
registertobastype:=wbt_i32;
R_SUBQ:
registertobastype:=wbt_i64;
else
internalerror(2020120801);
end;
R_ADDRESSREGISTER:
registertobastype:=wbt_i32;
R_FPUREGISTER:
if getsubreg(reg)=R_SUBFS then
registertobastype:=wbt_f32
else
registertobastype:=wbt_f64
case getsubreg(reg) of
R_SUBFS:
registertobastype:=wbt_f32;
R_SUBFD:
registertobastype:=wbt_f64;
else
internalerror(2020120802);
end;
else
internalerror(2010122912);
end;