blob: 8b2e99883167b265862d07e4b331487e26d655ad (
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
--- a/byterun/caml/intext.h
+++ b/byterun/caml/intext.h
@@ -196,7 +196,7 @@
CAMLextern struct code_fragment * caml_extern_find_code(char *addr);
-struct ext_table caml_code_fragments_table;
+extern struct ext_table caml_code_fragments_table;
#endif /* CAML_INTERNALS */
--- a/byterun/caml/major_gc.h
+++ b/byterun/caml/major_gc.h
@@ -64,9 +64,9 @@
extern char *caml_gc_sweep_hp;
extern int caml_major_window;
-double caml_major_ring[Max_major_window];
-int caml_major_ring_index;
-double caml_major_work_credit;
+extern double caml_major_ring[Max_major_window];
+extern int caml_major_ring_index;
+extern double caml_major_work_credit;
extern double caml_gc_clock;
/* [caml_major_gc_hook] is called just between the end of the mark
--- a/byterun/meta.c
+++ b/byterun/meta.c
@@ -32,6 +32,8 @@
#include "caml/prims.h"
#include "caml/stacks.h"
+struct ext_table caml_code_fragments_table;
+
#ifndef NATIVE_CODE
CAMLprim value caml_get_global_data(value unit)
--- a/byterun/backtrace.c
+++ b/byterun/backtrace.c
@@ -28,7 +28,7 @@
#include "caml/fail.h"
/* The table of debug information fragments */
-struct ext_table caml_debug_info;
+extern struct ext_table caml_debug_info;
CAMLexport int32_t caml_backtrace_active = 0;
CAMLexport int32_t caml_backtrace_pos = 0;
--- a/asmrun/startup.c
+++ b/asmrun/startup.c
@@ -44,7 +44,7 @@
#endif
extern int caml_parser_trace;
-CAMLexport header_t caml_atom_table[256];
+CAMLextern header_t caml_atom_table[256];
char * caml_code_area_start, * caml_code_area_end;
/* Initialize the atom table and the static data and code area limits. */
|
GitWeb
