* a.out profile prt, not tested

rtl/linux/i386/gprt0.as

@@ -0,0 +1,70 @@
+#
+#   $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 a.out startup code with profiling support for Free Pascal
+# Note: Needs linking with -lgmon and -lc
+#
+
+	.file "gprt0.as"
+	.text
+	.globl	__entry
+__entry:
+	movl	8(%esp),%eax		/* Move the environment pointer */
+	movl	4(%esp),%ebx		/* Move the argument pointer */
+	movl	(%esp),%ecx		/* Move the argument counter */
+	
+	movl	%eax,U_SYSLINUX_ENVP
+	movl	%ebx,U_SYSLINUX_ARGV
+	movl	%ecx,U_SYSLINUX_ARGC
+
+	pushl	$_etext			/* Initialize gmon */
+	pushl	$_start
+	call	monstartup
+	addl	$8,%esp
+	pushl	$_mcleanup 
+	call	atexit
+	addl	$4,%esp
+
+	call	PASCALMAIN
+
+	.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	___brk_addr
+	.type	___brk_addr,@object
+	.size	___brk_addr,4
+___brk_addr:
+	.long	0
+	
+	.globl	__curbrk		/* necessary for libc */
+	.type	__curbrk,@object
+	.size	__curbrk,4
+__curbrk:
+	.long	0
+