Преглед на файлове

- the setter for tloadnode.procdef is not used, so remove it so that that tloadnode.setprocdef can be extended

Sven/Sarah Barth преди 1 година
родител
ревизия
feb79e0068
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      compiler/nld.pas

+ 1 - 1
compiler/nld.pas

@@ -78,7 +78,7 @@ interface
           procedure XMLPrintNodeData(var T: Text); override;
           procedure XMLPrintNodeData(var T: Text); override;
 {$endif DEBUG_NODE_XML}
 {$endif DEBUG_NODE_XML}
           procedure setprocdef(p : tprocdef);
           procedure setprocdef(p : tprocdef);
-          property procdef: tprocdef read fprocdef write setprocdef;
+          property procdef: tprocdef read fprocdef;
        end;
        end;
        tloadnodeclass = class of tloadnode;
        tloadnodeclass = class of tloadnode;