blob: f7d31ad81c9f3982db4bab3bc7539a1688efe113 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
#/bin/sh
### Temporary fix for production of .cmxs on MacOS 10.5
OCAMLOPT=$1
CMXS=$2
DIR=`dirname $CMXS`
BASE=`basename $CMXS .cmxs`
CMXA=$DIR/$BASE.cmxa
ARC=$DIR/$BASE.a
# we assume that all object files are at the same place than the rest
OBJS=`ar t $ARC | sed -e "s|^|$DIR/|" | grep -v SYMDEF`
$OCAMLOPT -dstartup -linkall -shared -o $CMXS $CMXA
# Fix1: add a dummy instruction before the caml generic functions
# Fix2: make all caml generic functions private
rm -f $CMXS $CMXS.startup.fixed.s
cat $CMXS.startup.s | sed \
-e "s/_caml_shared_startup__code_begin:/_caml_shared_startup__code_begin: ret/" \
-e "s/.globl _caml_curry/.private_extern _caml_curry/" \
-e "s/.globl _caml_apply/.private_extern _caml_apply/" \
-e "s/.globl _caml_tuplify/.private_extern _caml_tuplify/" \
> $CMXS.startup.fixed.s
# Recompile fixed startup code
as -o $CMXS.startup.o $CMXS.startup.fixed.s
# Build fixed .cmxs (assume all object files are at the same place)
ld -bundle -flat_namespace -undefined warning -read_only_relocs suppress -o $CMXS $OBJS $CMXS.startup.o
rm $CMXS.startup.o $CMXS.startup.s $CMXS.startup.fixed.s
|
