Quellcode durchsuchen

- removed debug writelns after r30800

git-svn-id: trunk@30802 -
nickysn vor 10 Jahren
Ursprung
Commit
b17087a645
1 geänderte Dateien mit 0 neuen und 2 gelöschten Zeilen
  1. 0 2
      compiler/ogomf.pas

+ 0 - 2
compiler/ogomf.pas

@@ -162,7 +162,6 @@ implementation
 
     procedure TOmfRelocation.BuildOmfFixup;
       begin
-        Writeln(typ, ' ', ObjSection<>nil, ' ', symbol<>nil);
         FreeAndNil(FOmfFixup);
         FOmfFixup:=TOmfSubRecord_FIXUP.Create;
         if ObjSection<>nil then
@@ -450,7 +449,6 @@ implementation
         objreloc: TOmfRelocation;
         symaddr: AWord;
       begin
-        Writeln(Reloctype);
         { RELOC_FARPTR = RELOC_ABSOLUTE+RELOC_SEG }
         if Reloctype=RELOC_FARPTR then
           begin