diff --git a/kern/gno/ctool.asm b/kern/gno/ctool.asm index 9bcceb8..847f9fa 100644 --- a/kern/gno/ctool.asm +++ b/kern/gno/ctool.asm @@ -1,4 +1,4 @@ -* $Id: ctool.asm,v 1.1 1998/02/02 08:19:14 taubert Exp $ +* $Id: ctool.asm,v 1.2 1998/02/22 05:05:40 taubert Exp $ mcopy m/ctool.mac @@ -16,9 +16,8 @@ ; jsl $E10000 ;always bra always ;goold pla -; dc i1'$5C' ;OLDDISPHAND ENTRY -; dc i4'0' +; jmp >$000000 ; END * all processes that end with RTL come here @@ -174,9 +173,8 @@ badBoy dc c'QuickDraw is already started.' END DoOldQD START - dc i1'$5C' OLDQDSTARTUP ENTRY - dc i4'0' + jmp >$000000 END * The new Sane Startup only stores the program's chosen SANE DP space @@ -195,9 +193,8 @@ sanedp equ 7+1 ldx curProcInd sta SANEwap,x plb - dc i1'$5C' OLDSANESU ENTRY - dc i4'0' + jmp >$000000 END SANESDPATCH START diff --git a/kern/gno/diag.c b/kern/gno/diag.c index bd7378e..05ca493 100644 --- a/kern/gno/diag.c +++ b/kern/gno/diag.c @@ -1,4 +1,4 @@ -/* $Id: diag.c,v 1.1 1998/02/02 08:18:23 taubert Exp $ */ +/* $Id: diag.c,v 1.2 1998/02/22 05:05:42 taubert Exp $ */ /* kernel diagnostics and error routines */ #pragma optimize 79 @@ -27,11 +27,14 @@ extern kernelStructPtr kp; void traceback(word stack) { - word j; + word i, j; - for (j = stack; (jstack + sta stack lda >0xE0C029 and #0xFF7F sta >0xE0C029 } - traceback(stack+2); + /* + * NOTE: When PANIC() is modified, this constant added to stack should + * be tuned to point to the caller's return address. + */ + traceback(stack + 0xA); kern_printf("SYSTEM PANIC: %s\n\r",str); noway: diff --git a/kern/gno/global.equates b/kern/gno/global.equates index 9831889..c488d77 100644 --- a/kern/gno/global.equates +++ b/kern/gno/global.equates @@ -1,3 +1,4 @@ +* $Id: global.equates,v 1.2 1998/02/22 05:05:43 taubert Exp $ ********************************************************************* * * GSOS/P16/Shell Call DP locations diff --git a/kern/gno/kern.asm b/kern/gno/kern.asm index a6ed49e..a567712 100644 --- a/kern/gno/kern.asm +++ b/kern/gno/kern.asm @@ -1,4 +1,4 @@ -* $Id: kern.asm,v 1.1 1998/02/02 08:19:28 taubert Exp $ +* $Id: kern.asm,v 1.2 1998/02/22 05:05:45 taubert Exp $ * GNO Multitasking environment * Low-level Kernel code @@ -668,9 +668,8 @@ SaveAllPatch START pla plb plp - dc i1'$5C' OLDSAVEALL ENTRY - dc i4'0' + jmp >$000000 RestAllPatch ENTRY php @@ -747,14 +746,10 @@ RestAllPatch ENTRY ; ldy #0 ; jmp tool_exit -gooldRest dc i1'$5C' OLDRESTALL ENTRY - dc i4'0' + jmp >$000000 savedCDAInfo ENTRY -tblockCP dc i2'0' ; FIXME - remove this -tcount dc i2'0' ; FIXME - remove this -tbufState dc i2'0' ; FIXME - remove this ttruepid dc i2'0' tcurProcInd dc i2'0' tgsosDebug dc i2'0' diff --git a/kern/gno/m/select.mac b/kern/gno/m/select.mac index 7ceed83..7cbe4ee 100644 --- a/kern/gno/m/select.mac +++ b/kern/gno/m/select.mac @@ -263,11 +263,6 @@ pastName&SYSCNT anop .pastName MEND MACRO -&lab _PostEvent -&lab ldx #$1406 - jsl $E10000 - MEND - MACRO &lab _ClampMouse &lab ldx #$1C03 jsl $E10000 diff --git a/kern/gno/signal.c b/kern/gno/signal.c index 927113c..4d99cd0 100644 --- a/kern/gno/signal.c +++ b/kern/gno/signal.c @@ -1,4 +1,4 @@ -/* $Id: signal.c,v 1.1 1998/02/02 08:18:56 taubert Exp $ */ +/* $Id: signal.c,v 1.2 1998/02/22 05:05:49 taubert Exp $ */ /* Signals work like this. The following paragraphs only describe calling a handler routine, as @@ -265,7 +265,6 @@ extern void disposevar(int); tosig->ticks + tosig->childTicks; } if (!(tosig->flags & FL_COMPLIANT)) { - int c = 5; enableBuf(); } /* If the process was in a sleep queue, remove it - do not ready */