1 // Derived from Inferno utils/6l/obj.c and utils/6l/span.c
2 // https://bitbucket.org/inferno-os/inferno-os/src/master/utils/6l/obj.c
3 // https://bitbucket.org/inferno-os/inferno-os/src/master/utils/6l/span.c
4 //
5 // Copyright © 1994-1999 Lucent Technologies Inc. All rights reserved.
6 // Portions Copyright © 1995-1997 C H Forsyth (forsyth@terzarima.net)
7 // Portions Copyright © 1997-1999 Vita Nuova Limited
8 // Portions Copyright © 2000-2007 Vita Nuova Holdings Limited (www.vitanuova.com)
9 // Portions Copyright © 2004,2006 Bruce Ellis
10 // Portions Copyright © 2005-2007 C H Forsyth (forsyth@terzarima.net)
11 // Revisions Copyright © 2000-2007 Lucent Technologies Inc. and others
12 // Portions Copyright © 2009 The Go Authors. All rights reserved.
13 //
14 // Permission is hereby granted, free of charge, to any person obtaining a copy
15 // of this software and associated documentation files (the "Software"), to deal
16 // in the Software without restriction, including without limitation the rights
17 // to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
18 // copies of the Software, and to permit persons to whom the Software is
19 // furnished to do so, subject to the following conditions:
20 //
21 // The above copyright notice and this permission notice shall be included in
22 // all copies or substantial portions of the Software.
23 //
24 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
25 // IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
26 // FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
27 // AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
28 // LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
29 // OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
30 // THE SOFTWARE.
31
32 package obj
33
34 /*
35 * add library to library list.
36 * srcref: src file referring to package
37 * objref: object file referring to package
38 * file: object file, e.g., /home/rsc/go/pkg/container/vector.a
39 * pkg: package import path, e.g. container/vector
40 */
41
42 const (
43 LOG = 5
44 )
45
46 func mkfwd(sym *LSym) {
47 var dwn [LOG]int32
48 var cnt [LOG]int32
49 var lst [LOG]*Prog
50
51 for i := 0; i < LOG; i++ {
52 if i == 0 {
53 cnt[i] = 1
54 } else {
55 cnt[i] = LOG * cnt[i-1]
56 }
57 dwn[i] = 1
58 lst[i] = nil
59 }
60
61 i := 0
62 for p := sym.Func.Text; p != nil && p.Link != nil; p = p.Link {
63 i--
64 if i < 0 {
65 i = LOG - 1
66 }
67 p.Forwd = nil
68 dwn[i]--
69 if dwn[i] <= 0 {
70 dwn[i] = cnt[i]
71 if lst[i] != nil {
72 lst[i].Forwd = p
73 }
74 lst[i] = p
75 }
76 }
77 }
78
79 func Appendp(q *Prog, newprog ProgAlloc) *Prog {
80 p := newprog()
81 p.Link = q.Link
82 q.Link = p
83 p.Pos = q.Pos
84 return p
85 }
86