Lines 75-81
Link Here
|
75 |
(execute |
75 |
(execute |
76 |
(twobit-format |
76 |
(twobit-format |
77 |
#f |
77 |
#f |
78 |
"gcc -falign-functions=4 -c ~a ~a -D__USE_FIXED_PROTOTYPES__ -Wpointer-arith -Wimplicit ~a -o ~a ~a" |
78 |
"gcc -fPIC -falign-functions=4 -c ~a ~a -D__USE_FIXED_PROTOTYPES__ -Wpointer-arith -Wimplicit ~a -o ~a ~a" |
79 |
(if (optimize-c-code) "" "-gstabs+") |
79 |
(if (optimize-c-code) "" "-gstabs+") |
80 |
unix/petit-include-path |
80 |
unix/petit-include-path |
81 |
(if (optimize-c-code) "-O3 -DNDEBUG" "") |
81 |
(if (optimize-c-code) "-O3 -DNDEBUG" "") |
Lines 97-103
Link Here
|
97 |
(execute |
97 |
(execute |
98 |
(twobit-format |
98 |
(twobit-format |
99 |
#f |
99 |
#f |
100 |
"gcc ~a -rdynamic -o ~a ~a ~a" |
100 |
"gcc -fPIC ~a -rdynamic -o ~a ~a ~a" |
101 |
(if (optimize-c-code) "" "-gstabs+") |
101 |
(if (optimize-c-code) "" "-gstabs+") |
102 |
output-name |
102 |
output-name |
103 |
(apply string-append (insert-space object-files)) |
103 |
(apply string-append (insert-space object-files)) |
Lines 107-113
Link Here
|
107 |
(execute |
107 |
(execute |
108 |
(twobit-format |
108 |
(twobit-format |
109 |
#f |
109 |
#f |
110 |
"gcc ~a -o ~a ~a ~a" |
110 |
"gcc -fPIC ~a -o ~a ~a ~a" |
111 |
(if (optimize-c-code) "" "-gstabs+") |
111 |
(if (optimize-c-code) "" "-gstabs+") |
112 |
output-name |
112 |
output-name |
113 |
(apply string-append (insert-space object-files)) |
113 |
(apply string-append (insert-space object-files)) |
Lines 117-123
Link Here
|
117 |
(execute |
117 |
(execute |
118 |
(twobit-format |
118 |
(twobit-format |
119 |
#f |
119 |
#f |
120 |
"gcc ~a -Wl,-export-dynamic -o ~a ~a ~a" |
120 |
"gcc -fPIC ~a -Wl,-export-dynamic -o ~a ~a ~a" |
121 |
(if (optimize-c-code) "" "-gstabs+") |
121 |
(if (optimize-c-code) "" "-gstabs+") |
122 |
output-name |
122 |
output-name |
123 |
(apply string-append (insert-space object-files)) |
123 |
(apply string-append (insert-space object-files)) |
Lines 127-133
Link Here
|
127 |
(execute |
127 |
(execute |
128 |
(twobit-format |
128 |
(twobit-format |
129 |
#f |
129 |
#f |
130 |
"gcc ~a -shared -o ~a ~a ~a" |
130 |
"gcc -fPIC ~a -shared -o ~a ~a ~a" |
131 |
(if (optimize-c-code) "" "-gstabs+") |
131 |
(if (optimize-c-code) "" "-gstabs+") |
132 |
output-name |
132 |
output-name |
133 |
(apply string-append (insert-space object-files)) |
133 |
(apply string-append (insert-space object-files)) |
Lines 137-143
Link Here
|
137 |
(execute |
137 |
(execute |
138 |
(twobit-format |
138 |
(twobit-format |
139 |
#f |
139 |
#f |
140 |
"gcc ~a -shared -o ~a ~a ~a" |
140 |
"gcc -fPIC ~a -shared -o ~a ~a ~a" |
141 |
(if (optimize-c-code) "" "-gstabs+") |
141 |
(if (optimize-c-code) "" "-gstabs+") |
142 |
output-name |
142 |
output-name |
143 |
(apply string-append (insert-space object-files)) |
143 |
(apply string-append (insert-space object-files)) |
Lines 149-155
Link Here
|
149 |
(execute |
149 |
(execute |
150 |
(twobit-format |
150 |
(twobit-format |
151 |
#f |
151 |
#f |
152 |
"gcc ~a -flat_namespace -bundle -undefined suppress -o ~a ~a ~a" |
152 |
"gcc -fPIC ~a -flat_namespace -bundle -undefined suppress -o ~a ~a ~a" |
153 |
(if (optimize-c-code) "" "-gstabs+") |
153 |
(if (optimize-c-code) "" "-gstabs+") |
154 |
output-name |
154 |
output-name |
155 |
(apply string-append (insert-space object-files)) |
155 |
(apply string-append (insert-space object-files)) |