2 * Software emulation of some PPC instructions for the 8xx core.
4 * Copyright (C) 1998 Dan Malek (dmalek@jlc.net)
6 * Software floating emuation for the MPC8xx processor. I did this mostly
7 * because it was easier than trying to get the libraries compiled for
8 * software floating point. The goal is still to get the libraries done,
9 * but I lost patience and needed some hacks to at least get init and
10 * shells running. The first problem is the setjmp/longjmp that save
11 * and restore the floating point registers.
13 * For this emulation, our working registers are found on the register
17 #include <linux/errno.h>
18 #include <linux/sched.h>
19 #include <linux/kernel.h>
21 #include <linux/stddef.h>
22 #include <linux/unistd.h>
23 #include <linux/ptrace.h>
24 #include <linux/malloc.h>
25 #include <linux/user.h>
26 #include <linux/a.out.h>
27 #include <linux/interrupt.h>
29 #include <asm/pgtable.h>
30 #include <asm/uaccess.h>
31 #include <asm/system.h>
33 #include <asm/processor.h>
35 /* Eventually we may need a look-up table, but this works for now.
45 * We return 0 on success, 1 on unimplemented instruction, and EFAULT
46 * if a load/store faulted.
49 Soft_emulate_8xx(struct pt_regs
*regs
)
52 uint flreg
, idxreg
, disp
;
59 instword
= *((uint
*)regs
->nip
);
60 inst
= instword
>> 26;
62 flreg
= (instword
>> 21) & 0x1f;
63 idxreg
= (instword
>> 16) & 0x1f;
64 disp
= instword
& 0xffff;
66 ea
= (uint
*)(regs
->gpr
[idxreg
] + disp
);
67 ip
= (uint
*)¤t
->tss
.fpr
[flreg
];
72 /* this is a 16 bit quantity that is sign extended
73 * so use a signed short here -- Cort
75 sdisp
= (instword
& 0xffff);
76 ea
= (uint
*)(regs
->gpr
[idxreg
] + sdisp
);
77 if (copy_from_user(ip
, ea
, sizeof(double)))
82 if (copy_from_user(ip
, ea
, sizeof(double)))
85 regs
->gpr
[idxreg
] = (uint
)ea
;
88 sdisp
= (instword
& 0xffff);
89 ea
= (uint
*)(regs
->gpr
[idxreg
] + sdisp
);
90 if (copy_from_user(ip
, ea
, sizeof(float)))
94 /* this is a 16 bit quantity that is sign extended
95 * so use a signed short here -- Cort
97 sdisp
= (instword
& 0xffff);
98 ea
= (uint
*)(regs
->gpr
[idxreg
] + sdisp
);
99 if (copy_to_user(ea
, ip
, sizeof(double)))
104 if (copy_to_user(ea
, ip
, sizeof(double)))
107 regs
->gpr
[idxreg
] = (uint
)ea
;
110 /* assume this is a fp move -- Cort */
111 memcpy( ip
, ¤t
->tss
.fpr
[(instword
>>11)&0x1f],
116 printk("Bad emulation %s/%d\n"
117 " NIP: %08x instruction: %08x opcode: %x "
118 "A: %x B: %x C: %x code: %x rc: %x\n",
119 current
->comm
,current
->pid
,
129 print_8xx_pte(current
->mm
,regs
->nip
);
130 pa
= get_8xx_pte(current
->mm
,regs
->nip
) & PAGE_MASK
;
131 pa
|= (regs
->nip
& ~PAGE_MASK
);
133 printk("Kernel VA for NIP %x ", pa
);
134 print_8xx_pte(current
->mm
,pa
);