First version working to link with shared c library

git-svn-id: trunk@21789 -

rtl/linux/mips/cprt0.as

@@ -1 +1,149 @@
-.include "mips/prt0.as"
+/* Startup code compliant to the ELF Mips ABI.
+   Copyright (C) 1995, 1997, 2000, 2001, 2002, 2003, 2004
+	Free Software Foundation, Inc.
+   This file is part of the GNU C Library.
+
+   The GNU C Library is free software; you can redistribute it and/or
+   modify it under the terms of the GNU Lesser General Public
+   License as published by the Free Software Foundation; either
+   version 2.1 of the License, or (at your option) any later version.
+
+   In addition to the permissions in the GNU Lesser General Public
+   License, the Free Software Foundation gives you unlimited
+   permission to link the compiled version of this file with other
+   programs, and to distribute those programs without any restriction
+   coming from the use of this file. (The GNU Lesser General Public
+   License restrictions do apply in other respects; for example, they
+   cover modification of the file, and distribution when not linked
+   into another program.)
+
+   Note that people who make modified versions of this file are not
+   obligated to grant this special exception for their modified
+   versions; it is their choice whether to do so. The GNU Lesser
+   General Public License gives permission to release a modified
+   version without this exception; this exception also makes it
+   possible to release a modified version which carries forward this
+   exception.
+
+   The GNU C Library 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.  See the GNU
+   Lesser General Public License for more details.
+
+   You should have received a copy of the GNU Lesser General Public
+   License along with the GNU C Library; if not, write to the Free
+   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
+   02111-1307 USA.  */
+
+/* This is the canonical entry point, usually the first thing in the text
+   segment.  The SVR4/Mips ABI (pages 3-31, 3-32) says that when the entry
+   point runs, most registers' values are unspecified, except for:
+
+   v0 ($2)	Contains a function pointer to be registered with `atexit'.
+		This is how the dynamic linker arranges to have DT_FINI
+		functions called for shared libraries that have been loaded
+		before this code runs.
+
+   sp ($29)	The stack contains the arguments and environment:
+		0(%esp)			argc
+		4(%esp)			argv[0]
+		...
+		(4*argc)(%esp)		NULL
+		(4*(argc+1))(%esp)	envp[0]
+		...
+					NULL
+   ra ($31)	The return address register is set to zero so that programs
+		that search backword through stack frames recognize the last
+		stack frame.
+*/
+
+
+/* We need to call:
+   __libc_start_main (int (*main) (int, char **, char **), int argc,
+		      char **argv, void (*init) (void), void (*fini) (void),
+		      void (*rtld_fini) (void), void *stack_end)
+*/
+ .text
+ .globl __start
+ .type __start,@function
+__start:
+.globl _start
+ .type _start,@function
+_start:
+  .ent _start
+
+
+ .set noreorder
+ move $0, $31
+ bal 10f
+ nop
+ 10: 
+ .cpload $31
+ move $31, $0
+ .set reorder
+	/* Setup GP correctly if we're non-PIC.  */
+ la $28,_gp
+
+ la $4, main		/* main */
+ lw $5, 0($29)		/* argc */
+ addiu $6, $29, 4	/* argv */
+        /* store argc */
+        lw      $t0,0($29)
+        lui     $t1,%hi(operatingsystem_parameter_argc)
+        sw      $t0,%lo(operatingsystem_parameter_argc)($t1)
+
+        /* store argv */
+        addiu   $t1,$29,4
+        lui     $t2,%hi(operatingsystem_parameter_argv)
+        sw      $t1,%lo(operatingsystem_parameter_argv)($t2)
+
+        /* store envp */
+        addiu   $t2,$t0,1
+        sll     $t2,$t2,0x2
+        addu    $t2,$t2,$t1
+        lui     $t3,%hi(operatingsystem_parameter_envp)
+        sw      $t2,%lo(operatingsystem_parameter_envp)($t3)
+ 
+	/* Allocate space on the stack for seven arguments (o32 only)
+	   and make sure the stack is aligned to double words (8 bytes) 
+	   on o32 and quad words (16 bytes) on n32 and n64.  */
+ and $29, -2 * 4
+ subu $29, 32
+
+ lw $7,%got(__libc_csu_init)($gp) /* init */
+ lw $8,%got(__libc_csu_fini)($gp) /* fini */
+
+ sw $8, 16($29)				/* fini */
+ sw $2, 20($29)				/* rtld_fini */
+ sw $29, 24($29)			/* stack_end */
+
+ lw $t9,%got(__libc_start_main)($gp)
+ jalr $t9
+ .end _start
+ .size _start, . - _start
+/* Crash if somehow it does return.  */
+	.globl  _haltproc
+	.ent	_haltproc
+	.type   _haltproc,@function
+_haltproc:
+hlt: 
+	li      $v0,4001
+	syscall
+ b hlt
+   .end _haltproc
+
+/* Define a symbol for the first piece of initialized data.  */
+ .data
+ .globl __data_start
+__data_start:
+ .long 0
+ .weak data_start
+ data_start = __data_start	
+
+        .comm __stkptr,4
+        .comm __dl_fini,4
+
+        .comm operatingsystem_parameter_envp,4
+        .comm operatingsystem_parameter_argc,4
+        .comm operatingsystem_parameter_argv,4
+