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

AROS: apparently, the NewStackSwap() function is just a half arsed copy of MorphOS/NewPPCStackSwap(), so it doesn't accept nil as its third argument. Therefore we pass a pointer to some area we won't use anyway. this fixes crashes in the stack swapping code on hosted systems.

Browse Source 
git-svn-id: trunk@28636 -
This commit is contained in:
Károly Balogh 2014-09-09 17:47:13 +00:00
parent c8e9d2cf6e
commit fbfcda2926
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/aros/i386/prt0.as
View File

@ -89,7 +89,8 @@ _allocStack:
movl %eax,8(%ecx) /* Initial stackpointer */ movl %eax,8(%ecx) /* Initial stackpointer */
movl _ExecBase,%eax movl _ExecBase,%eax
pushl %eax pushl %eax
pushl $0 lea StackSwapArgs,%ebx
pushl %ebx
lea _initProc,%ebx lea _initProc,%ebx
pushl %ebx pushl %ebx
pushl %ecx pushl %ecx
@ -158,3 +159,4 @@ _ExecBase: .skip 4
StackAreaPtr: .skip 4 StackAreaPtr: .skip 4
StackSwapStruct: .skip 12 StackSwapStruct: .skip 12
StackSwapArgs: .skip 32