- free = SymbolValue(FREE_INTERRUPT_CONTEXT_INDEX)>>2;
-
- if (more_p(ptr)) {
- int index;
-
- index = parse_number(ptr);
-
- if ((index >= 0) && (index < free)) {
- printf("There are %d interrupt contexts.\n", free);
- printf("printing context %d\n", index);
- print_context(lisp_interrupt_contexts[index]);
- } else {
- printf("There aren't that many/few contexts.\n");
- printf("There are %d interrupt contexts.\n", free);
- }
- } else {
- if (free == 0)
- printf("There are no interrupt contexts!\n");
- else {
- printf("There are %d interrupt contexts.\n", free);
- printf("printing context %d\n", free - 1);
- print_context(lisp_interrupt_contexts[free - 1]);
- }
- }
+ free_ici = fixnum_value(SymbolValue(FREE_INTERRUPT_CONTEXT_INDEX,thread));
+
+ if (more_p(ptr)) {
+ int index;
+
+ index = parse_number(ptr);
+
+ if ((index >= 0) && (index < free_ici)) {
+ printf("There are %d interrupt contexts.\n", free_ici);
+ printf("printing context %d\n", index);
+ print_context(thread->interrupt_contexts[index]);
+ } else {
+ printf("There aren't that many/few contexts.\n");
+ printf("There are %d interrupt contexts.\n", free_ici);
+ }
+ } else {
+ if (free_ici == 0)
+ printf("There are no interrupt contexts!\n");
+ else {
+ printf("There are %d interrupt contexts.\n", free_ici);
+ printf("printing context %d\n", free_ici - 1);
+ print_context(thread->interrupt_contexts[free_ici - 1]);
+ }
+ }