github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-03-22 16:58:03 +00:00
Code Issues Projects Releases Wiki Activity

Cleans up the interrupt state structure to match Lisp naming

Browse Source 
Adds names for individual interrupt-in-progress bits in the
struct interrupt_state to match the structure defined in Lisp.

Adjusts the base datatype to DLword to make clear the size and
alignment of interrupt bits in the structure.
This commit is contained in:
Nick Briggs
2025-12-07 18:39:59 -08:00
parent eedc8a504a
commit cdaa7b6889
1 changed files with 36 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
inc/lispemul.h
View File

@@ -65,21 +65,28 @@ typedef struct closure_type {
#endif /* BIGVM */
typedef struct interrupt_state { /* Interrupt-request mask to communicate with INTERRUPTED */
unsigned LogFileIO : 1; /* console msg arrived to print */
unsigned ETHERInterrupt : 1; /* 10MB activity happened */
unsigned IOInterrupt : 1; /* I/O happened (not used yet) */
unsigned gcdisabled : 1;
unsigned vmemfull : 1;
unsigned stackoverflow : 1;
unsigned storagefull : 1;
unsigned waitinginterrupt : 1;
unsigned nil : 8; /* mask of ints being processed */
DLword LogFileIO : 1; /* console msg arrived to print */
DLword ETHERInterrupt : 1; /* 10MB activity happened */
DLword IOInterrupt : 1; /* I/O happened (not used yet) */
DLword gcdisabled : 1;
DLword vmemfull : 1;
DLword stackoverflow : 1;
DLword storagefull : 1;
DLword waitinginterrupt : 1;
DLword P_LogFileIO : 1; /* interrupts awaiting processing, cleared by Lisp */
DLword P_ETHERInterrupt : 1;
DLword P_IOInterrupt : 1;
DLword P_gcdisabled : 1;
DLword P_vmemfull : 1;
DLword P_stackoverflow : 1;
DLword P_storagefull : 1;
DLword P_waitinginterrupt : 1;
DLword intcharcode;
} INTSTAT;
typedef struct interrupt_state_2 { /* alternate view of the interrupt state */
unsigned pendingmask : 8;
unsigned handledmask : 8;
DLword pendingmask : 8;
DLword handledmask : 8;
DLword nil;
} INTSTAT2;
@@ -204,21 +211,28 @@ typedef struct closure_type {
typedef struct interrupt_state { /* Interrupt-request mask to communicate with INTERRUPTED */
DLword intcharcode;
unsigned nil : 8;
unsigned waitinginterrupt : 1;
unsigned storagefull : 1;
unsigned stackoverflow : 1;
unsigned vmemfull : 1;
unsigned gcdisabled : 1;
unsigned IOInterrupt : 1; /* I/O happened (not used yet) */
unsigned ETHERInterrupt : 1; /* 10MB activity happened */
unsigned LogFileIO : 1; /* console msg arrived to print */
DLword P_waitinginterrupt : 1; /* interrupts awaiting processing, cleared by Lisp */
DLword P_storagefull : 1;
DLword P_stackoverflow : 1;
DLword P_vmemfull : 1;
DLword P_gcdisabled : 1;
DLword P_IOInterrupt : 1;
DLword P_ETHERInterrupt : 1;
DLword P_LogFileIO : 1;
DLword waitinginterrupt : 1;
DLword storagefull : 1;
DLword stackoverflow : 1;
DLword vmemfull : 1;
DLword gcdisabled : 1;
DLword IOInterrupt : 1; /* I/O happened (not used yet) */
DLword ETHERInterrupt : 1; /* 10MB activity happened */
DLword LogFileIO : 1; /* console msg arrived to print */
} INTSTAT;
typedef struct interrupt_state_2 { /* alternate view of the interrupt state */
DLword nil;
unsigned handledmask : 8;
unsigned pendingmask : 8;
DLword handledmask : 8;
DLword pendingmask : 8;
} INTSTAT2;
struct state {