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

* Merged Pierre's fix for my problem with heaptrace unit (by setting EBP

Browse Source 
to zero before calling PASCALMAIN)
This commit is contained in:
sg 2001-02-14 22:36:21 +00:00
parent f329e6bfca
commit 2a992cc477
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/linux/i386/cprt21.as
View File

@ -54,9 +54,11 @@ main:
popl %eax popl %eax
movl %eax,___fpc_ret movl %eax,___fpc_ret
movl %ebx,___fpc_ret_ebx movl %ebx,___fpc_ret_ebx
movl %ebp,___fpc_ret_ebp
pushl %eax pushl %eax
/* start the program */ /* start the program */
xorl %ebp,%ebp
call PASCALMAIN call PASCALMAIN
.globl _haltproc .globl _haltproc
@ -66,6 +68,7 @@ _haltproc:
movw U_SYSTEM_EXITCODE,%ax movw U_SYSTEM_EXITCODE,%ax
movl ___fpc_ret,%edx /* return to libc */ movl ___fpc_ret,%edx /* return to libc */
movl ___fpc_ret_ebp,%ebp
movl ___fpc_ret_ebx,%ebx movl ___fpc_ret_ebx,%ebx
push %edx push %edx
ret ret
@ -83,11 +86,17 @@ ___fpc_ret: /* return address to libc */
.long 0 .long 0
___fpc_ret_ebx: ___fpc_ret_ebx:
.long 0 .long 0
___fpc_ret_ebp:
.long 0
# #
# $Log$ # $Log$
# Revision 1.2 2000-10-15 09:09:23 peter # Revision 1.3 2001-02-14 22:36:21 sg
# * Merged Pierre's fix for my problem with heaptrace unit (by setting EBP
# to zero before calling PASCALMAIN)
#
# Revision 1.2 2000/10/15 09:09:23 peter
# * startup code also needed syslinux->system updates # * startup code also needed syslinux->system updates
# #
# Revision 1.1 2000/07/13 06:30:55 michael # Revision 1.1 2000/07/13 06:30:55 michael