arm-linux: new gprt0 based on cprt0, plus gmon initialization, so profiling output generation actually works now

git-svn-id: trunk@28663 -

rtl/linux/arm/gprt0.as

@@ -1,4 +1,29 @@
-/*
+/* Startup code for ARM & ELF
+   Copyright (C) 1995, 1996, 1997, 1998, 2001, 2002 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.
+
+   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., 51 Franklin Street, Fifth Floor, Boston,
+   MA 02110-1301, USA. */
+
+/* This is the canonical entry point, usually the first thing in the text
+   segment.
+
+        Note that the code in the .init section has already been run.
+        This includes _init and _libc_init
+
+
         At this entry point, most registers' values are unspecified, except:
 
    a1           Contains a function pointer to be registered with `atexit'.
@@ -30,39 +55,71 @@ _start:
         str a2,[ip]
 
         /* calc envp */
-	add a2,a2,#1
-	add a2,sp,a2,LSL #2
+        add a4,a2,#1
+        add a4,sp,a4,LSL #2
         ldr ip,=operatingsystem_parameter_envp
 
         str sp,[a3]
-   	str a2,[ip]
-
-        ldr     r1,=_etext                 /* Initialize gmon */
-        ldr     r0,=_start
-        bl      monstartup
-        ldr     r0,=_mcleanup
-        bl      atexit
+        str a4,[ip]
 
         /* Save initial stackpointer */
         ldr ip,=__stkptr
         str sp,[ip]
-	/* align sp again to 8 byte boundary, needed by eabi */
-        sub sp,sp,#4
+
+        /* Initialize gmon */
+        mov     r2,#1
+        ldr     r1,=_etext
+        ldr     r0,=_start
+        bl      __monstartup
+        ldr     r0,=_mcleanup
+        bl      atexit
+
+        /* argc already loaded to a2*/
+        ldr ip, =operatingsystem_parameter_argc
+        ldr a2,[ip]
+
+        /* Fetch address of fini */
+        ldr ip, =_fini
+
+        /* load argv */
+        mov a3, sp
+
+        /* Push stack limit */
+        str a3, [sp, #-4]!
+
+        /* Push rtld_fini */
+        str a1, [sp, #-4]!
+
+        /* Set up the other arguments in registers */
+        ldr a1, =PASCALMAIN
+        ldr a4, =_init
+
+        /* Push fini */
+        str ip, [sp, #-4]!
+
+        /* __libc_start_main (main, argc, argv, init, fini, rtld_fini, stack_end) */
 
         /* Let the libc call main and exit with its return code.  */
-	bl PASCALMAIN
+        bl __libc_start_main
+
+        /* should never get here....*/
+        bl abort
 
         .globl  _haltproc
     .type   _haltproc,#function
 _haltproc:
-        /* r0 contains exitcode */
+        ldr r0,=operatingsystem_result
+        ldrb r0,[r0]
         swi 0x900001
         b _haltproc
 
         .globl  _haltproc_eabi
         .type   _haltproc_eabi,#function
 _haltproc_eabi:
-        /* r0 contains exitcode */
+        bl exit  /* libc exit */
+
+        ldr r0,=operatingsystem_result
+        ldrb r0,[r0]
         mov r7,#248
         swi 0x0
         b _haltproc_eabi