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

* typo error for tai_const_symbol_offset corrected

Browse Source
This commit is contained in:
pierre 1998-10-12 12:27:44 +00:00
parent 9ec2dfaf4a
commit 70ce00b6b0
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ag68kgas.pas
View File

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