From e35ce06a215f6246fe7dd4393382475c7ca679ea Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 12 Aug 1998 19:16:09 +0000
Subject: [PATCH]   + loader including libc init and exit

---
 rtl/linux/i386/cprt1.as | 99 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 99 insertions(+)
 create mode 100644 rtl/linux/i386/cprt1.as

diff --git a/rtl/linux/i386/cprt1.as b/rtl/linux/i386/cprt1.as
new file mode 100644
index 0000000000..34c1bdea20
--- /dev/null
+++ b/rtl/linux/i386/cprt1.as
@@ -0,0 +1,99 @@
+#
+#   $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	%ecx
+	movl	%esp,%ebx  		/* Points to the arguments */
+	movl	%ecx,%eax
+	incl	%eax
+	shll	$2,%eax
+	addl	%esp,%eax
+	andl	$0xfffffff8,%esp	/* Align stack */
+
+	movl	%eax,U_SYSLINUX_ENVP	/* Move the environment pointer */
+	movl	%ecx,U_SYSLINUX_ARGC	/* Move the argument counter    */
+	movl	%ebx,U_SYSLINUX_ARGV	/* Move the argument pointer	*/
+
+	movl	%eax,__environ		/* libc environ */
+
+	pushl	%eax
+	pushl	%ebx	
+	pushl	%ecx
+	
+	call	__libc_init		/* init libc */
+	movzwl	__fpu_control,%eax
+	pushl 	%eax
+	call 	__setfpucw
+	addl 	$4,%esp
+	pushl 	$_fini
+	call 	atexit
+	addl	$4,%esp
+	call 	_init
+
+	popl	%eax	
+	popl	%eax	
+	
+	call	PASCALMAIN		/* start the program */
+	
+	.globl _haltproc
+	.type _haltproc,@function
+_haltproc:
+	xorl	%ebx,%ebx		/* load and save exitcode */
+	movw	U_SYSLINUX_EXITCODE,%bx
+	pushl	%ebx
+	
+	call	exit			/* call libc exit, this will */
+					/* write the gmon.out */
+					
+	movl	$1,%eax			/* exit call */
+	popl	%ebx
+	int	$0x80
+	jmp	_haltproc
+	
+.data
+	.align	4
+	
+	.globl	___fpc_brk_addr		/* heap management */
+	.type	___fpc_brk_addr,@object
+	.size	___fpc_brk_addr,4
+___fpc_brk_addr:
+	.long	0
+	
+	.globl	__curbrk		/* necessary for libc */
+	.type	__curbrk,@object
+	.size	__curbrk,4
+__curbrk:
+	.long	0
+	
+	.globl 	__environ
+	.type 	__environ,@object
+	.size	__environ,4
+__environ:
+	.long 	0
+
+#
+# $Log$
+# Revision 1.1  1998-08-12 19:16:09  peter
+#   + loader including libc init and exit
+#
+#