paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 18:49:14 +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 begin
case getregtype(reg) of case getregtype(reg) of
R_INTREGISTER: R_INTREGISTER:
if getsubreg(reg)=R_SUBD then case getsubreg(reg) of
registertobastype:=wbt_i32 R_SUBD:
else registertobastype:=wbt_i32;
registertobastype:=wbt_i64; R_SUBQ:
registertobastype:=wbt_i64;
else
internalerror(2020120801);
end;
R_ADDRESSREGISTER: R_ADDRESSREGISTER:
registertobastype:=wbt_i32; registertobastype:=wbt_i32;
R_FPUREGISTER: R_FPUREGISTER:
if getsubreg(reg)=R_SUBFS then case getsubreg(reg) of
registertobastype:=wbt_f32 R_SUBFS:
else registertobastype:=wbt_f32;
registertobastype:=wbt_f64 R_SUBFD:
registertobastype:=wbt_f64;
else
internalerror(2020120802);
end;
else else
internalerror(2010122912); internalerror(2010122912);
end; end;