From: keie Date: Tue, 18 Dec 1984 17:12:12 +0000 (+0000) Subject: 1 - signal did not clear the stack properly. X-Git-Tag: release-5-5~5834 X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=37d01caabdff4fff2c774f826de6a3c4b5cb160f;p=ack.git 1 - signal did not clear the stack properly. 2 - lseek did not return correct. --- diff --git a/mach/mantra/int/mloopc b/mach/mantra/int/mloopc index e37a8e284..7b60d6ff6 100644 --- a/mach/mantra/int/mloopc +++ b/mach/mantra/int/mloopc @@ -1,7 +1,10 @@ !THIS FILE CONTAINS THE SYSTEM CALLS FOR PMDS-II AS SUBROUTINES FOR THE !EM-INTERPRETER. a1 CONTAINS A POINTER TO THE RETURN AREA . EACH SUBROUTINE !EXPECTS ITS DATA IN THE FORM EM PRODUCES AND GIVES ITS RESULTS AS EM -!REQUIRES +!REQUIRES. +!THE PMDS-II REQUIRES THE ARGUMENTS ON THE STACK AS 4 BYTE INTEGERS OR +!POINTERS , AND USES THE C-CALLING CONVENTION. THE 2 BYTE WORDS 4 BYTE +!POINTERS VERSION HAS TO DO SOME CONVERSION FIRST . _exit: move.l (sp),(a1) #ifndef lword @@ -186,8 +189,7 @@ _lseek: move.l (sp),(a1) mov d0,-(sp) mov d0,-(sp) bra 2f -1: move.l d1,-(sp) - mov d0,-(sp) +1: move.l d0,-(sp) cl -(sp) 2: move.l (a1),a0 jmp (a0) @@ -359,10 +361,14 @@ _signal: move.l (sp)+,retaddr move.l retaddr,-(sp) trap #0 .short 48 + lea 12(sp),sp !remove arguments + bcc 1f mov d0,-(sp) - bne 1f mov d0,-(sp) -1: move.l retaddr,a0 + bra 2f +1: mov d0,-(sp) + cl -(sp) +2: move.l retaddr,a0 jmp (a0) .data retaddr: .long 0