Explorar el Código

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

git-svn-id: trunk@24836 -
sergei hace 12 años
padre
commit
b9bbe8ba67
Se han modificado 1 ficheros con 2 adiciones y 1 borrados
  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;