1// Inferno utils/5l/obj.c
2// https://bitbucket.org/inferno-os/inferno-os/src/master/utils/5l/obj.c
3//
4//	Copyright © 1994-1999 Lucent Technologies Inc.  All rights reserved.
5//	Portions Copyright © 1995-1997 C H Forsyth ([email protected])
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 ([email protected])
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
31package s390x
32
33import (
34	"cmd/internal/objabi"
35	"cmd/internal/sys"
36	"cmd/link/internal/ld"
37)
38
39func Init() (*sys.Arch, ld.Arch) {
40	arch := sys.ArchS390X
41
42	theArch := ld.Arch{
43		Funcalign:  funcAlign,
44		Maxalign:   maxAlign,
45		Minalign:   minAlign,
46		Dwarfregsp: dwarfRegSP,
47		Dwarfreglr: dwarfRegLR,
48
49		Adddynrel:        adddynrel,
50		Archinit:         archinit,
51		Archreloc:        archreloc,
52		Archrelocvariant: archrelocvariant,
53		Gentext:          gentext,
54		Machoreloc1:      machoreloc1,
55
56		ELF: ld.ELFArch{
57			Linuxdynld:     "/lib64/ld64.so.1",
58			LinuxdynldMusl: "/lib/ld-musl-s390x.so.1",
59
60			// not relevant for s390x
61			Freebsddynld:   "XXX",
62			Openbsddynld:   "XXX",
63			Netbsddynld:    "XXX",
64			Dragonflydynld: "XXX",
65			Solarisdynld:   "XXX",
66
67			Reloc1:    elfreloc1,
68			RelocSize: 24,
69			SetupPLT:  elfsetupplt,
70		},
71	}
72
73	return arch, theArch
74}
75
76func archinit(ctxt *ld.Link) {
77	switch ctxt.HeadType {
78	default:
79		ld.Exitf("unknown -H option: %v", ctxt.HeadType)
80
81	case objabi.Hlinux: // s390x ELF
82		ld.Elfinit(ctxt)
83		ld.HEADR = ld.ELFRESERVE
84		if *ld.FlagRound == -1 {
85			*ld.FlagRound = 0x10000
86		}
87		if *ld.FlagTextAddr == -1 {
88			*ld.FlagTextAddr = ld.Rnd(0x10000, *ld.FlagRound) + int64(ld.HEADR)
89		}
90	}
91}
92