paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 23:30:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed powerpc32 compilation after r9331

Browse Source 
git-svn-id: trunk@9336 -
This commit is contained in:
Jonas Maebe 2007-11-26 11:14:07 +00:00
parent 26930be303
commit 2a767fc893
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/powerpc/agppcmpw.pas
View File

@ -759,8 +759,8 @@ interface
; ;
ait_section: ait_section:
begin begin
{if LasTSec<>sec_none then {if LastSecType<>sec_none then
AsmWriteLn('_'+target_asm.secnames[LasTSec]+#9#9'ENDS');} AsmWriteLn('_'+target_asm.secnames[LastSecType]+#9#9'ENDS');}
if tai_section(hp).sectype<>sec_none then if tai_section(hp).sectype<>sec_none then
begin begin
@ -780,7 +780,7 @@ interface
AsmLn; AsmLn;
AsmWriteLn(#9+secnames[tai_section(hp).sectype]+' '+cur_CSECT_name+cur_CSECT_class); AsmWriteLn(#9+secnames[tai_section(hp).sectype]+' '+cur_CSECT_name+cur_CSECT_class);
end; end;
LasTSec:=tai_section(hp).sectype; LastSecType:=tai_section(hp).sectype;
end; end;
ait_align: ait_align:
begin begin