mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-08 10:59:10 +02:00
+ glibc 2.1 support
This commit is contained in:
peter
parent
63cf75a73b
commit
5ba991d803
@ -59,18 +59,22 @@ PRT=prt1
|
||||
endif
|
||||
|
||||
LOADERAS=$(CPU)/$(PRT).as
|
||||
CLOADERAS=$(CPU)/c$(PRT).as
|
||||
GLOADERAS=$(CPU)/g$(PRT).as
|
||||
|
||||
LOADEROBJECTS=prt0 cprt0 gprt0
|
||||
LOADEROBJECTS=prt0 gprt0
|
||||
|
||||
ifndef AOUT
|
||||
LOADEROBJECTS+=cprt0 cprt21 gprt21
|
||||
endif
|
||||
|
||||
|
||||
# Unit Objects
|
||||
UNITOBJECTS=$(SYSTEMUNIT) objpas strings \
|
||||
linux ports \
|
||||
dos crt objects printer graph \
|
||||
sysutils typinfo math \
|
||||
cpu mmx getopts heaptrc \
|
||||
errors sockets graph
|
||||
sysutils typinfo math \
|
||||
cpu mmx getopts heaptrc \
|
||||
errors sockets graph
|
||||
|
||||
|
||||
#####################################################################
|
||||
@ -175,12 +179,22 @@ vpath %$(PASEXT) $(INC) $(PROCINC)
|
||||
prt0$(OEXT) : $(LOADERAS)
|
||||
$(AS) -o prt0$(OEXT) $(LOADERAS)
|
||||
|
||||
cprt0$(OEXT) : $(CLOADERAS)
|
||||
$(AS) -o cprt0$(OEXT) $(CLOADERAS)
|
||||
|
||||
gprt0$(OEXT) : $(GLOADERAS)
|
||||
$(AS) -o gprt0$(OEXT) $(GLOADERAS)
|
||||
|
||||
ifndef AOUT
|
||||
|
||||
cprt0$(OEXT) : $(CPU)/cprt1.as
|
||||
$(AS) -o cprt0$(OEXT) $(CPU)/cprt1.as
|
||||
|
||||
cprt21$(OEXT) : $(CPU)/cprt21.as
|
||||
$(AS) -o cprt21$(OEXT) $(CPU)/cprt21.as
|
||||
|
||||
gprt21$(OEXT) : $(CPU)/gprt21.as
|
||||
$(AS) -o gprt21$(OEXT) $(CPU)/gprt21.as
|
||||
|
||||
endif
|
||||
|
||||
#
|
||||
# System Units (System, Objpas, Strings)
|
||||
#
|
||||
@ -259,7 +273,10 @@ ipc$(PPUEXT) : ipc.pp linux$(PPUEXT) $(SYSTEMPPU)
|
||||
|
||||
#
|
||||
# $Log$
|
||||
# Revision 1.20 1999-04-22 10:56:32 peter
|
||||
# Revision 1.21 1999-05-03 21:29:35 peter
|
||||
# + glibc 2.1 support
|
||||
#
|
||||
# Revision 1.20 1999/04/22 10:56:32 peter
|
||||
# * fixed sysutils dependencys
|
||||
# * objpas files are agian in the main Makefile, makefile.op is obsolete
|
||||
#
|
||||
|
||||
102
rtl/linux/i386/cprt21.as
Normal file
102
rtl/linux/i386/cprt21.as
Normal file
@ -0,0 +1,102 @@
|
||||
#
|
||||
# $Id$
|
||||
# This file is part of the Free Pascal run time library.
|
||||
# Copyright (c) 1993,97 by Michael Van Canneyt and Peter Vreman
|
||||
# members of the Free Pascal development 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 ELF startup code for Free Pascal
|
||||
#
|
||||
|
||||
.file "prt1.as"
|
||||
.text
|
||||
.globl _start
|
||||
.type _start,@function
|
||||
_start:
|
||||
/* First locate the start of the environment variables */
|
||||
popl %esi
|
||||
movl %eax,%edi
|
||||
|
||||
movl %esp,%ebx /* Points to the arguments */
|
||||
movl %esi,%eax
|
||||
incl %eax
|
||||
shll $2,%eax
|
||||
addl %esp,%eax
|
||||
andl $0xfffffff8,%esp /* Align stack */
|
||||
|
||||
movl %eax,U_SYSLINUX_ENVP /* Move the environment pointer */
|
||||
movl %esi,U_SYSLINUX_ARGC /* Move the argument counter */
|
||||
movl %ebx,U_SYSLINUX_ARGV /* Move the argument pointer */
|
||||
|
||||
xorl %ebp,%ebp
|
||||
pushl %edi
|
||||
pushl %esp
|
||||
pushl %edx
|
||||
pushl $_fini
|
||||
pushl $_init
|
||||
pushl %ebx
|
||||
pushl %esi
|
||||
pushl $main
|
||||
call __libc_start_main
|
||||
hlt
|
||||
|
||||
/* fake main routine which will be run from libc */
|
||||
main:
|
||||
/* save return address */
|
||||
popl %eax
|
||||
movl %eax,___fpc_ret
|
||||
movl %ebx,___fpc_ret_ebx
|
||||
pushl %eax
|
||||
|
||||
/* start the program */
|
||||
call PASCALMAIN
|
||||
|
||||
.globl _haltproc
|
||||
.type _haltproc,@function
|
||||
_haltproc:
|
||||
xorl %eax,%eax /* load and save exitcode */
|
||||
movw U_SYSLINUX_EXITCODE,%ax
|
||||
|
||||
movl ___fpc_ret,%edx /* return to libc */
|
||||
movl ___fpc_ret_ebx,%ebx
|
||||
push %edx
|
||||
ret
|
||||
|
||||
.data
|
||||
.align 4
|
||||
|
||||
.globl ___fpc_brk_addr /* heap management */
|
||||
.type ___fpc_brk_addr,@object
|
||||
.size ___fpc_brk_addr,4
|
||||
___fpc_brk_addr:
|
||||
.long 0
|
||||
|
||||
___fpc_ret: /* return address to libc */
|
||||
.long 0
|
||||
___fpc_ret_ebx:
|
||||
.long 0
|
||||
|
||||
|
||||
#
|
||||
# $Log$
|
||||
# Revision 1.1 1999-05-03 21:29:36 peter
|
||||
# + glibc 2.1 support
|
||||
#
|
||||
# Revision 1.3 1998/11/04 10:16:25 peter
|
||||
# + xorl ebp,ebp to indicate end of backtrace
|
||||
#
|
||||
# Revision 1.2 1998/10/14 21:28:46 peter
|
||||
# * initialize fpu so sigfpe is finally generated for fpu errors
|
||||
#
|
||||
# Revision 1.1 1998/08/12 19:16:09 peter
|
||||
# + loader including libc init and exit
|
||||
#
|
||||
#
|
||||
116
rtl/linux/i386/gprt21.as
Normal file
116
rtl/linux/i386/gprt21.as
Normal file
@ -0,0 +1,116 @@
|
||||
#
|
||||
# $Id$
|
||||
# This file is part of the Free Pascal run time library.
|
||||
# Copyright (c) 1993,97 by Michael Van Canneyt and Peter Vreman
|
||||
# members of the Free Pascal development 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 ELF startup code for Free Pascal
|
||||
#
|
||||
|
||||
.file "prt1.as"
|
||||
.text
|
||||
.globl _start
|
||||
.type _start,@function
|
||||
_start:
|
||||
/* First locate the start of the environment variables */
|
||||
popl %esi
|
||||
movl %eax,%edi
|
||||
|
||||
movl %esp,%ebx /* Points to the arguments */
|
||||
movl %esi,%eax
|
||||
incl %eax
|
||||
shll $2,%eax
|
||||
addl %esp,%eax
|
||||
andl $0xfffffff8,%esp /* Align stack */
|
||||
|
||||
movl %eax,U_SYSLINUX_ENVP /* Move the environment pointer */
|
||||
movl %esi,U_SYSLINUX_ARGC /* Move the argument counter */
|
||||
movl %ebx,U_SYSLINUX_ARGV /* Move the argument pointer */
|
||||
|
||||
xorl %ebp,%ebp
|
||||
pushl %edi
|
||||
pushl %esp
|
||||
pushl %edx
|
||||
pushl $_fini
|
||||
pushl $_init
|
||||
pushl %ebx
|
||||
pushl %esi
|
||||
pushl $main
|
||||
call __libc_start_main
|
||||
hlt
|
||||
|
||||
/* fake main routine which will be run from libc */
|
||||
.globl cmain
|
||||
.type cmain,@object
|
||||
cmain:
|
||||
/* save return address */
|
||||
popl %eax
|
||||
movl %eax,___fpc_ret
|
||||
movl %ebx,___fpc_ret_ebx
|
||||
pushl %eax
|
||||
|
||||
/* start the program */
|
||||
call PASCALMAIN
|
||||
|
||||
.globl _haltproc
|
||||
.type _haltproc,@function
|
||||
_haltproc:
|
||||
xorl %eax,%eax /* load and save exitcode */
|
||||
movw U_SYSLINUX_EXITCODE,%ax
|
||||
|
||||
movl ___fpc_ret,%edx /* return to libc */
|
||||
movl ___fpc_ret_ebx,%ebx
|
||||
push %edx
|
||||
ret
|
||||
|
||||
.globl __gmon_start__
|
||||
.type __gmon_start__,@object
|
||||
__gmon_start__:
|
||||
pushl $etext /* Initialize gmon */
|
||||
pushl $_start
|
||||
call monstartup
|
||||
addl $8,%esp
|
||||
pushl $_mcleanup
|
||||
call atexit
|
||||
addl $4,%esp
|
||||
ret
|
||||
|
||||
.data
|
||||
.align 4
|
||||
|
||||
.globl ___fpc_brk_addr /* heap management */
|
||||
.type ___fpc_brk_addr,@object
|
||||
.size ___fpc_brk_addr,4
|
||||
___fpc_brk_addr:
|
||||
.long 0
|
||||
|
||||
___fpc_ret: /* return address to libc */
|
||||
.long 0
|
||||
___fpc_ret_ebx:
|
||||
.long 0
|
||||
|
||||
|
||||
#
|
||||
# $Log$
|
||||
# Revision 1.1 1999-05-03 21:29:36 peter
|
||||
# + glibc 2.1 support
|
||||
#
|
||||
# Revision 1.3 1998/11/04 10:16:25 peter
|
||||
# + xorl ebp,ebp to indicate end of backtrace
|
||||
#
|
||||
# Revision 1.2 1998/10/14 21:28:46 peter
|
||||
# * initialize fpu so sigfpe is finally generated for fpu errors
|
||||
#
|
||||
# Revision 1.1 1998/08/12 19:16:09 peter
|
||||
# + loader including libc init and exit
|
||||
#
|
||||
#
|
||||
Loading…
Reference in New Issue
Block a user