Browse Source

fcl-passrc: fixed debugging

mattias 4 years ago
parent
commit
e69a192fb6
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/packages/fcl-passrc/src/pasresolver.pp

+ 1 - 1
compiler/packages/fcl-passrc/src/pasresolver.pp

@@ -6249,7 +6249,7 @@ procedure TPasResolver.FinishSubElementType(Parent: TPasElement; El: TPasType);
       begin
       begin
       List.Add(El);
       List.Add(El);
       end;
       end;
-    El.AddRef{$IFDEF CheckPasTreeRefCount}aID{$ENDIF};
+    El.AddRef{$IFDEF CheckPasTreeRefCount}(aID){$ENDIF};
     El.Parent:=NewParent;
     El.Parent:=NewParent;
   end;
   end;