浏览代码

* fixed crash when compiling inlined procedures containing labels

git-svn-id: trunk@9804 -
Jonas Maebe 17 年之前
父节点
当前提交
1f1a43d7f0
共有 1 个文件被更改,包括 4 次插入1 次删除
  1. 4 1
      compiler/ncgflw.pas

+ 4 - 1
compiler/ncgflw.pas

@@ -877,7 +877,10 @@ implementation
     function tcglabelnode.getasmlabel : tasmlabel;
       begin
         if not(assigned(asmlabel)) then
-          if labsym.nonlocal then
+          { labsym is not set in inlined procedures, but since assembler }
+          { routines can't be inlined, that shouldn't matter             }
+          if assigned(labsym) and
+             labsym.nonlocal then
             current_asmdata.getglobaljumplabel(asmlabel)
           else
             current_asmdata.getjumplabel(asmlabel);