mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-02 06:49:34 +01:00
* m68k: Fixed name of ELF interpreter, and updated cprt0.as to somewhat working state. Now a "hello world" program using libc can be linked and launched, but anything more complex needs another round of fixing the parameter passing code, in order to get the stack properly balanced.
git-svn-id: trunk@28181 -
This commit is contained in:
sergei
parent
16c5849fc6
commit
15ff2c1236
@ -151,8 +151,7 @@ begin
|
||||
end;
|
||||
|
||||
{$ifdef m68k}
|
||||
{ experimental, is this correct? }
|
||||
const defdynlinker='/lib/ld-linux.so.2';
|
||||
const defdynlinker='/lib/ld.so.1';
|
||||
{$endif m68k}
|
||||
|
||||
{$ifdef i386}
|
||||
|
||||
@ -1,75 +1,84 @@
|
||||
|
|
||||
| $Id: cprt0.as,v 1.1.2.2 2001/08/01 13:26:17 pierre Exp $
|
||||
| This file is part of the Free Pascal run time library.
|
||||
| Copyright (c) 2001 by Free Pascal Core Team
|
||||
|
|
||||
| See the file COPYING.FPC, included in this distribution,
|
||||
| for details about the copyright.
|
||||
|
|
||||
| This program is distributed in the hope that it will be useful,
|
||||
| but WITHOUT ANY WARRANTY;without even the implied warranty of
|
||||
| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||||
|
|
||||
|**********************************************************************}
|
||||
|
|
||||
| Linux m68k ELF startup code for linking with C lib for Free Pascal
|
||||
|
|
||||
#
|
||||
# This file is part of the Free Pascal run time library.
|
||||
# Copyright (c) 2001 by Free Pascal Core Team
|
||||
#
|
||||
# See the file COPYING.FPC, included in this distribution,
|
||||
# for details about the copyright.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY;without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||||
#
|
||||
#**********************************************************************}
|
||||
#
|
||||
# Linux m68k ELF startup code for linking with C lib for Free Pascal
|
||||
#
|
||||
.file "cprt0.as"
|
||||
.text
|
||||
.text
|
||||
.globl _start
|
||||
.type _start,@function
|
||||
_start:
|
||||
.globl __entry
|
||||
.type __entry,@function
|
||||
__entry:
|
||||
move.l 8(%sp),%d0
|
||||
move.l %d0,U_SYSLINUX_ENVP
|
||||
move.l %d0,__environ
|
||||
move.l 4(%sp),%d0
|
||||
move.l %d0,U_SYSLINUX_ARGV
|
||||
move.l (%sp),%d0
|
||||
move.l %d0,U_SYSLINUX_ARGC
|
||||
| The arguments should be in correct order for
|
||||
| calling __libc_init
|
||||
| This code is untested for now PM
|
||||
jsr __libc_init
|
||||
| insert _fini in atexit chain
|
||||
move.l _fini,-(%sp)
|
||||
jsr atexit
|
||||
addq.l #4,%sp
|
||||
| call _init function
|
||||
jsr _init
|
||||
######### This order of parameters is for ucLibc.
|
||||
# move.l 8(%sp),%d0
|
||||
# move.l %d0,operatingsystem_parameter_envp
|
||||
# move.l %d0,__environ
|
||||
# move.l 4(%sp),%d0
|
||||
# move.l %d0,operatingsystem_parameter_argv
|
||||
# move.l (%sp),%d0
|
||||
# move.l %d0,operatingsystem_parameter_argc
|
||||
#########
|
||||
|
||||
jsr PASCALMAIN
|
||||
sub.l %fp,%fp
|
||||
move.l (%sp)+,%d0
|
||||
move.l %d0,operatingsystem_parameter_argc
|
||||
move.l %sp,operatingsystem_parameter_argv
|
||||
lea.l 8(%sp,%d0.l*4),%a0
|
||||
move.l %a0,operatingsystem_parameter_envp
|
||||
move.l %sp,%a0 /* argv */
|
||||
|
||||
| Used by System_exit procedure
|
||||
pea (%sp) /* highest available stack address */
|
||||
pea (%a1) /* termination function provided by kernel */
|
||||
pea __libc_csu_fini
|
||||
pea __libc_csu_init
|
||||
pea (%a0) /* argv */
|
||||
move.l %d0,-(%sp) /* argc */
|
||||
pea PASCALMAIN
|
||||
jsr __libc_start_main
|
||||
illegal
|
||||
.size _start,.-_start
|
||||
|
||||
# Used by System_exit procedure
|
||||
.globl _haltproc
|
||||
.type _haltproc,@function
|
||||
_haltproc:
|
||||
| Call C exit function
|
||||
move.w U_SYSLINUX_EXITCODE,%d1
|
||||
# Call C exit function
|
||||
move.l operatingsystem_result,%d1
|
||||
move.l %d1,-(%sp)
|
||||
jsr exit
|
||||
moveq.l #1,%d0
|
||||
move.l (%sp)+,%d1
|
||||
trap #0
|
||||
bra _haltproc
|
||||
.size _haltproc,.-_haltproc
|
||||
|
||||
.bss
|
||||
.type __stkptr,@object
|
||||
.size __stkptr,4
|
||||
.global __stkptr
|
||||
__stkptr:
|
||||
.skip 4
|
||||
|
||||
| Is this still needed ??
|
||||
| .data
|
||||
| .align 4
|
||||
| .globl ___fpc_brk_addr
|
||||
|___fpc_brk_addr:
|
||||
| .long 0
|
||||
|
||||
|
||||
|
|
||||
| $Log: cprt0.as,v $
|
||||
| Revision 1.1.2.2 2001/08/01 13:26:17 pierre
|
||||
| * syntax adapted to GNU as
|
||||
|
|
||||
| Revision 1.1.2.1 2001/07/13 15:29:32 pierre
|
||||
| first version of cprt0.as
|
||||
|
|
||||
|
|
||||
.type operatingsystem_parameters,@object
|
||||
.size operatingsystem_parameters,12
|
||||
operatingsystem_parameters:
|
||||
.skip 3*4
|
||||
|
||||
.global operatingsystem_parameter_envp
|
||||
.global operatingsystem_parameter_argc
|
||||
.global operatingsystem_parameter_argv
|
||||
.set operatingsystem_parameter_envp,operatingsystem_parameters+0
|
||||
.set operatingsystem_parameter_argc,operatingsystem_parameters+4
|
||||
.set operatingsystem_parameter_argv,operatingsystem_parameters+8
|
||||
|
||||
Loading…
Reference in New Issue
Block a user