gcc/config/i386/sol2-gc1.asm

   1 ! gcrt1.s for Solaris 2, x86
   2
   3 !   Copyright (C) 1993, 2008, 2009 Free Software Foundation, Inc.
   4 !   Written By Fred Fish, Nov 1992
   5 !
   6 ! This file is free software; you can redistribute it and/or modify it
   7 ! under the terms of the GNU General Public License as published by the
   8 ! Free Software Foundation; either version 3, or (at your option) any
   9 ! later version.
  10 !
  11 ! This file is distributed in the hope that it will be useful, but
  12 ! WITHOUT ANY WARRANTY; without even the implied warranty of
  13 ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14 ! General Public License for more details.
  15 !
  16 ! Under Section 7 of GPL version 3, you are granted additional
  17 ! permissions described in the GCC Runtime Library Exception, version
  18 ! 3.1, as published by the Free Software Foundation.
  19 !
  20 ! You should have received a copy of the GNU General Public License and
  21 ! a copy of the GCC Runtime Library Exception along with this program;
  22 ! see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
  23 ! <http://www.gnu.org/licenses/>.
  24
  25
  26 ! This file takes control of the process from the kernel, as specified
  27 ! in section 3 of the System V Application Binary Interface, Intel386
  28 ! Processor Supplement.  It has been constructed from information obtained
  29 ! from the ABI, information obtained from single stepping existing
  30 ! Solaris executables through their startup code with gdb, and from
  31 ! information obtained by single stepping executables on other i386 SVR4
  32 ! implementations.  This file is the first thing linked into any executable.
  33
  34 ! This is a modified crt1.s by J.W.Hawtin <oolon@ankh.org> 15/8/96,
  35 ! to allow program profiling, by calling monstartup on entry and _mcleanup
  36 ! on exit
  37
  38         .ident  "GNU C gcrt1.s"
  39         .weak   _DYNAMIC
  40         .text
  41
  42 ! Start creating the initial frame by pushing a NULL value for the return
  43 ! address of the initial frame, and mark the end of the stack frame chain
  44 ! (the innermost stack frame) with a NULL value, per page 3-32 of the ABI.
  45 ! Initialize the first stack frame pointer in %ebp (the contents of which
  46 ! are unspecified at process initialization).
  47
  48         .globl  _start
  49 _start:
  50         pushl   $0x0
  51         pushl   $0x0
  52         movl    %esp,%ebp
  53
  54 ! As specified per page 3-32 of the ABI, %edx contains a function
  55 ! pointer that should be registered with atexit(), for proper
  56 ! shared object termination.  Just push it onto the stack for now
  57 ! to preserve it.  We want to register _cleanup() first.
  58
  59         pushl   %edx
  60
  61 ! Check to see if there is an _cleanup() function linked in, and if
  62 ! so, register it with atexit() as the last thing to be run by
  63 ! atexit().
  64
  65         movl    $_mcleanup,%eax
  66         testl   %eax,%eax
  67         je      .L1
  68         pushl   $_mcleanup
  69         call    atexit
  70         addl    $0x4,%esp
  71 .L1:
  72
  73 ! Now check to see if we have an _DYNAMIC table, and if so then
  74 ! we need to register the function pointer previously in %edx, but
  75 ! now conveniently saved on the stack as the argument to pass to
  76 ! atexit().
  77
  78         movl    $_DYNAMIC,%eax
  79         testl   %eax,%eax
  80         je      .L2
  81         call    atexit
  82 .L2:
  83
  84 ! Register _fini() with atexit().  We will take care of calling _init()
  85 ! directly.
  86
  87         pushl   $_fini
  88         call    atexit
  89
  90 ! Start profiling
  91
  92         pushl %ebp
  93         movl %esp,%ebp
  94         pushl $_etext
  95         pushl $_start
  96         call monstartup
  97         addl $8,%esp
  98         popl %ebp
  99
 100 ! Compute the address of the environment vector on the stack and load
 101 ! it into the global variable _environ.  Currently argc is at 8 off
 102 ! the frame pointer.  Fetch the argument count into %eax, scale by the
 103 ! size of each arg (4 bytes) and compute the address of the environment
 104 ! vector which is 16 bytes (the two zero words we pushed, plus argc,
 105 ! plus the null word terminating the arg vector) further up the stack,
 106 ! off the frame pointer (whew!).
 107
 108         movl    8(%ebp),%eax
 109         leal    16(%ebp,%eax,4),%edx
 110         movl    %edx,_environ
 111
 112 ! Push the environment vector pointer, the argument vector pointer,
 113 ! and the argument count on to the stack to set up the arguments
 114 ! for _init(), _fpstart(), and main().  Note that the environment
 115 ! vector pointer and the arg count were previously loaded into
 116 ! %edx and %eax respectively.  The only new value we need to compute
 117 ! is the argument vector pointer, which is at a fixed address off
 118 ! the initial frame pointer.
 119
 120 !
 121 ! Make sure the stack is properly aligned.
 122 !
 123         andl $0xfffffff0,%esp
 124         subl $4,%esp
 125
 126         pushl   %edx
 127         leal    12(%ebp),%edx
 128         pushl   %edx
 129         pushl   %eax
 130
 131 ! Call _init(argc, argv, environ), _fpstart(argc, argv, environ), and
 132 ! main(argc, argv, environ).
 133
 134         call    _init
 135         call    __fpstart
 136         call    main
 137
 138 ! Pop the argc, argv, and environ arguments off the stack, push the
 139 ! value returned from main(), and call exit().
 140
 141         addl    $12,%esp
 142         pushl   %eax
 143         call    exit
 144
 145 ! An inline equivalent of _exit, as specified in Figure 3-26 of the ABI.
 146
 147         pushl   $0x0
 148         movl    $0x1,%eax
 149         lcall   $7,$0
 150
 151 ! If all else fails, just try a halt!
 152
 153         hlt
 154         .type   _start,@function
 155         .size   _start,.-_start