suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix place-channel GC marker, plus a typo in mark-proc generator

Browse Source
This commit is contained in:
Matthew Flatt 2011-05-13 07:22:55 -06:00
parent 49aadc599a
commit 70a0b741b0
28 changed files with 27 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/racket/src/mkmark.rkt
View File

@ -114,7 +114,7 @@
(let ([who (cadr m)]
[so (open-output-bytes)])
(parameterize ([current-output-port so])
(printf "/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */\n")
(printf "/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */\n")
(let file-loop ()
(let ([l (read-line)])
(if (eof-object? l)

2
src/racket/src/mzmark_compenv.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
static int mark_comp_env_SIZE(void *p, struct NewGC *gc) {
return

2
src/racket/src/mzmark_compile.inc
View File

@ -1,2 +1,2 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */

2
src/racket/src/mzmark_env.inc
View File

@ -1,2 +1,2 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */

2
src/racket/src/mzmark_eval.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
static int mark_comp_info_SIZE(void *p, struct NewGC *gc) {
return

2
src/racket/src/mzmark_fun.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
static int mark_closure_info_SIZE(void *p, struct NewGC *gc) {
return

2
src/racket/src/mzmark_future.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
#ifdef MZ_USE_FUTURES

2
src/racket/src/mzmark_hash.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
static int hash_tree_val_SIZE(void *p, struct NewGC *gc) {
return

2
src/racket/src/mzmark_jit.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
static int native_closure_SIZE(void *p, struct NewGC *gc) {
Scheme_Native_Closure *c = (Scheme_Native_Closure *)p;

2
src/racket/src/mzmark_network.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
static int mark_listener_SIZE(void *p, struct NewGC *gc) {
listener_t *l = (listener_t *)p;

2
src/racket/src/mzmark_optimize.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
static int mark_optimize_info_SIZE(void *p, struct NewGC *gc) {
return

5
src/racket/src/mzmark_place.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
static int place_bi_channel_val_SIZE(void *p, struct NewGC *gc) {
return
@ -68,11 +68,8 @@ static int place_async_channel_val_MARK(void *p, struct NewGC *gc) {
static int place_async_channel_val_FIXUP(void *p, struct NewGC *gc) {
Scheme_Place_Async_Channel *pac = (Scheme_Place_Async_Channel *)p;
int i;
gcFIXUP2(pac->msgs, gc);
gcFIXUP2(pac->msg_memory, gc);
for (i = pac->size; i--; )
gcFIXUP2(pac->msgs[i], gc);
return
gcBYTES_TO_WORDS(sizeof(Scheme_Place_Async_Channel));

2
src/racket/src/mzmark_port.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
#ifdef WINDOWS_PROCESSES
static int mark_thread_memory_SIZE(void *p, struct NewGC *gc) {

2
src/racket/src/mzmark_portfun.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
static int mark_load_handler_data_SIZE(void *p, struct NewGC *gc) {
return

2
src/racket/src/mzmark_print.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
static int mark_print_params_SIZE(void *p, struct NewGC *gc) {
return

2
src/racket/src/mzmark_read.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
static int mark_indent_SIZE(void *p, struct NewGC *gc) {
return

2
src/racket/src/mzmark_regexp.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
static int mark_regexp_SIZE(void *p, struct NewGC *gc) {
regexp *r = (regexp *)p;

2
src/racket/src/mzmark_resolve.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
static int mark_resolve_info_SIZE(void *p, struct NewGC *gc) {
return

2
src/racket/src/mzmark_salloc.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
static int mark_finalization_SIZE(void *p, struct NewGC *gc) {
return

2
src/racket/src/mzmark_sema.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
static int mark_channel_syncer_SIZE(void *p, struct NewGC *gc) {
return

2
src/racket/src/mzmark_sfs.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
static int mark_sfs_info_SIZE(void *p, struct NewGC *gc) {
return

2
src/racket/src/mzmark_string.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
static int mark_string_convert_SIZE(void *p, struct NewGC *gc) {
return

2
src/racket/src/mzmark_struct.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
#ifdef MZ_USE_PLACES
static int mark_serialized_struct_val_SIZE(void *p, struct NewGC *gc) {

2
src/racket/src/mzmark_syntax.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
static int mark_rename_table_SIZE(void *p, struct NewGC *gc) {
return

2
src/racket/src/mzmark_thread.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
static int mark_parameterization_SIZE(void *p, struct NewGC *gc) {
return

2
src/racket/src/mzmark_type.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
static int variable_obj_SIZE(void *p, struct NewGC *gc) {
return

2
src/racket/src/mzmark_validate.inc
View File

@ -1,4 +1,4 @@
/* >>>> Generated by mkmarak.rkt from mzmarksrc.c <<<< */
/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
static int mark_validate_clearing_SIZE(void *p, struct NewGC *gc) {
return

3
src/racket/src/mzmarksrc.c
View File

@ -1457,11 +1457,8 @@ place_val {
place_async_channel_val {
mark:
Scheme_Place_Async_Channel *pac = (Scheme_Place_Async_Channel *)p;
int i;
gcMARK2(pac->msgs, gc);
gcMARK2(pac->msg_memory, gc);
for (i = pac->size; i--; )
gcMARK2(pac->msgs[i], gc);
size:
gcBYTES_TO_WORDS(sizeof(Scheme_Place_Async_Channel));