github.com/akaros/go-akaros@v0.0.0-20181004170632-85005d477eab/src/cmd/5l/obj.c (about)

     1  // Inferno utils/5l/obj.c
     2  // http://code.google.com/p/inferno-os/source/browse/utils/5l/obj.c
     3  //
     4  //	Copyright © 1994-1999 Lucent Technologies Inc.  All rights reserved.
     5  //	Portions Copyright © 1995-1997 C H Forsyth (forsyth@terzarima.net)
     6  //	Portions Copyright © 1997-1999 Vita Nuova Limited
     7  //	Portions Copyright © 2000-2007 Vita Nuova Holdings Limited (www.vitanuova.com)
     8  //	Portions Copyright © 2004,2006 Bruce Ellis
     9  //	Portions Copyright © 2005-2007 C H Forsyth (forsyth@terzarima.net)
    10  //	Revisions Copyright © 2000-2007 Lucent Technologies Inc. and others
    11  //	Portions Copyright © 2009 The Go Authors.  All rights reserved.
    12  //
    13  // Permission is hereby granted, free of charge, to any person obtaining a copy
    14  // of this software and associated documentation files (the "Software"), to deal
    15  // in the Software without restriction, including without limitation the rights
    16  // to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
    17  // copies of the Software, and to permit persons to whom the Software is
    18  // furnished to do so, subject to the following conditions:
    19  //
    20  // The above copyright notice and this permission notice shall be included in
    21  // all copies or substantial portions of the Software.
    22  //
    23  // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
    24  // IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
    25  // FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
    26  // AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
    27  // LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
    28  // OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
    29  // THE SOFTWARE.
    30  
    31  // Reading object files.
    32  
    33  #include	"l.h"
    34  #include	"../ld/lib.h"
    35  #include	"../ld/elf.h"
    36  #include	"../ld/dwarf.h"
    37  #include	<ar.h>
    38  
    39  char *thestring = "arm";
    40  LinkArch *thelinkarch = &linkarm;
    41  
    42  void
    43  linkarchinit(void)
    44  {
    45  }
    46  
    47  void
    48  archinit(void)
    49  {
    50  	LSym *s;
    51  
    52  	// getgoextlinkenabled is based on GO_EXTLINK_ENABLED when
    53  	// Go was built; see ../../make.bash.
    54  	if(linkmode == LinkAuto && strcmp(getgoextlinkenabled(), "0") == 0)
    55  		linkmode = LinkInternal;
    56  
    57  	switch(HEADTYPE) {
    58  	default:
    59  		if(linkmode == LinkAuto)
    60  			linkmode = LinkInternal;
    61  		if(linkmode == LinkExternal && strcmp(getgoextlinkenabled(), "1") != 0)
    62  			sysfatal("cannot use -linkmode=external with -H %s", headstr(HEADTYPE));
    63  		break;
    64  	case Hlinux:
    65  	case Hfreebsd:
    66  	case Hnacl:
    67  		break;
    68  	}
    69  
    70  	switch(HEADTYPE) {
    71  	default:
    72  		diag("unknown -H option");
    73  		errorexit();
    74  	case Hplan9:	/* plan 9 */
    75  		HEADR = 32L;
    76  		if(INITTEXT == -1)
    77  			INITTEXT = 4128;
    78  		if(INITDAT == -1)
    79  			INITDAT = 0;
    80  		if(INITRND == -1)
    81  			INITRND = 4096;
    82  		break;
    83  	case Hlinux:	/* arm elf */
    84  	case Hakaros:
    85  	case Hfreebsd:
    86  	case Hnetbsd:
    87  		debug['d'] = 0;	// with dynamic linking
    88  		elfinit();
    89  		HEADR = ELFRESERVE;
    90  		if(INITTEXT == -1)
    91  			INITTEXT = 0x10000 + HEADR;
    92  		if(INITDAT == -1)
    93  			INITDAT = 0;
    94  		if(INITRND == -1)
    95  			INITRND = 4096;
    96  		break;
    97  	case Hnacl:
    98  		elfinit();
    99  		HEADR = 0x10000;
   100  		funcalign = 16;
   101  		if(INITTEXT == -1)
   102  			INITTEXT = 0x20000;
   103  		if(INITDAT == -1)
   104  			INITDAT = 0;
   105  		if(INITRND == -1)
   106  			INITRND = 0x10000;
   107  		break;
   108  	}
   109  	if(INITDAT != 0 && INITRND != 0)
   110  		print("warning: -D0x%ux is ignored because of -R0x%ux\n",
   111  			INITDAT, INITRND);
   112  
   113  	// embed goarm to runtime.goarm
   114  	s = linklookup(ctxt, "runtime.goarm", 0);
   115  	s->type = SRODATA;
   116  	adduint8(ctxt, s, ctxt->goarm);
   117  }