Sfoglia il codice sorgente

* tai_const.getcopy: Check that 'sym' is assigned before trying to call its method. Mantis #24574.

git-svn-id: trunk@24836 -
sergei 12 anni fa
parent
commit
b9bbe8ba67
1 ha cambiato i file con 2 aggiunte e 1 eliminazioni
  1. 2 1
      compiler/aasmtai.pas

+ 2 - 1
compiler/aasmtai.pas

@@ -1693,7 +1693,8 @@ implementation
       begin
         getcopy:=inherited getcopy;
         { we need to increase the reference number }
-        sym.increfs;
+        if assigned(sym) then
+          sym.increfs;
         if assigned(endsym) then
           endsym.increfs;
       end;