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

+ powerpc support

Browse Source
This commit is contained in:
Jonas Maebe 2004-02-06 20:56:38 +00:00
parent 4e37beb962
commit 39c435ce5e
2 changed files with 28 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fv/callspec.pas
View File

@ -267,6 +267,11 @@ asm
move.l a6, d0
end['D0'];
{$endif CPU68K}
{$ifdef CPUPOWERPC}
asm
mr r3,r1
end;
{$endif CPUPOWERPC}
function PreviousFramePointer: FramePointer;assembler;
@ -280,6 +285,11 @@ asm
move.l (a6), d0
end['D0'];
{$endif CPU68K}
{$ifdef CPUPOWERPC}
asm
lwz r3,0(r1)
end;
{$endif CPUPOWERPC}
{$endif PPC_FPC}
@ -392,7 +402,10 @@ end;
end.
{
$Log$
Revision 1.3 2004-02-06 20:08:58 jonas
Revision 1.4 2004-02-06 20:56:38 jonas
+ powerpc support
Revision 1.3 2004/02/06 20:08:58 jonas
* version from FV
Revision 1.4 2003/11/12 15:49:59 peter

15
fvision/callspec.pas
View File

@ -267,6 +267,11 @@ asm
move.l a6, d0
end['D0'];
{$endif CPU68K}
{$ifdef CPUPOWERPC}
asm
mr r3,r1
end;
{$endif CPUPOWERPC}
function PreviousFramePointer: FramePointer;assembler;
@ -280,6 +285,11 @@ asm
move.l (a6), d0
end['D0'];
{$endif CPU68K}
{$ifdef CPUPOWERPC}
asm
lwz r3,0(r1)
end;
{$endif CPUPOWERPC}
{$endif PPC_FPC}
@ -392,7 +402,10 @@ end;
end.
{
$Log$
Revision 1.3 2004-02-06 20:08:58 jonas
Revision 1.4 2004-02-06 20:56:38 jonas
+ powerpc support
Revision 1.3 2004/02/06 20:08:58 jonas
* version from FV
Revision 1.4 2003/11/12 15:49:59 peter