Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

encore du 68k qui trainait 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3645 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Damien Doligez 2001-08-21 15:11:40 +00:00
parent f5759d294a
commit 8945c234c0
1 changed files with 0 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
bytecomp/bytelink.ml
View File

@ -428,14 +428,6 @@ let build_custom_runtime prim_name exec_name =
remove_file (Filename.chop_suffix prim_name ".c" ^ ".obj");
retcode
| "MacOS" ->
let c68k = "sc"
and libs68k = "\"{libraries}IntEnv.far.o\" \
\"{libraries}MacRuntime.o\" \
\"{clibraries}StdCLib.far.o\" \
\"{libraries}MathLib.far.o\" \
\"{libraries}ToolLibs.o\" \
\"{libraries}Interface.o\""
and link68k = "ilink -compact -state nouse -model far -msg nodup"
and cppc = "mrc"
and libsppc = "\"{sharedlibraries}MathLib\" \
\"{ppclibraries}PPCCRuntime.o\" \
@ -444,18 +436,11 @@ let build_custom_runtime prim_name exec_name =
\"{ppclibraries}StdCRuntime.o\" \
\"{sharedlibraries}InterfaceLib\""
and linkppc = "ppclink -d"
and objs68k = extract ".o" (List.rev !Clflags.ccobjs)
and objsppc = extract ".x" (List.rev !Clflags.ccobjs)
and q_prim_name = Filename.quote prim_name
and q_stdlib = Filename.quote Config.standard_library
and q_exec_name = Filename.quote exec_name
in
Ccomp.run_command (Printf.sprintf "%s -i %s %s %s -o %s.o"
c68k
q_stdlib
(String.concat " " (List.rev_map Filename.quote !Clflags.ccopts))
q_prim_name
q_prim_name);
Ccomp.run_command (Printf.sprintf "%s -i %s %s %s -o %s.x"
cppc
q_stdlib
@ -463,15 +448,6 @@ let build_custom_runtime prim_name exec_name =
q_prim_name
q_prim_name);
Ccomp.run_command ("delete -i " ^ q_exec_name);
Ccomp.run_command (Printf.sprintf
"%s -t MPST -c 'MPS ' -o %s %s.o %s %s %s"
link68k
q_exec_name
q_prim_name
(String.concat " " (List.map Filename.quote objs68k))
(Filename.quote
(Filename.concat Config.standard_library "libcamlrun.o"))
libs68k);
Ccomp.command (Printf.sprintf
"%s -t MPST -c 'MPS ' -o %s %s.x %s %s %s"
linkppc