diff options
| -rw-r--r-- | gcc/ChangeLog.MELT | 10 | ||||
| -rw-r--r-- | gcc/melt-runtime.c | 10 | ||||
| -rw-r--r-- | gcc/melt-runtime.h | 3 | ||||
| -rw-r--r-- | gcc/melt/warmelt-outobj.melt | 11 |
4 files changed, 28 insertions, 6 deletions
diff --git a/gcc/ChangeLog.MELT b/gcc/ChangeLog.MELT index 0122434cc32..0d260cc40a7 100644 --- a/gcc/ChangeLog.MELT +++ b/gcc/ChangeLog.MELT @@ -1,4 +1,14 @@ +2010-07-01 Basile Starynkevitch <basile@starynkevitch.net>: + {{tfullgc.melt still crashes!}} + + * melt-runtime.h: Added $Id$ comment & svn:keywords property. + + * melt-runtime.c: ditto. + + * melt/warmelt-outobj.melt: Generating dbgprintf in the + forward_or_mark_module_start_frame_* generated routines. + 2010-06-30 Basile Starynkevitch <basile@starynkevitch.net> * melt-runtime.c (melt_marking_callback): Made better cast for call to cf->mcfr_forwmarkrout. diff --git a/gcc/melt-runtime.c b/gcc/melt-runtime.c index 8151fe870d1..edd657c7767 100644 --- a/gcc/melt-runtime.c +++ b/gcc/melt-runtime.c @@ -1,8 +1,8 @@ /*** file melt-runtime.c - Middle End Lisp Translator = MELT - Copyright (C) 2008, 2009, 2010 Free Software Foundation, Inc. - Contributed by Basile Starynkevitch <basile@starynkevitch.net> - Indented with GNU indent. + Middle End Lisp Translator + MELT Copyright (C) 2008, 2009, 2010 Free Software Foundation, Inc. + Contributed by Basile Starynkevitch <basile@starynkevitch.net> + Indented with GNU indent. This file is part of GCC. @@ -11993,4 +11993,4 @@ end: md5sum of the preprocessed form of melt-run.h */ #include "melt-run-md5.h" -/* eof melt-runtime.c */ +/* eof $Id$ */ diff --git a/gcc/melt-runtime.h b/gcc/melt-runtime.h index 93b050bc2ab..5d2ff9af165 100644 --- a/gcc/melt-runtime.h +++ b/gcc/melt-runtime.h @@ -3721,4 +3721,5 @@ melt_get_file(melt_ptr_t file_p) extern const char melt_run_preprocessed_md5[]; /* defined in generated file melt-run-md5.h */ #endif /*MELT_INCLUDED_ */ -/* eof melt-runtime.h */ + +/* eof $Id$ */ diff --git a/gcc/melt/warmelt-outobj.melt b/gcc/melt/warmelt-outobj.melt index 4439b3ff04c..55f74f0e398 100644 --- a/gcc/melt/warmelt-outobj.melt +++ b/gcc/melt/warmelt-outobj.melt @@ -1551,6 +1551,12 @@ ;; output the forwarding (add2sbuf_strconst implbuf "if (!marking && melt_is_forwarding) {") (add2sbuf_indentnl implbuf 1) + (add2sbuf_strconst implbuf "dbgprintf (\"forward_or_mark_module_start_frame_") + (add2sbuf_cident implbuf omodnam) + (add2sbuf_strconst implbuf " forwarding %d pointers in frame %p\", ") + (add2sbuf_longdec implbuf nbval) + (add2sbuf_strconst implbuf ", (void*) framptr_);") + (add2sbuf_indentnl implbuf 1) (add2sbuf_strconst implbuf "for (ix = 0; ix < ") (add2sbuf_longdec implbuf nbval) (add2sbuf_strconst implbuf "; ix++) MELT_FORWARDED(framptr_->mcfr_varptr[ix]);") @@ -1558,7 +1564,12 @@ (add2sbuf_strconst implbuf " return;") (add2sbuf_indentnl implbuf 1) (add2sbuf_strconst implbuf "} /*end forwarding*/") + (add2sbuf_indentnl implbuf 0) ;; output the marking + (add2sbuf_strconst implbuf "dbgprintf (\"forward_or_mark_module_start_frame_") + (add2sbuf_cident implbuf omodnam) + (add2sbuf_strconst implbuf " marking in frame %p\", (void*) framptr_);") + (add2sbuf_indentnl implbuf 0) (outpucod_marker pini implbuf) (add2sbuf_indentnl implbuf 0) (add2sbuf_strconst implbuf "} /* end forward_or_mark_module_start_frame_") |