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