arch/parisc/kernel/real2.S

   1 /*
   2  *
   3  * This file is subject to the terms and conditions of the GNU General Public
   4  * License.  See the file "COPYING" in the main directory of this archive
   5  * for more details.
   6  *
   7  * Copyright (C) 2000 Hewlett Packard (Paul Bame bame@puffin.external.hp.com)
   8  *
   9  */
  10 #include <asm/assembly.h>
  11 #include <asm/psw.h>
  12
  13         .section        .bss
  14         .export real_stack
  15         .export real32_stack
  16         .export real64_stack
  17         .align  64
  18 real_stack:
  19 real32_stack:
  20 real64_stack:
  21         .block  8192
  22
  23 #ifdef __LP64__
  24 #  define REG_SZ 8
  25 #else
  26 #  define REG_SZ 4
  27 #endif
  28
  29 #define N_SAVED_REGS 9
  30
  31 save_cr_space:
  32         .block  REG_SZ * N_SAVED_REGS
  33 save_cr_end:
  34
  35
  36 /************************ 32-bit real-mode calls ***********************/
  37 /* This can be called in both narrow and wide kernels */
  38
  39         .text
  40
  41         .export real32_call_asm
  42
  43         /* unsigned long real32_call_asm(unsigned int *sp,
  44          *              unsigned int *arg0p,
  45          *              unsigned int iodc_fn)
  46          *      sp is value of stack pointer to adopt before calling PDC (virt)
  47          *      arg0p points to where saved arg values may be found
  48          *      iodc_fn is the IODC function to call
  49          */
  50
  51 real32_call_asm:
  52         STREG   %rp, -RP_OFFSET(%sp)    /* save RP */
  53 #ifdef __LP64__
  54         callee_save
  55         ldo     2*REG_SZ(%sp), %sp      /* room for a couple more saves */
  56         STREG   %r27, -1*REG_SZ(%sp)
  57         STREG   %r29, -2*REG_SZ(%sp)
  58 #endif
  59         STREG   %sp, -REG_SZ(%arg0)     /* save SP on real-mode stack */
  60         copy    %arg0, %sp              /* adopt the real-mode SP */
  61
  62         /* save iodc_fn */
  63         copy    %arg2, %r31
  64
  65         /* load up the arg registers from the saved arg area */
  66         /* 32-bit calling convention passes first 4 args in registers */
  67         ldw     0(%arg1), %arg0         /* note overwriting arg0 */
  68         ldw     -8(%arg1), %arg2
  69         ldw     -12(%arg1), %arg3
  70         ldw     -4(%arg1), %arg1        /* obviously must do this one last! */
  71
  72         tophys_r1  %sp
  73
  74         b,l     rfi_virt2real,%r2
  75         nop
  76
  77         b,l     save_control_regs,%r2           /* modifies r1, r2, r28 */
  78         nop
  79
  80 #ifdef __LP64__
  81         rsm     PSW_SM_W, %r0           /* go narrow */
  82 #endif
  83
  84         load32  PA(ric_ret), %r2
  85         bv      0(%r31)
  86         nop
  87 ric_ret:
  88 #ifdef __LP64__
  89         ssm     PSW_SM_W, %r0           /* go wide */
  90 #endif
  91         /* restore CRs before going virtual in case we page fault */
  92         b,l     restore_control_regs, %r2       /* modifies r1, r2, r26 */
  93         nop
  94
  95         b,l     rfi_real2virt,%r2
  96         nop
  97
  98         tovirt_r1 %sp
  99         LDREG   -REG_SZ(%sp), %sp       /* restore SP */
 100 #ifdef __LP64__
 101         LDREG   -1*REG_SZ(%sp), %r27
 102         LDREG   -2*REG_SZ(%sp), %r29
 103         ldo     -2*REG_SZ(%sp), %sp
 104         callee_rest
 105 #endif
 106         LDREG   -RP_OFFSET(%sp), %rp    /* restore RP */
 107         bv      0(%rp)
 108         nop
 109
 110
 111 #  define PUSH_CR(r, where) mfctl r, %r1 ! STREG,ma %r1, REG_SZ(where)
 112 #  define POP_CR(r, where) LDREG,mb -REG_SZ(where), %r1 ! mtctl %r1, r
 113
 114         .text
 115 save_control_regs:
 116         load32  PA(save_cr_space), %r28
 117         PUSH_CR(%cr24, %r28)
 118         PUSH_CR(%cr25, %r28)
 119         PUSH_CR(%cr26, %r28)
 120         PUSH_CR(%cr27, %r28)
 121         PUSH_CR(%cr28, %r28)
 122         PUSH_CR(%cr29, %r28)
 123         PUSH_CR(%cr30, %r28)
 124         PUSH_CR(%cr31, %r28)
 125         PUSH_CR(%cr15, %r28)
 126         bv 0(%r2)
 127         nop
 128
 129 restore_control_regs:
 130         load32  PA(save_cr_end), %r26
 131         POP_CR(%cr15, %r26)
 132         POP_CR(%cr31, %r26)
 133         POP_CR(%cr30, %r26)
 134         POP_CR(%cr29, %r26)
 135         POP_CR(%cr28, %r26)
 136         POP_CR(%cr27, %r26)
 137         POP_CR(%cr26, %r26)
 138         POP_CR(%cr25, %r26)
 139         POP_CR(%cr24, %r26)
 140         bv 0(%r2)
 141         nop
 142
 143 /* rfi_virt2real() and rfi_real2virt() could perhaps be adapted for
 144  * more general-purpose use by the several places which need RFIs
 145  */
 146         .align 128
 147         .text
 148 rfi_virt2real:
 149         /* switch to real mode... */
 150         ssm             0,0             /* See "relied upon translation" */
 151         nop                             /* PA 2.0 Arch. F-5 */
 152         nop
 153         nop
 154         nop
 155         nop
 156         nop
 157         nop
 158         nop
 159
 160         rsm             (PSW_SM_Q|PSW_SM_I),%r0  /* disable Q & I bits to load iia queue */
 161         mtctl           %r0, %cr17      /* Clear IIASQ tail */
 162         mtctl           %r0, %cr17      /* Clear IIASQ head */
 163         load32          PA(rfi_v2r_1), %r1
 164         mtctl           %r1, %cr18      /* IIAOQ head */
 165         ldo             4(%r1), %r1
 166         mtctl           %r1, %cr18      /* IIAOQ tail */
 167         load32          REAL_MODE_PSW, %r1
 168         mtctl           %r1, %cr22
 169         rfi
 170
 171         nop
 172         nop
 173         nop
 174         nop
 175         nop
 176         nop
 177         nop
 178         nop
 179 rfi_v2r_1:
 180         tophys_r1 %r2
 181         bv      0(%r2)
 182         nop
 183
 184         .text
 185         .align 128
 186 rfi_real2virt:
 187         ssm             0,0             /* See "relied upon translation" */
 188         nop                             /* PA 2.0 Arch. F-5 */
 189         nop
 190         nop
 191         nop
 192         nop
 193         nop
 194         nop
 195         nop
 196
 197         rsm             PSW_SM_Q,%r0    /* disable Q bit to load iia queue */
 198         mtctl           %r0, %cr17      /* Clear IIASQ tail */
 199         mtctl           %r0, %cr17      /* Clear IIASQ head */
 200         load32          (rfi_r2v_1), %r1
 201         mtctl           %r1, %cr18      /* IIAOQ head */
 202         ldo             4(%r1), %r1
 203         mtctl           %r1, %cr18      /* IIAOQ tail */
 204         load32          KERNEL_PSW, %r1
 205         mtctl           %r1, %cr22
 206         rfi
 207
 208         nop
 209         nop
 210         nop
 211         nop
 212         nop
 213         nop
 214         nop
 215         nop
 216 rfi_r2v_1:
 217         tovirt_r1 %r2
 218         bv      0(%r2)
 219         nop
 220
 221 #ifdef __LP64__
 222
 223 /************************ 64-bit real-mode calls ***********************/
 224 /* This is only usable in wide kernels right now and will probably stay so */
 225         .text
 226         .export real64_call_asm
 227         /* unsigned long real64_call_asm(unsigned long *sp,
 228          *              unsigned long *arg0p,
 229          *              unsigned long fn)
 230          *      sp is value of stack pointer to adopt before calling PDC (virt)
 231          *      arg0p points to where saved arg values may be found
 232          *      iodc_fn is the IODC function to call
 233          */
 234 real64_call_asm:
 235         std     %rp, -0x10(%sp)         /* save RP */
 236         std     %sp, -8(%arg0)          /* save SP on real-mode stack */
 237         copy    %arg0, %sp              /* adopt the real-mode SP */
 238
 239         /* save fn */
 240         copy    %arg2, %r31
 241
 242         /* set up the new ap */
 243         ldo     64(%arg1), %r29
 244
 245         /* load up the arg registers from the saved arg area */
 246         /* 32-bit calling convention passes first 4 args in registers */
 247         ldd     0*REG_SZ(%arg1), %arg0          /* note overwriting arg0 */
 248         ldd     2*REG_SZ(%arg1), %arg2
 249         ldd     3*REG_SZ(%arg1), %arg3
 250         ldd     4*REG_SZ(%arg1), %r22
 251         ldd     5*REG_SZ(%arg1), %r21
 252         ldd     6*REG_SZ(%arg1), %r20
 253         ldd     7*REG_SZ(%arg1), %r19
 254         ldd     1*REG_SZ(%arg1), %arg1          /* do this one last! */
 255
 256         tophys_r1 %sp
 257
 258         b,l     rfi_virt2real,%r2
 259         nop
 260
 261         b,l     save_control_regs,%r2           /* modifies r1, r2, r28 */
 262         nop
 263
 264         load32  PA(r64_ret), %r2
 265         bv      0(%r31)
 266         nop
 267 r64_ret:
 268         /* restore CRs before going virtual in case we page fault */
 269         b,l     restore_control_regs, %r2       /* modifies r1, r2, r26 */
 270         nop
 271
 272         b,l     rfi_real2virt,%r2
 273         nop
 274
 275         tovirt_r1 %sp
 276         ldd     -8(%sp), %sp            /* restore SP */
 277         ldd     -0x10(%sp), %rp         /* restore RP */
 278         bv      0(%rp)
 279         nop
 280
 281 #endif
 282
 283         .export pc_in_user_space
 284         .text
 285         /* Doesn't belong here but I couldn't find a nicer spot. */
 286         /* Should never get called, only used by profile stuff in time.c */
 287 pc_in_user_space:
 288         bv,n    0(%rp)
 289         nop
 290
 291
 292         .export __canonicalize_funcptr_for_compare
 293         .text
 294         /* http://lists.parisc-linux.org/hypermail/parisc-linux/10916.html
 295         **      GCC 3.3 and later has a new function in libgcc.a for
 296         **      comparing function pointers.
 297         */
 298 __canonicalize_funcptr_for_compare:
 299 #ifdef __LP64__
 300         bve (%r2)
 301 #else
 302         bv %r0(%r2)
 303 #endif
 304         copy %r26,%r28