Explorar o código

* fixed crash when compiling inlined procedures containing labels

git-svn-id: trunk@9804 -
Jonas Maebe %!s(int64=17) %!d(string=hai) anos
pai
achega
1f1a43d7f0
Modificáronse 1 ficheiros con 4 adicións e 1 borrados
  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);