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

* fixed ppc compiler which was broken by Peter's changes

Browse Source
This commit is contained in:
florian 2003-05-15 19:39:09 +00:00
parent 92ee1804b6
commit 9c507c2da0
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/powerpc/cgcpu.pas
View File

@ -93,7 +93,7 @@ unit cgcpu;
procedure g_save_standard_registers(list : taasmoutput; usedinproc : Tsupregset);override; procedure g_save_standard_registers(list : taasmoutput; usedinproc : Tsupregset);override;
procedure g_restore_standard_registers(list : taasmoutput; usedinproc : Tsupregset);override; procedure g_restore_standard_registers(list : taasmoutput; usedinproc : Tsupregset);override;
procedure g_save_all_registers(list : taasmoutput);override; procedure g_save_all_registers(list : taasmoutput);override;
procedure g_restore_all_registers(list : taasmoutput;selfused,accused,acchiused:boolean);override; procedure g_restore_all_registers(list : taasmoutput;accused,acchiused:boolean);override;
procedure a_jmp_cond(list : taasmoutput;cond : TOpCmp;l: tasmlabel); procedure a_jmp_cond(list : taasmoutput;cond : TOpCmp;l: tasmlabel);
@ -795,7 +795,7 @@ const
{$warning FIX ME} {$warning FIX ME}
end; end;
procedure tcgppc.g_restore_all_registers(list : taasmoutput;selfused,accused,acchiused:boolean); procedure tcgppc.g_restore_all_registers(list : taasmoutput;accused,acchiused:boolean);
begin begin
{$warning FIX ME} {$warning FIX ME}
end; end;
@ -2392,7 +2392,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.90 2003-05-12 18:43:50 jonas Revision 1.91 2003-05-15 19:39:09 florian
* fixed ppc compiler which was broken by Peter's changes
Revision 1.90 2003/05/12 18:43:50 jonas
* fixed g_concatcopy * fixed g_concatcopy
Revision 1.89 2003/05/11 20:59:23 jonas Revision 1.89 2003/05/11 20:59:23 jonas

9
compiler/powerpc/cpupi.pas
View File

@ -80,8 +80,8 @@ unit cpupi;
ofs:=align(maxpushedparasize+LinkageAreaSize,16); ofs:=align(maxpushedparasize+LinkageAreaSize,16);
inc(procdef.parast.address_fixup,ofs); inc(procdef.parast.address_fixup,ofs);
inc(framepointer_offset,ofs); inc(framepointer_offset,ofs);
inc(selfpointer_offset,ofs); // inc(selfpointer_offset,ofs);
inc(vmtpointer_offset,ofs); // inc(vmtpointer_offset,ofs);
if cs_asm_source in aktglobalswitches then if cs_asm_source in aktglobalswitches then
aktproccode.insert(Tai_comment.Create(strpnew('Parameter copies start at: r1+'+tostr(procdef.parast.address_fixup)))); aktproccode.insert(Tai_comment.Create(strpnew('Parameter copies start at: r1+'+tostr(procdef.parast.address_fixup))));
@ -115,7 +115,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.14 2003-05-10 23:57:23 florian Revision 1.15 2003-05-15 19:39:09 florian
* fixed ppc compiler which was broken by Peter's changes
Revision 1.14 2003/05/10 23:57:23 florian
* vmtpointer_offset must be adjusted in after_pass1 as well * vmtpointer_offset must be adjusted in after_pass1 as well
Revision 1.13 2003/05/09 19:00:30 jonas Revision 1.13 2003/05/09 19:00:30 jonas