paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 21:49:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed commented out debug code from TOmfObjData.writeReloc

Browse Source 
git-svn-id: trunk@30799 -
This commit is contained in:
nickysn 2015-05-04 16:24:28 +00:00
parent 8b41206ffd
commit 37840bc811
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ogomf.pas
View File

@ -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