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

amigaos4: fixed some alignment SNAFU in exec structures. this allows to fix the startup code properly

Browse Source 
git-svn-id: trunk@35294 -
This commit is contained in:
Károly Balogh 2017-01-14 01:57:46 +00:00
parent 4d22233827
commit 2591840264
2 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/amiga/powerpc/execd.inc
View File

@ -13,7 +13,6 @@
**********************************************************************}
{$PUSH}
{$PACKRECORDS 2}
{$i utild1.inc}
@ -1024,7 +1023,6 @@ const
// function pointers similar to the old library jump table.
//
// FIXME: Add some more documentation
{$PUSH}
{$PACKRECORDS C}
type
@ -1050,7 +1048,7 @@ type
end;
POS4Interface = ^TOS4Interface;
{$POP}
{$PACKRECORDS 2}
const
// Flags for the Flags field in interfaces and as flags parameter for GetInterface
@ -1738,4 +1736,4 @@ const
//**********************************************************************
{$POP}
{$PACKRECORDS DEFAULT}

3
rtl/amiga/powerpc/si_prc.pp
View File

@ -42,8 +42,7 @@ procedure PascalMain; external name 'PASCALMAIN';
function _FPC_proc_start(arg0: pointer; arg1: pointer; argExecBase: Pointer): longint; cdecl; public name '_start';
begin
AOS_ExecBase:=argExecBase;
{ we should have a proper MainInterface structure instead of this hack... }
IExec:=PPointer(@PByte(AOS_ExecBase)[632])^;
IExec:=PExecBase(AOS_ExecBase)^.MainInterface;
{ The StackCookie check is only here so the symbol is referenced and
doesn't get striped out }