Browse Source

* leave unresolved branches in the asm output, when the compiler is compiled with -dEXTDEBUG

Nikolay Nikolov 3 years ago
parent
commit
9f077d4ac0
1 changed files with 8 additions and 3 deletions
  1. 8 3
      compiler/wasm32/cpupi.pas

+ 8 - 3
compiler/wasm32/cpupi.pas

@@ -480,9 +480,14 @@ implementation
                                (instr.oper[0]^.ref^.index<>NR_NO) or
                                (instr.oper[0]^.ref^.offset<>0) then
                               internalerror(2021102006);
-                            if instr.oper[0]^.ref^.symbol.nestingdepth=-1 then
-                              internalerror(2021102007);
-                            instr.loadconst(0,cur_nesting_depth-instr.oper[0]^.ref^.symbol.nestingdepth);
+                            if instr.oper[0]^.ref^.symbol.nestingdepth<>-1 then
+                              instr.loadconst(0,cur_nesting_depth-instr.oper[0]^.ref^.symbol.nestingdepth)
+                            else
+                              begin
+{$ifndef EXTDEBUG}
+                                internalerror(2021102007);
+{$endif EXTDEBUG}
+                              end;
                           end;
                       end;