1995-08-09 08:06:35 -07:00
|
|
|
(***********************************************************************)
|
|
|
|
(* *)
|
1996-04-30 07:53:58 -07:00
|
|
|
(* Objective Caml *)
|
1995-08-09 08:06:35 -07:00
|
|
|
(* *)
|
|
|
|
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
|
|
|
|
(* *)
|
1996-04-30 07:53:58 -07:00
|
|
|
(* Copyright 1996 Institut National de Recherche en Informatique et *)
|
1999-11-17 10:59:06 -08:00
|
|
|
(* en Automatique. All rights reserved. This file is distributed *)
|
|
|
|
(* under the terms of the Q Public License version 1.0. *)
|
1995-08-09 08:06:35 -07:00
|
|
|
(* *)
|
|
|
|
(***********************************************************************)
|
|
|
|
|
|
|
|
(* $Id$ *)
|
|
|
|
|
2002-02-05 09:11:33 -08:00
|
|
|
(* The main OCaml version string has moved to stdlib/sys.ml *)
|
|
|
|
let version = Sys.ocaml_version
|
1996-02-15 08:19:09 -08:00
|
|
|
|
|
|
|
let standard_library =
|
2001-10-30 01:32:32 -08:00
|
|
|
try
|
|
|
|
Sys.getenv "OCAMLLIB"
|
|
|
|
with Not_found ->
|
1996-02-15 08:19:09 -08:00
|
|
|
try
|
|
|
|
Sys.getenv "CAMLLIB"
|
|
|
|
with Not_found ->
|
|
|
|
"%%LIBDIR%%"
|
1995-05-04 03:15:53 -07:00
|
|
|
|
1998-04-14 07:48:34 -07:00
|
|
|
let standard_runtime = "%%BYTERUN%%"
|
2002-06-07 02:49:45 -07:00
|
|
|
let ccomp_type = "%%CCOMPTYPE%%"
|
1995-07-18 01:42:01 -07:00
|
|
|
let bytecomp_c_compiler = "%%BYTECC%%"
|
2000-04-16 07:34:58 -07:00
|
|
|
let bytecomp_c_linker = "%%BYTELINK%%"
|
2000-10-27 08:18:24 -07:00
|
|
|
let bytecomp_c_libraries = "%%BYTECCLIBS%%"
|
1995-07-18 01:42:01 -07:00
|
|
|
let native_c_compiler = "%%NATIVECC%%"
|
2000-04-16 07:34:58 -07:00
|
|
|
let native_c_linker = "%%NATIVELINK%%"
|
2000-10-27 08:18:24 -07:00
|
|
|
let native_c_libraries = "%%NATIVECCLIBS%%"
|
1997-03-17 05:01:04 -08:00
|
|
|
let native_partial_linker = "%%PARTIALLD%%"
|
2003-07-03 08:13:23 -07:00
|
|
|
let native_pack_linker = "%%PACKLD%%"
|
1996-11-07 03:01:32 -08:00
|
|
|
let ranlib = "%%RANLIBCMD%%"
|
2002-02-08 08:55:44 -08:00
|
|
|
let binutils_nm = "%%BINUTILS_NM%%"
|
|
|
|
let binutils_objcopy = "%%BINUTILS_OBJCOPY%%"
|
2002-12-02 04:31:19 -08:00
|
|
|
let cc_profile = "%%CC_PROFILE%%"
|
1995-05-04 03:15:53 -07:00
|
|
|
|
2001-11-26 04:47:03 -08:00
|
|
|
let exec_magic_number = "Caml1999X007"
|
2002-08-05 07:15:46 -07:00
|
|
|
and cmi_magic_number = "Caml1999I009"
|
|
|
|
and cmo_magic_number = "Caml1999O005"
|
2001-10-30 01:32:32 -08:00
|
|
|
and cma_magic_number = "Caml1999A006"
|
2002-08-05 07:15:46 -07:00
|
|
|
and cmx_magic_number = "Caml1999Y008"
|
|
|
|
and cmxa_magic_number = "Caml1999Z009"
|
2002-11-01 09:06:47 -08:00
|
|
|
and ast_impl_magic_number = "Caml1999M010"
|
|
|
|
and ast_intf_magic_number = "Caml1999N009"
|
1995-05-04 03:15:53 -07:00
|
|
|
|
|
|
|
let load_path = ref ([] : string list)
|
|
|
|
|
1998-05-27 07:10:14 -07:00
|
|
|
let interface_suffix = ref ".mli"
|
|
|
|
|
2002-01-20 09:39:10 -08:00
|
|
|
let max_tag = 245
|
2002-12-19 07:49:53 -08:00
|
|
|
(* This is normally the same as in obj.ml, but we have to define it
|
|
|
|
separately because it can differ when we're in the middle of a
|
|
|
|
bootstrapping phase. *)
|
|
|
|
let lazy_tag = 246
|
|
|
|
|
1995-10-03 07:07:03 -07:00
|
|
|
let max_young_wosize = 256
|
2001-05-28 08:14:18 -07:00
|
|
|
let stack_threshold = 256 (* see byterun/config.h *)
|
1995-08-08 05:17:31 -07:00
|
|
|
|
|
|
|
let architecture = "%%ARCH%%"
|
1996-01-07 09:00:35 -08:00
|
|
|
let model = "%%MODEL%%"
|
1995-08-08 05:17:31 -07:00
|
|
|
let system = "%%SYSTEM%%"
|
1996-02-15 08:19:09 -08:00
|
|
|
|
|
|
|
let ext_obj = "%%EXT_OBJ%%"
|
|
|
|
let ext_asm = "%%EXT_ASM%%"
|
|
|
|
let ext_lib = "%%EXT_LIB%%"
|
2001-08-28 07:47:48 -07:00
|
|
|
let ext_dll = "%%EXT_DLL%%"
|
2002-06-11 07:15:12 -07:00
|
|
|
|
|
|
|
let default_executable_name =
|
|
|
|
match Sys.os_type with
|
|
|
|
"Unix" -> "a.out"
|
|
|
|
| "Win32" | "Cygwin" -> "camlprog.exe"
|
|
|
|
| _ -> "camlprog"
|