diff options
| author | Nick Barnes | 2002-05-14 13:06:13 +0100 |
|---|---|---|
| committer | Nick Barnes | 2002-05-14 13:06:13 +0100 |
| commit | 833f5bf257e3acff6162176efc70f25ef005b037 (patch) | |
| tree | e41f7ed1e545bf2d69dd28431c149b424ea252f5 /mps/code/amcss.c | |
| parent | c5e9dc4c8402721d8ed29a368ea7604136c00341 (diff) | |
| download | emacs-833f5bf257e3acff6162176efc70f25ef005b037.tar.gz emacs-833f5bf257e3acff6162176efc70f25ef005b037.zip | |
Improve treatment of dylan formats: keep common code in fmtdy.c, header-specific code in fmthe.c, the null format in fmtno.[ch], and split out the prototypes for the test functions into fmtdytst.h.
Copied from Perforce
Change: 29145
ServerID: perforce.ravenbrook.com
Diffstat (limited to 'mps/code/amcss.c')
| -rw-r--r-- | mps/code/amcss.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/mps/code/amcss.c b/mps/code/amcss.c index 34983f61783..7b1308edb5f 100644 --- a/mps/code/amcss.c +++ b/mps/code/amcss.c | |||
| @@ -5,6 +5,7 @@ | |||
| 5 | */ | 5 | */ |
| 6 | 6 | ||
| 7 | #include "fmtdy.h" | 7 | #include "fmtdy.h" |
| 8 | #include "fmtdytst.h" | ||
| 8 | #include "testlib.h" | 9 | #include "testlib.h" |
| 9 | #include "mpscamc.h" | 10 | #include "mpscamc.h" |
| 10 | #include "mpsavm.h" | 11 | #include "mpsavm.h" |
| @@ -50,7 +51,7 @@ static void enable(mps_arena_t arena) | |||
| 50 | static void report(mps_arena_t arena) | 51 | static void report(mps_arena_t arena) |
| 51 | { | 52 | { |
| 52 | mps_message_t message; | 53 | mps_message_t message; |
| 53 | 54 | ||
| 54 | while (mps_message_get(&message, arena, mps_message_type_gc())) { | 55 | while (mps_message_get(&message, arena, mps_message_type_gc())) { |
| 55 | size_t live, condemned, not_condemned; | 56 | size_t live, condemned, not_condemned; |
| 56 | 57 | ||
| @@ -163,7 +164,7 @@ static void *test(void *arg, size_t s) | |||
| 163 | break; | 164 | break; |
| 164 | } | 165 | } |
| 165 | } while(1); | 166 | } while(1); |
| 166 | 167 | ||
| 167 | report(arena); | 168 | report(arena); |
| 168 | for(r = 0; r < exactRootsCOUNT; ++r) | 169 | for(r = 0; r < exactRootsCOUNT; ++r) |
| 169 | cdie(exactRoots[r] == objNULL || | 170 | cdie(exactRoots[r] == objNULL || |