|
@@ -368,13 +368,15 @@ interface
|
|
|
Owner: TObjData;
|
|
Owner: TObjData;
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
-{$ifdef i8086}
|
|
|
|
|
|
|
+{$if defined(i8086)}
|
|
|
{ on i8086 we use a longint, to support 32-bit relocations as well (e.g.
|
|
{ on i8086 we use a longint, to support 32-bit relocations as well (e.g.
|
|
|
for allowing 386+ instructions with 32-bit addresses in inline asm code) }
|
|
for allowing 386+ instructions with 32-bit addresses in inline asm code) }
|
|
|
TRelocDataInt = longint;
|
|
TRelocDataInt = longint;
|
|
|
-{$else i8086}
|
|
|
|
|
|
|
+{$elseif defined(cpu16bitaddr)}
|
|
|
|
|
+ TRelocDataInt = asizeint;
|
|
|
|
|
+{$else}
|
|
|
TRelocDataInt = aint;
|
|
TRelocDataInt = aint;
|
|
|
-{$endif i8086}
|
|
|
|
|
|
|
+{$endif}
|
|
|
|
|
|
|
|
TObjData = class(TLinkedListItem)
|
|
TObjData = class(TLinkedListItem)
|
|
|
private
|
|
private
|
nickysn