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

* support writing of symbols with length 255

Browse Source
This commit is contained in:
Jonas Maebe 2003-12-09 20:09:09 +00:00
parent f66a3775c5
commit ccc9c93fc7
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/powerpc/agppcgas.pas
View File

@ -296,7 +296,12 @@ unit agppcgas;
end;
if (taicpu(hp).ops>0) and (taicpu(hp).oper[0]^.typ<>top_none) then
s:=s+getopstr_jmp(taicpu(hp).oper[0]^);
begin
{ first write the current contents of s, because the symbol }
{ may be 255 characters }
asmwrite(s);
s:=getopstr_jmp(taicpu(hp).oper[0]^);
end;
end
else
{ process operands }
@ -328,7 +333,10 @@ begin
end.
{
$Log$
Revision 1.37 2003-11-29 22:54:32 jonas
Revision 1.38 2003-12-09 20:09:09 jonas
* support writing of symbols with length 255
Revision 1.37 2003/11/29 22:54:32 jonas
* more ppc fixes, hello world works again under linuxppc
Revision 1.36 2003/11/29 18:17:26 jonas