瀏覽代碼

* removed a debug writeln, unfortunately commited by r15077

git-svn-id: trunk@15079 -
ivost 15 年之前
父節點
當前提交
6560ed87e9
共有 1 個文件被更改,包括 0 次插入1 次删除
  1. 0 1
      rtl/inc/objpas.inc

+ 0 - 1
rtl/inc/objpas.inc

@@ -632,7 +632,6 @@
           Getter.Data := Instance;
           if Assigned(IEntry) and Assigned(Instance) then
           begin
-            writeln(IEntry^.IType);
             case IEntry^.IType of
               etStandard:
                   Pointer(Obj) := PByte(instance)+IEntry^.IOffset;