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

* merged some code which was ifdefed separately for POWERPC and POWERPC64 code but is equal

Browse Source 
git-svn-id: trunk@6383 -
This commit is contained in:
tom_at_work 2007-02-08 22:52:11 +00:00
parent 635117218e
commit 99bc1ccb75
3 changed files with 6 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/psub.pas
View File

@ -1021,12 +1021,9 @@ implementation
current_filepos:=exitpos; current_filepos:=exitpos;
gen_proc_symbol_end(templist); gen_proc_symbol_end(templist);
aktproccode.concatlist(templist); aktproccode.concatlist(templist);
{$ifdef POWERPC} {$if defined(POWERPC) or defined(POWERPC64)}
fixup_jmps(aktproccode); fixup_jmps(aktproccode);
{$endif POWERPC} {$endif}
{$ifdef POWERPC64}
fixup_jmps(aktproccode);
{$endif POWERPC64}
{ insert line debuginfo } { insert line debuginfo }
if (cs_debuginfo in current_settings.moduleswitches) or if (cs_debuginfo in current_settings.moduleswitches) or
(cs_use_lineinfo in current_settings.globalswitches) then (cs_use_lineinfo in current_settings.globalswitches) then

15
compiler/raatt.pas
View File

@ -245,7 +245,7 @@ unit raatt;
firsttoken:=true; firsttoken:=true;
exit; exit;
end; end;
{$ifdef POWERPC} {$if defined(POWERPC) or defined(POWERPC64)}
{ some PowerPC instructions can have the postfix -, + or . { some PowerPC instructions can have the postfix -, + or .
this code could be moved to is_asmopcode but I think this code could be moved to is_asmopcode but I think
it's better to ifdef it here (FK) it's better to ifdef it here (FK)
@ -258,19 +258,6 @@ unit raatt;
end end
end; end;
{$endif POWERPC} {$endif POWERPC}
{$ifdef POWERPC64}
{ some PowerPC instructions can have the postfix -, + or .
this code could be moved to is_asmopcode but I think
it's better to ifdef it here (FK)
}
case c of
'.', '-', '+':
begin
actasmpattern:=actasmpattern+c;
c:=current_scanner.asmgetchar;
end
end;
{$endif POWERPC64}
{ Opcode ? } { Opcode ? }
If is_asmopcode(upper(actasmpattern)) then If is_asmopcode(upper(actasmpattern)) then
Begin Begin

10
compiler/tgobj.pas
View File

@ -159,15 +159,11 @@ implementation
tempfreelist:=nil; tempfreelist:=nil;
templist:=nil; templist:=nil;
{ we could create a new child class for this but I don't if it is worth the effort (FK) } { we could create a new child class for this but I don't if it is worth the effort (FK) }
{$ifdef powerpc} {$if defined(powerpc) or defined(powerpc64)}
direction:=1; direction:=1;
{$else powerpc} {$else}
{$ifdef POWERPC64}
direction:=1;
{$else POWERPC64}
direction:=-1; direction:=-1;
{$endif POWERPC64} {$endif}
{$endif powerpc}
end; end;