|
@@ -403,9 +403,9 @@ unit ag68kgas;
|
|
|
AsmWrite(#9'.long'#9);
|
|
AsmWrite(#9'.long'#9);
|
|
|
AsmWritePChar(pai_const_symbol_offset(hp)^.name);
|
|
AsmWritePChar(pai_const_symbol_offset(hp)^.name);
|
|
|
if pai_const_symbol_offset(hp)^.offset>0 then
|
|
if pai_const_symbol_offset(hp)^.offset>0 then
|
|
|
- AsmWrite('+'+tostr(pai_const_symbol_offset(hp)^.offset)
|
|
|
|
|
|
|
+ AsmWrite('+'+tostr(pai_const_symbol_offset(hp)^.offset))
|
|
|
else if pai_const_symbol_offset(hp)^.offset<0 then
|
|
else if pai_const_symbol_offset(hp)^.offset<0 then
|
|
|
- AsmWrite(tostr(pai_const_symbol_offset(hp)^.offset)
|
|
|
|
|
|
|
+ AsmWrite(tostr(pai_const_symbol_offset(hp)^.offset));
|
|
|
AsmLn;
|
|
AsmLn;
|
|
|
end;
|
|
end;
|
|
|
ait_real_64bit : Begin
|
|
ait_real_64bit : Begin
|
|
@@ -678,7 +678,10 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.15 1998-10-12 12:20:43 pierre
|
|
|
|
|
|
|
+ Revision 1.16 1998-10-12 12:27:44 pierre
|
|
|
|
|
+ * typo error for tai_const_symbol_offset corrected
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.15 1998/10/12 12:20:43 pierre
|
|
|
+ added tai_const_symbol_offset
|
|
+ added tai_const_symbol_offset
|
|
|
for r : pointer = @var.field;
|
|
for r : pointer = @var.field;
|
|
|
* better message for different arg names on implementation
|
|
* better message for different arg names on implementation
|
pierre