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

+ added WebAssembly invalid register check in op_reg when compiler is compiled with EXTDEBUG

Browse Source 
git-svn-id: branches/wasm@48177 -
This commit is contained in:
nickysn 2021-01-18 22:29:45 +00:00
parent ec7fbcb271
commit c8e130d525
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/wasm32/aasmcpu.pas
View File

@ -186,6 +186,10 @@ implementation
begin
inherited create(op);
ops:=1;
{$ifdef EXTDEBUG}
if getregtype(_op1)=R_INVALIDREGISTER then
InternalError(2021011901);
{$endif EXTDEBUG}
loadreg(0,_op1);
end;