mirror of
https://github.com/Interlisp/maiko.git
synced 2026-03-15 14:27:19 +00:00
Compare commits
2 Commits
maiko-2109
...
maiko-2109
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
f7e40d1ed5 | ||
|
|
9bb5a4298c |
@@ -340,17 +340,17 @@ void OP_subrcall(int subr_no, int argnum) {
|
||||
C_slowbltchar(args);
|
||||
break;
|
||||
|
||||
case 0215:
|
||||
case sb_UNCOLORIZE_BITMAP:
|
||||
POP_SUBR_ARGS;
|
||||
Uncolorize_Bitmap(args);
|
||||
break;
|
||||
|
||||
case 0216:
|
||||
case sb_COLORIZE_BITMAP:
|
||||
POP_SUBR_ARGS;
|
||||
Colorize_Bitmap(args);
|
||||
break;
|
||||
|
||||
case 0217:
|
||||
case sb_COLOR_8BPPDRAWLINE:
|
||||
POP_SUBR_ARGS;
|
||||
Draw_8BppColorLine(args);
|
||||
break;
|
||||
@@ -673,7 +673,7 @@ void OP_subrcall(int subr_no, int argnum) {
|
||||
TopOfStack = with_symbol(args[0], args[1], args[2], args[3], args[4], args[5]);
|
||||
break;
|
||||
|
||||
case 0222: /* Cause an interrupt to occur. Used by */
|
||||
case sb_CAUSE_INTERRUPT: /* Cause an interrupt to occur. Used by */
|
||||
/* Lisp INTERRUPTED to re-set an interrupt */
|
||||
/* when it's uninterruptible. */
|
||||
POP_SUBR_ARGS;
|
||||
|
||||
Reference in New Issue
Block a user