Ver Fonte

* fixed crash when compiling inlined procedures containing labels

git-svn-id: trunk@9804 -
Jonas Maebe há 17 anos atrás
pai
commit
1f1a43d7f0
1 ficheiros alterados com 4 adições e 1 exclusões
  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);