|
@@ -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;
|
|
|
|