Remove AFS_PARISC_LINUX24_ENV references
[openafs.git] / src / lwp / process.s.hpux
1 /*
2  * Copyright 2000, International Business Machines Corporation and others.
3  * All Rights Reserved.
4  * 
5  * This software has been released under the terms of the IBM Public
6  * License.  For details, see the LICENSE file in the top-level source
7  * directory or online at http://www.openafs.org/dl/license10.html
8  */
9
10 #ifdef AFS_HPUX_ENV
11 #ifdef hp9000s300
12 /*
13 #
14 #       Process assembly language assist for HP 9000 series 300s.
15 #
16 */
17
18         text
19
20 /*
21 #
22 # struct savearea {
23 #       char    *topstack;
24 # }
25 #
26 */
27
28         global  _PRE_Block
29
30         set topstack,0
31
32 /* Stuff to allow saving/restoring registers */
33         set NREGS,13
34         set REGS,0x3ffe                 # d1-d7 & a0-a5
35
36 /*
37 # savecontext(f, area1, newsp)
38 #     int (*f)(); struct savearea *area1; char *newsp;
39 */
40
41 /* Stack offsets of arguments */
42         set f,8
43         set area1,12
44         set newsp,16
45
46         global  _savecontext
47 _savecontext:
48         mov.b   &1,_PRE_Block           # Dont allow any interrupt finagling
49         link    %a6,&-(NREGS*4)         # Save frame pointer & ...
50                                         # ... allocate space for nregs registers
51 /* Save registers */
52         movem.l &REGS,(%sp)
53
54         mov.l   area1(%a6),%a0          # a0 = base of savearea
55         mov.l   %sp,topstack(%a0)       # area->topstack = sp
56         mov.l   newsp(%a6),%d0          # Get new sp
57         beq.b   l1                      # If newsp == 0, no stack switch
58         mov.l   %d0,%sp                 # Switch to new stack
59 l1:
60         mov.l   f(%a6),%a0              # a0 = f
61         jsr     (%a0)                   # f()
62
63 /* It is impossible to be here, so abort() */
64
65         jsr     _abort
66
67 /*
68 # returnto(area2)
69 #     struct savearea *area2;
70 */
71
72 /* Stack offset of argument */
73 set     area2,8
74
75         global _returnto
76 _returnto:
77         link    %a6,&0
78         mov.l   area2(%a6),%a0          # Base of savearea
79         mov.l   topstack(%a0),%sp       # Restore sp
80 /* Restore registers */
81         movem.l (%sp),&REGS
82
83         add.l   &(NREGS*4),%sp
84         mov.l   %sp,%a6                 # Argghh...be careful here
85         unlk    %a6
86         clr.b   _PRE_Block
87         rts                             # Return to previous process
88 #else
89
90         .CODE
91
92         ;
93         ; savecontext(f, area1, newsp)
94         ;    int (*f)();
95         ;    struct savearea *area1;
96         ;    char *newsp;
97         ;
98 savecontext
99         .PROC
100         ;
101         ; Callinfo sets up register saves using the ENTRY_GR
102         ; and ENTRY_FR parameters.  ENTRY_FR=21 is only valid
103         ; for PA 1.1.  (How to deal with this for 800?)
104         ;
105         .CALLINFO CALLER,FRAME=0,SAVE_RP,ENTRY_GR=18,ENTRY_FR=21
106         ; The ENTER statement generates register saves and
107         ; procedure setup.
108         .ENTER
109
110         LDI   1,%r31                            ; Store a (char) 1 in
111         ADDIL LR'PRE_Block-$global$,%r27        ; global variable
112         STB   %r31,RR'PRE_Block-$global$(0,%r1) ; PRE_Block.
113
114         COPY  %r26,%r22         ; Copy arg0 (f) to dyncall's input register.
115
116         COMIB,= 0,%r24,L$0001   ; Compare arg2 (newsp) to 0.  Execute the
117                                 ; next instruction regardless of value.
118         STWS  %r30,0(0,%r25)    ; Store the stack pointer in the first
119                                 ; element (0th offset) of arg1 (area1).
120         COPY  %r24,%r30         ; Move arg2 (newsp) into the stack ptr.
121
122 L$0001
123         .CALL
124         BL    $$dyncall,%r31    ; Dynamic call using pointer in r22.
125         COPY  %r31,%r2
126
127         .CALL
128         BL    abort,%r2         ; Can't get here, so abort.
129         NOP
130         .LEAVE
131         .PROCEND
132
133         ; returnto(area2)
134         ;    struct savearea *area2;
135         ;
136 returnto
137         .PROC
138         .CALLINFO CALLER,FRAME=0,SAVE_RP,ENTRY_GR=18,ENTRY_FR=21
139         ;  No ENTRY is used since this is a magic routine.
140         ADDIL LR'PRE_Block-$global$,%r27        ; PRE_Block = 0
141         STB   %r0,RR'PRE_Block-$global$(0,%r1)
142
143         LDWS  0(0,%r26),%r30    ; Load the stack pointer from area2
144         .LEAVE
145         .PROCEND
146
147         .EXPORT savecontext,ENTRY
148         .EXPORT returnto,ENTRY
149         .IMPORT $global$,DATA
150         .IMPORT PRE_Block,DATA
151         .IMPORT $$dyncall,MILLICODE
152         .IMPORT abort,CODE
153
154         .END
155 #endif /* hp9000s300 */
156 #endif /* AFS_HPUX_ENV */