diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1997-09-02 12:55:01 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1997-09-02 12:55:01 +0000 |
| commit | 1517cea772058b0fcbe778d05b8b99c7e6f3b25f (patch) | |
| tree | a2d817fe623f81b7729ed3cd2e128cad91eca02b /byterun/minor_gc.c | |
| parent | d75918f7e459b507ac6b4b95f14df0a1eedd4937 (diff) | |
| download | ocaml-1517cea772058b0fcbe778d05b8b99c7e6f3b25f.tar.gz | |
Sources C convertis en ANSI C
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1696 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/minor_gc.c')
| -rw-r--r-- | byterun/minor_gc.c | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/byterun/minor_gc.c b/byterun/minor_gc.c index 522ec74015..86d93d6c97 100644 --- a/byterun/minor_gc.c +++ b/byterun/minor_gc.c @@ -32,8 +32,7 @@ value **ref_table_ptr = NULL, **ref_table_limit; static asize_t ref_table_size, ref_table_reserve; int in_minor_collection = 0; -void set_minor_heap_size (size) - asize_t size; +void set_minor_heap_size (asize_t size) { char *new_heap; value **new_table; @@ -65,9 +64,7 @@ void set_minor_heap_size (size) ref_table_end = ref_table + ref_table_size + ref_table_reserve; } -void oldify (v, p) - value v; - value *p; +void oldify (value v, value *p) { value result, field0; header_t hd; @@ -120,7 +117,7 @@ void oldify (v, p) } } -void minor_collection () +void minor_collection (void) { value **r; long prev_alloc_words = allocated_words; @@ -142,8 +139,7 @@ void minor_collection () force_major_slice = 0; } -value check_urgent_gc (extra_root) - value extra_root; +value check_urgent_gc (value extra_root) { if (force_major_slice) { Begin_root(extra_root); @@ -153,7 +149,7 @@ value check_urgent_gc (extra_root) return extra_root; } -void realloc_ref_table () +void realloc_ref_table (void) { Assert (ref_table_ptr == ref_table_limit); Assert (ref_table_limit <= ref_table_end); Assert (ref_table_limit >= ref_table_threshold); |