Browse Source

* removed a debug writeln, unfortunately commited by r15077

git-svn-id: trunk@15079 -
ivost 15 years ago
parent
commit
6560ed87e9
1 changed files with 0 additions and 1 deletions
  1. 0 1
      rtl/inc/objpas.inc

+ 0 - 1
rtl/inc/objpas.inc

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