浏览代码

- removed commented out debug code from TOmfObjData.writeReloc

git-svn-id: trunk@30799 -
nickysn 10 年之前
父节点
当前提交
37840bc811
共有 1 个文件被更改,包括 0 次插入7 次删除
  1. 0 7
      compiler/ogomf.pas

+ 0 - 7
compiler/ogomf.pas

@@ -423,13 +423,6 @@ implementation
         objreloc: TOmfRelocation;
         objreloc: TOmfRelocation;
         symaddr: AWord;
         symaddr: AWord;
       begin
       begin
-{        Write('writeReloc(', data, ',', len, ',');
-        if p<>nil then
-          write(p.Name)
-        else
-          write('nil');
-        Writeln(',',Reloctype,')');}
-
         { RELOC_FARPTR = RELOC_ABSOLUTE+RELOC_SEG }
         { RELOC_FARPTR = RELOC_ABSOLUTE+RELOC_SEG }
         if Reloctype=RELOC_FARPTR then
         if Reloctype=RELOC_FARPTR then
           begin
           begin