paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-07 12:07:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

* replaced sysbeos to system

Browse Source
This commit is contained in:
marco 2003-01-10 19:36:28 +00:00
parent 2102ce7031
commit 2ad2b10388
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/beos/i386/cprt0.as
View File

@ -41,9 +41,9 @@ _start:
call _init_c_library_
call _call_init_routines_
movl 8(%ebp),%eax
movl %eax,U_SYSBEOS_ARGC
movl %edi,U_SYSBEOS_ARGV
movl %esi,U_SYSBEOS_ENVP
movl %eax,U_SYSTEM_ARGC
movl %edi,U_SYSTEM_ARGV
movl %esi,U_SYSTEM_ENVP
xorl %ebp,%ebp
call PASCALMAIN
@ -52,7 +52,7 @@ _start:
_haltproc:
call _thread_do_exit_notification
xorl %ebx,%ebx
movw U_SYSBEOS_EXITCODE,%bx
movw U_SYSTEM_EXITCODE,%bx
pushl %ebx
call exit

8
rtl/beos/i386/prt0.as
View File

@ -8,9 +8,9 @@ start:
movl 16(%ebp),%ecx
movl 12(%ebp),%ebx
movl 8(%ebp),%eax
movl %eax,U_SYSBEOS_ARGC
movl %ebx,U_SYSBEOS_ARGV
movl %ecx,U_SYSBEOS_ENVP
movl %eax,U_SYSTEM_ARGC
movl %ebx,U_SYSTEM_ARGV
movl %ecx,U_SYSTEM_ENVP
xorl %ebp,%ebp
call PASCALMAIN
@ -18,7 +18,7 @@ start:
.type _haltproc,@function
_haltproc:
xorl %ebx,%ebx
movw U_SYSBEOS_EXITCODE,%bx
movw U_SYSTEM_EXITCODE,%bx
pushl %ebx
call sys_exit