Explorar o código

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

git-svn-id: trunk@24836 -
sergei %!s(int64=12) %!d(string=hai) anos
pai
achega
b9bbe8ba67
Modificáronse 1 ficheiros con 2 adicións e 1 borrados
  1. 2 1
      compiler/aasmtai.pas

+ 2 - 1
compiler/aasmtai.pas

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