| 351 | } |
| 352 | |
| 353 | void check_ints(sexpr list, int low, int up) |
| 354 | { |
| 355 | if (SEXPR_TO_INT(car(car(list))) != low) { |
| 356 | (void)GC_printf( |
| 357 | "List reversal produced incorrect list - collector is broken\n"); |
| 358 | FAIL; |
| 359 | } |
| 360 | if (low == up) { |
| 361 | if (cdr(list) != nil) { |
| 362 | (void)GC_printf("List too long - collector is broken\n"); |
| 363 | FAIL; |
| 364 | } |
| 365 | } else { |
| 366 | check_ints(cdr(list), low+1, up); |
| 367 | } |
| 368 | } |
| 369 | |
| 370 | # define UNCOLLECTABLE_CDR(x) (sexpr)(~(GC_word)(cdr(x))) |
| 371 |
no test coverage detected