book3s_paired_singles.c 31 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265
  1. /*
  2. * This program is free software; you can redistribute it and/or modify
  3. * it under the terms of the GNU General Public License, version 2, as
  4. * published by the Free Software Foundation.
  5. *
  6. * This program is distributed in the hope that it will be useful,
  7. * but WITHOUT ANY WARRANTY; without even the implied warranty of
  8. * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  9. * GNU General Public License for more details.
  10. *
  11. * You should have received a copy of the GNU General Public License
  12. * along with this program; if not, write to the Free Software
  13. * Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  14. *
  15. * Copyright Novell Inc 2010
  16. *
  17. * Authors: Alexander Graf <agraf@suse.de>
  18. */
  19. #include <asm/kvm.h>
  20. #include <asm/kvm_ppc.h>
  21. #include <asm/disassemble.h>
  22. #include <asm/kvm_book3s.h>
  23. #include <asm/kvm_fpu.h>
  24. #include <asm/reg.h>
  25. #include <asm/cacheflush.h>
  26. #include <linux/vmalloc.h>
  27. /* #define DEBUG */
  28. #ifdef DEBUG
  29. #define dprintk printk
  30. #else
  31. #define dprintk(...) do { } while(0);
  32. #endif
  33. #define OP_LFS 48
  34. #define OP_LFSU 49
  35. #define OP_LFD 50
  36. #define OP_LFDU 51
  37. #define OP_STFS 52
  38. #define OP_STFSU 53
  39. #define OP_STFD 54
  40. #define OP_STFDU 55
  41. #define OP_PSQ_L 56
  42. #define OP_PSQ_LU 57
  43. #define OP_PSQ_ST 60
  44. #define OP_PSQ_STU 61
  45. #define OP_31_LFSX 535
  46. #define OP_31_LFSUX 567
  47. #define OP_31_LFDX 599
  48. #define OP_31_LFDUX 631
  49. #define OP_31_STFSX 663
  50. #define OP_31_STFSUX 695
  51. #define OP_31_STFX 727
  52. #define OP_31_STFUX 759
  53. #define OP_31_LWIZX 887
  54. #define OP_31_STFIWX 983
  55. #define OP_59_FADDS 21
  56. #define OP_59_FSUBS 20
  57. #define OP_59_FSQRTS 22
  58. #define OP_59_FDIVS 18
  59. #define OP_59_FRES 24
  60. #define OP_59_FMULS 25
  61. #define OP_59_FRSQRTES 26
  62. #define OP_59_FMSUBS 28
  63. #define OP_59_FMADDS 29
  64. #define OP_59_FNMSUBS 30
  65. #define OP_59_FNMADDS 31
  66. #define OP_63_FCMPU 0
  67. #define OP_63_FCPSGN 8
  68. #define OP_63_FRSP 12
  69. #define OP_63_FCTIW 14
  70. #define OP_63_FCTIWZ 15
  71. #define OP_63_FDIV 18
  72. #define OP_63_FADD 21
  73. #define OP_63_FSQRT 22
  74. #define OP_63_FSEL 23
  75. #define OP_63_FRE 24
  76. #define OP_63_FMUL 25
  77. #define OP_63_FRSQRTE 26
  78. #define OP_63_FMSUB 28
  79. #define OP_63_FMADD 29
  80. #define OP_63_FNMSUB 30
  81. #define OP_63_FNMADD 31
  82. #define OP_63_FCMPO 32
  83. #define OP_63_MTFSB1 38 // XXX
  84. #define OP_63_FSUB 20
  85. #define OP_63_FNEG 40
  86. #define OP_63_MCRFS 64
  87. #define OP_63_MTFSB0 70
  88. #define OP_63_FMR 72
  89. #define OP_63_MTFSFI 134
  90. #define OP_63_FABS 264
  91. #define OP_63_MFFS 583
  92. #define OP_63_MTFSF 711
  93. #define OP_4X_PS_CMPU0 0
  94. #define OP_4X_PSQ_LX 6
  95. #define OP_4XW_PSQ_STX 7
  96. #define OP_4A_PS_SUM0 10
  97. #define OP_4A_PS_SUM1 11
  98. #define OP_4A_PS_MULS0 12
  99. #define OP_4A_PS_MULS1 13
  100. #define OP_4A_PS_MADDS0 14
  101. #define OP_4A_PS_MADDS1 15
  102. #define OP_4A_PS_DIV 18
  103. #define OP_4A_PS_SUB 20
  104. #define OP_4A_PS_ADD 21
  105. #define OP_4A_PS_SEL 23
  106. #define OP_4A_PS_RES 24
  107. #define OP_4A_PS_MUL 25
  108. #define OP_4A_PS_RSQRTE 26
  109. #define OP_4A_PS_MSUB 28
  110. #define OP_4A_PS_MADD 29
  111. #define OP_4A_PS_NMSUB 30
  112. #define OP_4A_PS_NMADD 31
  113. #define OP_4X_PS_CMPO0 32
  114. #define OP_4X_PSQ_LUX 38
  115. #define OP_4XW_PSQ_STUX 39
  116. #define OP_4X_PS_NEG 40
  117. #define OP_4X_PS_CMPU1 64
  118. #define OP_4X_PS_MR 72
  119. #define OP_4X_PS_CMPO1 96
  120. #define OP_4X_PS_NABS 136
  121. #define OP_4X_PS_ABS 264
  122. #define OP_4X_PS_MERGE00 528
  123. #define OP_4X_PS_MERGE01 560
  124. #define OP_4X_PS_MERGE10 592
  125. #define OP_4X_PS_MERGE11 624
  126. #define SCALAR_NONE 0
  127. #define SCALAR_HIGH (1 << 0)
  128. #define SCALAR_LOW (1 << 1)
  129. #define SCALAR_NO_PS0 (1 << 2)
  130. #define SCALAR_NO_PS1 (1 << 3)
  131. #define GQR_ST_TYPE_MASK 0x00000007
  132. #define GQR_ST_TYPE_SHIFT 0
  133. #define GQR_ST_SCALE_MASK 0x00003f00
  134. #define GQR_ST_SCALE_SHIFT 8
  135. #define GQR_LD_TYPE_MASK 0x00070000
  136. #define GQR_LD_TYPE_SHIFT 16
  137. #define GQR_LD_SCALE_MASK 0x3f000000
  138. #define GQR_LD_SCALE_SHIFT 24
  139. #define GQR_QUANTIZE_FLOAT 0
  140. #define GQR_QUANTIZE_U8 4
  141. #define GQR_QUANTIZE_U16 5
  142. #define GQR_QUANTIZE_S8 6
  143. #define GQR_QUANTIZE_S16 7
  144. #define FPU_LS_SINGLE 0
  145. #define FPU_LS_DOUBLE 1
  146. #define FPU_LS_SINGLE_LOW 2
  147. static inline void kvmppc_sync_qpr(struct kvm_vcpu *vcpu, int rt)
  148. {
  149. kvm_cvt_df(&vcpu->arch.fpr[rt], &vcpu->arch.qpr[rt]);
  150. }
  151. static void kvmppc_inject_pf(struct kvm_vcpu *vcpu, ulong eaddr, bool is_store)
  152. {
  153. u64 dsisr;
  154. vcpu->arch.msr = kvmppc_set_field(vcpu->arch.msr, 33, 36, 0);
  155. vcpu->arch.msr = kvmppc_set_field(vcpu->arch.msr, 42, 47, 0);
  156. vcpu->arch.dear = eaddr;
  157. /* Page Fault */
  158. dsisr = kvmppc_set_field(0, 33, 33, 1);
  159. if (is_store)
  160. to_book3s(vcpu)->dsisr = kvmppc_set_field(dsisr, 38, 38, 1);
  161. kvmppc_book3s_queue_irqprio(vcpu, BOOK3S_INTERRUPT_DATA_STORAGE);
  162. }
  163. static int kvmppc_emulate_fpr_load(struct kvm_run *run, struct kvm_vcpu *vcpu,
  164. int rs, ulong addr, int ls_type)
  165. {
  166. int emulated = EMULATE_FAIL;
  167. int r;
  168. char tmp[8];
  169. int len = sizeof(u32);
  170. if (ls_type == FPU_LS_DOUBLE)
  171. len = sizeof(u64);
  172. /* read from memory */
  173. r = kvmppc_ld(vcpu, &addr, len, tmp, true);
  174. vcpu->arch.paddr_accessed = addr;
  175. if (r < 0) {
  176. kvmppc_inject_pf(vcpu, addr, false);
  177. goto done_load;
  178. } else if (r == EMULATE_DO_MMIO) {
  179. emulated = kvmppc_handle_load(run, vcpu, KVM_REG_FPR | rs, len, 1);
  180. goto done_load;
  181. }
  182. emulated = EMULATE_DONE;
  183. /* put in registers */
  184. switch (ls_type) {
  185. case FPU_LS_SINGLE:
  186. kvm_cvt_fd((u32*)tmp, &vcpu->arch.fpr[rs]);
  187. vcpu->arch.qpr[rs] = *((u32*)tmp);
  188. break;
  189. case FPU_LS_DOUBLE:
  190. vcpu->arch.fpr[rs] = *((u64*)tmp);
  191. break;
  192. }
  193. dprintk(KERN_INFO "KVM: FPR_LD [0x%llx] at 0x%lx (%d)\n", *(u64*)tmp,
  194. addr, len);
  195. done_load:
  196. return emulated;
  197. }
  198. static int kvmppc_emulate_fpr_store(struct kvm_run *run, struct kvm_vcpu *vcpu,
  199. int rs, ulong addr, int ls_type)
  200. {
  201. int emulated = EMULATE_FAIL;
  202. int r;
  203. char tmp[8];
  204. u64 val;
  205. int len;
  206. switch (ls_type) {
  207. case FPU_LS_SINGLE:
  208. kvm_cvt_df(&vcpu->arch.fpr[rs], (u32*)tmp);
  209. val = *((u32*)tmp);
  210. len = sizeof(u32);
  211. break;
  212. case FPU_LS_SINGLE_LOW:
  213. *((u32*)tmp) = vcpu->arch.fpr[rs];
  214. val = vcpu->arch.fpr[rs] & 0xffffffff;
  215. len = sizeof(u32);
  216. break;
  217. case FPU_LS_DOUBLE:
  218. *((u64*)tmp) = vcpu->arch.fpr[rs];
  219. val = vcpu->arch.fpr[rs];
  220. len = sizeof(u64);
  221. break;
  222. default:
  223. val = 0;
  224. len = 0;
  225. }
  226. r = kvmppc_st(vcpu, &addr, len, tmp, true);
  227. vcpu->arch.paddr_accessed = addr;
  228. if (r < 0) {
  229. kvmppc_inject_pf(vcpu, addr, true);
  230. } else if (r == EMULATE_DO_MMIO) {
  231. emulated = kvmppc_handle_store(run, vcpu, val, len, 1);
  232. } else {
  233. emulated = EMULATE_DONE;
  234. }
  235. dprintk(KERN_INFO "KVM: FPR_ST [0x%llx] at 0x%lx (%d)\n",
  236. val, addr, len);
  237. return emulated;
  238. }
  239. static int kvmppc_emulate_psq_load(struct kvm_run *run, struct kvm_vcpu *vcpu,
  240. int rs, ulong addr, bool w, int i)
  241. {
  242. int emulated = EMULATE_FAIL;
  243. int r;
  244. float one = 1.0;
  245. u32 tmp[2];
  246. /* read from memory */
  247. if (w) {
  248. r = kvmppc_ld(vcpu, &addr, sizeof(u32), tmp, true);
  249. memcpy(&tmp[1], &one, sizeof(u32));
  250. } else {
  251. r = kvmppc_ld(vcpu, &addr, sizeof(u32) * 2, tmp, true);
  252. }
  253. vcpu->arch.paddr_accessed = addr;
  254. if (r < 0) {
  255. kvmppc_inject_pf(vcpu, addr, false);
  256. goto done_load;
  257. } else if ((r == EMULATE_DO_MMIO) && w) {
  258. emulated = kvmppc_handle_load(run, vcpu, KVM_REG_FPR | rs, 4, 1);
  259. vcpu->arch.qpr[rs] = tmp[1];
  260. goto done_load;
  261. } else if (r == EMULATE_DO_MMIO) {
  262. emulated = kvmppc_handle_load(run, vcpu, KVM_REG_FQPR | rs, 8, 1);
  263. goto done_load;
  264. }
  265. emulated = EMULATE_DONE;
  266. /* put in registers */
  267. kvm_cvt_fd(&tmp[0], &vcpu->arch.fpr[rs]);
  268. vcpu->arch.qpr[rs] = tmp[1];
  269. dprintk(KERN_INFO "KVM: PSQ_LD [0x%x, 0x%x] at 0x%lx (%d)\n", tmp[0],
  270. tmp[1], addr, w ? 4 : 8);
  271. done_load:
  272. return emulated;
  273. }
  274. static int kvmppc_emulate_psq_store(struct kvm_run *run, struct kvm_vcpu *vcpu,
  275. int rs, ulong addr, bool w, int i)
  276. {
  277. int emulated = EMULATE_FAIL;
  278. int r;
  279. u32 tmp[2];
  280. int len = w ? sizeof(u32) : sizeof(u64);
  281. kvm_cvt_df(&vcpu->arch.fpr[rs], &tmp[0]);
  282. tmp[1] = vcpu->arch.qpr[rs];
  283. r = kvmppc_st(vcpu, &addr, len, tmp, true);
  284. vcpu->arch.paddr_accessed = addr;
  285. if (r < 0) {
  286. kvmppc_inject_pf(vcpu, addr, true);
  287. } else if ((r == EMULATE_DO_MMIO) && w) {
  288. emulated = kvmppc_handle_store(run, vcpu, tmp[0], 4, 1);
  289. } else if (r == EMULATE_DO_MMIO) {
  290. u64 val = ((u64)tmp[0] << 32) | tmp[1];
  291. emulated = kvmppc_handle_store(run, vcpu, val, 8, 1);
  292. } else {
  293. emulated = EMULATE_DONE;
  294. }
  295. dprintk(KERN_INFO "KVM: PSQ_ST [0x%x, 0x%x] at 0x%lx (%d)\n",
  296. tmp[0], tmp[1], addr, len);
  297. return emulated;
  298. }
  299. /*
  300. * Cuts out inst bits with ordering according to spec.
  301. * That means the leftmost bit is zero. All given bits are included.
  302. */
  303. static inline u32 inst_get_field(u32 inst, int msb, int lsb)
  304. {
  305. return kvmppc_get_field(inst, msb + 32, lsb + 32);
  306. }
  307. /*
  308. * Replaces inst bits with ordering according to spec.
  309. */
  310. static inline u32 inst_set_field(u32 inst, int msb, int lsb, int value)
  311. {
  312. return kvmppc_set_field(inst, msb + 32, lsb + 32, value);
  313. }
  314. bool kvmppc_inst_is_paired_single(struct kvm_vcpu *vcpu, u32 inst)
  315. {
  316. if (!(vcpu->arch.hflags & BOOK3S_HFLAG_PAIRED_SINGLE))
  317. return false;
  318. switch (get_op(inst)) {
  319. case OP_PSQ_L:
  320. case OP_PSQ_LU:
  321. case OP_PSQ_ST:
  322. case OP_PSQ_STU:
  323. case OP_LFS:
  324. case OP_LFSU:
  325. case OP_LFD:
  326. case OP_LFDU:
  327. case OP_STFS:
  328. case OP_STFSU:
  329. case OP_STFD:
  330. case OP_STFDU:
  331. return true;
  332. case 4:
  333. /* X form */
  334. switch (inst_get_field(inst, 21, 30)) {
  335. case OP_4X_PS_CMPU0:
  336. case OP_4X_PSQ_LX:
  337. case OP_4X_PS_CMPO0:
  338. case OP_4X_PSQ_LUX:
  339. case OP_4X_PS_NEG:
  340. case OP_4X_PS_CMPU1:
  341. case OP_4X_PS_MR:
  342. case OP_4X_PS_CMPO1:
  343. case OP_4X_PS_NABS:
  344. case OP_4X_PS_ABS:
  345. case OP_4X_PS_MERGE00:
  346. case OP_4X_PS_MERGE01:
  347. case OP_4X_PS_MERGE10:
  348. case OP_4X_PS_MERGE11:
  349. return true;
  350. }
  351. /* XW form */
  352. switch (inst_get_field(inst, 25, 30)) {
  353. case OP_4XW_PSQ_STX:
  354. case OP_4XW_PSQ_STUX:
  355. return true;
  356. }
  357. /* A form */
  358. switch (inst_get_field(inst, 26, 30)) {
  359. case OP_4A_PS_SUM1:
  360. case OP_4A_PS_SUM0:
  361. case OP_4A_PS_MULS0:
  362. case OP_4A_PS_MULS1:
  363. case OP_4A_PS_MADDS0:
  364. case OP_4A_PS_MADDS1:
  365. case OP_4A_PS_DIV:
  366. case OP_4A_PS_SUB:
  367. case OP_4A_PS_ADD:
  368. case OP_4A_PS_SEL:
  369. case OP_4A_PS_RES:
  370. case OP_4A_PS_MUL:
  371. case OP_4A_PS_RSQRTE:
  372. case OP_4A_PS_MSUB:
  373. case OP_4A_PS_MADD:
  374. case OP_4A_PS_NMSUB:
  375. case OP_4A_PS_NMADD:
  376. return true;
  377. }
  378. break;
  379. case 59:
  380. switch (inst_get_field(inst, 21, 30)) {
  381. case OP_59_FADDS:
  382. case OP_59_FSUBS:
  383. case OP_59_FDIVS:
  384. case OP_59_FRES:
  385. case OP_59_FRSQRTES:
  386. return true;
  387. }
  388. switch (inst_get_field(inst, 26, 30)) {
  389. case OP_59_FMULS:
  390. case OP_59_FMSUBS:
  391. case OP_59_FMADDS:
  392. case OP_59_FNMSUBS:
  393. case OP_59_FNMADDS:
  394. return true;
  395. }
  396. break;
  397. case 63:
  398. switch (inst_get_field(inst, 21, 30)) {
  399. case OP_63_MTFSB0:
  400. case OP_63_MTFSB1:
  401. case OP_63_MTFSF:
  402. case OP_63_MTFSFI:
  403. case OP_63_MCRFS:
  404. case OP_63_MFFS:
  405. case OP_63_FCMPU:
  406. case OP_63_FCMPO:
  407. case OP_63_FNEG:
  408. case OP_63_FMR:
  409. case OP_63_FABS:
  410. case OP_63_FRSP:
  411. case OP_63_FDIV:
  412. case OP_63_FADD:
  413. case OP_63_FSUB:
  414. case OP_63_FCTIW:
  415. case OP_63_FCTIWZ:
  416. case OP_63_FRSQRTE:
  417. case OP_63_FCPSGN:
  418. return true;
  419. }
  420. switch (inst_get_field(inst, 26, 30)) {
  421. case OP_63_FMUL:
  422. case OP_63_FSEL:
  423. case OP_63_FMSUB:
  424. case OP_63_FMADD:
  425. case OP_63_FNMSUB:
  426. case OP_63_FNMADD:
  427. return true;
  428. }
  429. break;
  430. case 31:
  431. switch (inst_get_field(inst, 21, 30)) {
  432. case OP_31_LFSX:
  433. case OP_31_LFSUX:
  434. case OP_31_LFDX:
  435. case OP_31_LFDUX:
  436. case OP_31_STFSX:
  437. case OP_31_STFSUX:
  438. case OP_31_STFX:
  439. case OP_31_STFUX:
  440. case OP_31_STFIWX:
  441. return true;
  442. }
  443. break;
  444. }
  445. return false;
  446. }
  447. static int get_d_signext(u32 inst)
  448. {
  449. int d = inst & 0x8ff;
  450. if (d & 0x800)
  451. return -(d & 0x7ff);
  452. return (d & 0x7ff);
  453. }
  454. static int kvmppc_ps_three_in(struct kvm_vcpu *vcpu, bool rc,
  455. int reg_out, int reg_in1, int reg_in2,
  456. int reg_in3, int scalar,
  457. void (*func)(u64 *fpscr,
  458. u32 *dst, u32 *src1,
  459. u32 *src2, u32 *src3))
  460. {
  461. u32 *qpr = vcpu->arch.qpr;
  462. u64 *fpr = vcpu->arch.fpr;
  463. u32 ps0_out;
  464. u32 ps0_in1, ps0_in2, ps0_in3;
  465. u32 ps1_in1, ps1_in2, ps1_in3;
  466. /* RC */
  467. WARN_ON(rc);
  468. /* PS0 */
  469. kvm_cvt_df(&fpr[reg_in1], &ps0_in1);
  470. kvm_cvt_df(&fpr[reg_in2], &ps0_in2);
  471. kvm_cvt_df(&fpr[reg_in3], &ps0_in3);
  472. if (scalar & SCALAR_LOW)
  473. ps0_in2 = qpr[reg_in2];
  474. func(&vcpu->arch.fpscr, &ps0_out, &ps0_in1, &ps0_in2, &ps0_in3);
  475. dprintk(KERN_INFO "PS3 ps0 -> f(0x%x, 0x%x, 0x%x) = 0x%x\n",
  476. ps0_in1, ps0_in2, ps0_in3, ps0_out);
  477. if (!(scalar & SCALAR_NO_PS0))
  478. kvm_cvt_fd(&ps0_out, &fpr[reg_out]);
  479. /* PS1 */
  480. ps1_in1 = qpr[reg_in1];
  481. ps1_in2 = qpr[reg_in2];
  482. ps1_in3 = qpr[reg_in3];
  483. if (scalar & SCALAR_HIGH)
  484. ps1_in2 = ps0_in2;
  485. if (!(scalar & SCALAR_NO_PS1))
  486. func(&vcpu->arch.fpscr, &qpr[reg_out], &ps1_in1, &ps1_in2, &ps1_in3);
  487. dprintk(KERN_INFO "PS3 ps1 -> f(0x%x, 0x%x, 0x%x) = 0x%x\n",
  488. ps1_in1, ps1_in2, ps1_in3, qpr[reg_out]);
  489. return EMULATE_DONE;
  490. }
  491. static int kvmppc_ps_two_in(struct kvm_vcpu *vcpu, bool rc,
  492. int reg_out, int reg_in1, int reg_in2,
  493. int scalar,
  494. void (*func)(u64 *fpscr,
  495. u32 *dst, u32 *src1,
  496. u32 *src2))
  497. {
  498. u32 *qpr = vcpu->arch.qpr;
  499. u64 *fpr = vcpu->arch.fpr;
  500. u32 ps0_out;
  501. u32 ps0_in1, ps0_in2;
  502. u32 ps1_out;
  503. u32 ps1_in1, ps1_in2;
  504. /* RC */
  505. WARN_ON(rc);
  506. /* PS0 */
  507. kvm_cvt_df(&fpr[reg_in1], &ps0_in1);
  508. if (scalar & SCALAR_LOW)
  509. ps0_in2 = qpr[reg_in2];
  510. else
  511. kvm_cvt_df(&fpr[reg_in2], &ps0_in2);
  512. func(&vcpu->arch.fpscr, &ps0_out, &ps0_in1, &ps0_in2);
  513. if (!(scalar & SCALAR_NO_PS0)) {
  514. dprintk(KERN_INFO "PS2 ps0 -> f(0x%x, 0x%x) = 0x%x\n",
  515. ps0_in1, ps0_in2, ps0_out);
  516. kvm_cvt_fd(&ps0_out, &fpr[reg_out]);
  517. }
  518. /* PS1 */
  519. ps1_in1 = qpr[reg_in1];
  520. ps1_in2 = qpr[reg_in2];
  521. if (scalar & SCALAR_HIGH)
  522. ps1_in2 = ps0_in2;
  523. func(&vcpu->arch.fpscr, &ps1_out, &ps1_in1, &ps1_in2);
  524. if (!(scalar & SCALAR_NO_PS1)) {
  525. qpr[reg_out] = ps1_out;
  526. dprintk(KERN_INFO "PS2 ps1 -> f(0x%x, 0x%x) = 0x%x\n",
  527. ps1_in1, ps1_in2, qpr[reg_out]);
  528. }
  529. return EMULATE_DONE;
  530. }
  531. static int kvmppc_ps_one_in(struct kvm_vcpu *vcpu, bool rc,
  532. int reg_out, int reg_in,
  533. void (*func)(u64 *t,
  534. u32 *dst, u32 *src1))
  535. {
  536. u32 *qpr = vcpu->arch.qpr;
  537. u64 *fpr = vcpu->arch.fpr;
  538. u32 ps0_out, ps0_in;
  539. u32 ps1_in;
  540. /* RC */
  541. WARN_ON(rc);
  542. /* PS0 */
  543. kvm_cvt_df(&fpr[reg_in], &ps0_in);
  544. func(&vcpu->arch.fpscr, &ps0_out, &ps0_in);
  545. dprintk(KERN_INFO "PS1 ps0 -> f(0x%x) = 0x%x\n",
  546. ps0_in, ps0_out);
  547. kvm_cvt_fd(&ps0_out, &fpr[reg_out]);
  548. /* PS1 */
  549. ps1_in = qpr[reg_in];
  550. func(&vcpu->arch.fpscr, &qpr[reg_out], &ps1_in);
  551. dprintk(KERN_INFO "PS1 ps1 -> f(0x%x) = 0x%x\n",
  552. ps1_in, qpr[reg_out]);
  553. return EMULATE_DONE;
  554. }
  555. int kvmppc_emulate_paired_single(struct kvm_run *run, struct kvm_vcpu *vcpu)
  556. {
  557. u32 inst = kvmppc_get_last_inst(vcpu);
  558. enum emulation_result emulated = EMULATE_DONE;
  559. int ax_rd = inst_get_field(inst, 6, 10);
  560. int ax_ra = inst_get_field(inst, 11, 15);
  561. int ax_rb = inst_get_field(inst, 16, 20);
  562. int ax_rc = inst_get_field(inst, 21, 25);
  563. short full_d = inst_get_field(inst, 16, 31);
  564. u64 *fpr_d = &vcpu->arch.fpr[ax_rd];
  565. u64 *fpr_a = &vcpu->arch.fpr[ax_ra];
  566. u64 *fpr_b = &vcpu->arch.fpr[ax_rb];
  567. u64 *fpr_c = &vcpu->arch.fpr[ax_rc];
  568. bool rcomp = (inst & 1) ? true : false;
  569. u32 cr = kvmppc_get_cr(vcpu);
  570. #ifdef DEBUG
  571. int i;
  572. #endif
  573. if (!kvmppc_inst_is_paired_single(vcpu, inst))
  574. return EMULATE_FAIL;
  575. if (!(vcpu->arch.msr & MSR_FP)) {
  576. kvmppc_book3s_queue_irqprio(vcpu, BOOK3S_INTERRUPT_FP_UNAVAIL);
  577. return EMULATE_AGAIN;
  578. }
  579. kvmppc_giveup_ext(vcpu, MSR_FP);
  580. preempt_disable();
  581. enable_kernel_fp();
  582. /* Do we need to clear FE0 / FE1 here? Don't think so. */
  583. #ifdef DEBUG
  584. for (i = 0; i < ARRAY_SIZE(vcpu->arch.fpr); i++) {
  585. u32 f;
  586. kvm_cvt_df(&vcpu->arch.fpr[i], &f);
  587. dprintk(KERN_INFO "FPR[%d] = 0x%x / 0x%llx QPR[%d] = 0x%x\n",
  588. i, f, vcpu->arch.fpr[i], i, vcpu->arch.qpr[i]);
  589. }
  590. #endif
  591. switch (get_op(inst)) {
  592. case OP_PSQ_L:
  593. {
  594. ulong addr = ax_ra ? kvmppc_get_gpr(vcpu, ax_ra) : 0;
  595. bool w = inst_get_field(inst, 16, 16) ? true : false;
  596. int i = inst_get_field(inst, 17, 19);
  597. addr += get_d_signext(inst);
  598. emulated = kvmppc_emulate_psq_load(run, vcpu, ax_rd, addr, w, i);
  599. break;
  600. }
  601. case OP_PSQ_LU:
  602. {
  603. ulong addr = kvmppc_get_gpr(vcpu, ax_ra);
  604. bool w = inst_get_field(inst, 16, 16) ? true : false;
  605. int i = inst_get_field(inst, 17, 19);
  606. addr += get_d_signext(inst);
  607. emulated = kvmppc_emulate_psq_load(run, vcpu, ax_rd, addr, w, i);
  608. if (emulated == EMULATE_DONE)
  609. kvmppc_set_gpr(vcpu, ax_ra, addr);
  610. break;
  611. }
  612. case OP_PSQ_ST:
  613. {
  614. ulong addr = ax_ra ? kvmppc_get_gpr(vcpu, ax_ra) : 0;
  615. bool w = inst_get_field(inst, 16, 16) ? true : false;
  616. int i = inst_get_field(inst, 17, 19);
  617. addr += get_d_signext(inst);
  618. emulated = kvmppc_emulate_psq_store(run, vcpu, ax_rd, addr, w, i);
  619. break;
  620. }
  621. case OP_PSQ_STU:
  622. {
  623. ulong addr = kvmppc_get_gpr(vcpu, ax_ra);
  624. bool w = inst_get_field(inst, 16, 16) ? true : false;
  625. int i = inst_get_field(inst, 17, 19);
  626. addr += get_d_signext(inst);
  627. emulated = kvmppc_emulate_psq_store(run, vcpu, ax_rd, addr, w, i);
  628. if (emulated == EMULATE_DONE)
  629. kvmppc_set_gpr(vcpu, ax_ra, addr);
  630. break;
  631. }
  632. case 4:
  633. /* X form */
  634. switch (inst_get_field(inst, 21, 30)) {
  635. case OP_4X_PS_CMPU0:
  636. /* XXX */
  637. emulated = EMULATE_FAIL;
  638. break;
  639. case OP_4X_PSQ_LX:
  640. {
  641. ulong addr = ax_ra ? kvmppc_get_gpr(vcpu, ax_ra) : 0;
  642. bool w = inst_get_field(inst, 21, 21) ? true : false;
  643. int i = inst_get_field(inst, 22, 24);
  644. addr += kvmppc_get_gpr(vcpu, ax_rb);
  645. emulated = kvmppc_emulate_psq_load(run, vcpu, ax_rd, addr, w, i);
  646. break;
  647. }
  648. case OP_4X_PS_CMPO0:
  649. /* XXX */
  650. emulated = EMULATE_FAIL;
  651. break;
  652. case OP_4X_PSQ_LUX:
  653. {
  654. ulong addr = kvmppc_get_gpr(vcpu, ax_ra);
  655. bool w = inst_get_field(inst, 21, 21) ? true : false;
  656. int i = inst_get_field(inst, 22, 24);
  657. addr += kvmppc_get_gpr(vcpu, ax_rb);
  658. emulated = kvmppc_emulate_psq_load(run, vcpu, ax_rd, addr, w, i);
  659. if (emulated == EMULATE_DONE)
  660. kvmppc_set_gpr(vcpu, ax_ra, addr);
  661. break;
  662. }
  663. case OP_4X_PS_NEG:
  664. vcpu->arch.fpr[ax_rd] = vcpu->arch.fpr[ax_rb];
  665. vcpu->arch.fpr[ax_rd] ^= 0x8000000000000000ULL;
  666. vcpu->arch.qpr[ax_rd] = vcpu->arch.qpr[ax_rb];
  667. vcpu->arch.qpr[ax_rd] ^= 0x80000000;
  668. break;
  669. case OP_4X_PS_CMPU1:
  670. /* XXX */
  671. emulated = EMULATE_FAIL;
  672. break;
  673. case OP_4X_PS_MR:
  674. WARN_ON(rcomp);
  675. vcpu->arch.fpr[ax_rd] = vcpu->arch.fpr[ax_rb];
  676. vcpu->arch.qpr[ax_rd] = vcpu->arch.qpr[ax_rb];
  677. break;
  678. case OP_4X_PS_CMPO1:
  679. /* XXX */
  680. emulated = EMULATE_FAIL;
  681. break;
  682. case OP_4X_PS_NABS:
  683. WARN_ON(rcomp);
  684. vcpu->arch.fpr[ax_rd] = vcpu->arch.fpr[ax_rb];
  685. vcpu->arch.fpr[ax_rd] |= 0x8000000000000000ULL;
  686. vcpu->arch.qpr[ax_rd] = vcpu->arch.qpr[ax_rb];
  687. vcpu->arch.qpr[ax_rd] |= 0x80000000;
  688. break;
  689. case OP_4X_PS_ABS:
  690. WARN_ON(rcomp);
  691. vcpu->arch.fpr[ax_rd] = vcpu->arch.fpr[ax_rb];
  692. vcpu->arch.fpr[ax_rd] &= ~0x8000000000000000ULL;
  693. vcpu->arch.qpr[ax_rd] = vcpu->arch.qpr[ax_rb];
  694. vcpu->arch.qpr[ax_rd] &= ~0x80000000;
  695. break;
  696. case OP_4X_PS_MERGE00:
  697. WARN_ON(rcomp);
  698. vcpu->arch.fpr[ax_rd] = vcpu->arch.fpr[ax_ra];
  699. /* vcpu->arch.qpr[ax_rd] = vcpu->arch.fpr[ax_rb]; */
  700. kvm_cvt_df(&vcpu->arch.fpr[ax_rb],
  701. &vcpu->arch.qpr[ax_rd]);
  702. break;
  703. case OP_4X_PS_MERGE01:
  704. WARN_ON(rcomp);
  705. vcpu->arch.fpr[ax_rd] = vcpu->arch.fpr[ax_ra];
  706. vcpu->arch.qpr[ax_rd] = vcpu->arch.qpr[ax_rb];
  707. break;
  708. case OP_4X_PS_MERGE10:
  709. WARN_ON(rcomp);
  710. /* vcpu->arch.fpr[ax_rd] = vcpu->arch.qpr[ax_ra]; */
  711. kvm_cvt_fd(&vcpu->arch.qpr[ax_ra],
  712. &vcpu->arch.fpr[ax_rd]);
  713. /* vcpu->arch.qpr[ax_rd] = vcpu->arch.fpr[ax_rb]; */
  714. kvm_cvt_df(&vcpu->arch.fpr[ax_rb],
  715. &vcpu->arch.qpr[ax_rd]);
  716. break;
  717. case OP_4X_PS_MERGE11:
  718. WARN_ON(rcomp);
  719. /* vcpu->arch.fpr[ax_rd] = vcpu->arch.qpr[ax_ra]; */
  720. kvm_cvt_fd(&vcpu->arch.qpr[ax_ra],
  721. &vcpu->arch.fpr[ax_rd]);
  722. vcpu->arch.qpr[ax_rd] = vcpu->arch.qpr[ax_rb];
  723. break;
  724. }
  725. /* XW form */
  726. switch (inst_get_field(inst, 25, 30)) {
  727. case OP_4XW_PSQ_STX:
  728. {
  729. ulong addr = ax_ra ? kvmppc_get_gpr(vcpu, ax_ra) : 0;
  730. bool w = inst_get_field(inst, 21, 21) ? true : false;
  731. int i = inst_get_field(inst, 22, 24);
  732. addr += kvmppc_get_gpr(vcpu, ax_rb);
  733. emulated = kvmppc_emulate_psq_store(run, vcpu, ax_rd, addr, w, i);
  734. break;
  735. }
  736. case OP_4XW_PSQ_STUX:
  737. {
  738. ulong addr = kvmppc_get_gpr(vcpu, ax_ra);
  739. bool w = inst_get_field(inst, 21, 21) ? true : false;
  740. int i = inst_get_field(inst, 22, 24);
  741. addr += kvmppc_get_gpr(vcpu, ax_rb);
  742. emulated = kvmppc_emulate_psq_store(run, vcpu, ax_rd, addr, w, i);
  743. if (emulated == EMULATE_DONE)
  744. kvmppc_set_gpr(vcpu, ax_ra, addr);
  745. break;
  746. }
  747. }
  748. /* A form */
  749. switch (inst_get_field(inst, 26, 30)) {
  750. case OP_4A_PS_SUM1:
  751. emulated = kvmppc_ps_two_in(vcpu, rcomp, ax_rd,
  752. ax_rb, ax_ra, SCALAR_NO_PS0 | SCALAR_HIGH, fps_fadds);
  753. vcpu->arch.fpr[ax_rd] = vcpu->arch.fpr[ax_rc];
  754. break;
  755. case OP_4A_PS_SUM0:
  756. emulated = kvmppc_ps_two_in(vcpu, rcomp, ax_rd,
  757. ax_ra, ax_rb, SCALAR_NO_PS1 | SCALAR_LOW, fps_fadds);
  758. vcpu->arch.qpr[ax_rd] = vcpu->arch.qpr[ax_rc];
  759. break;
  760. case OP_4A_PS_MULS0:
  761. emulated = kvmppc_ps_two_in(vcpu, rcomp, ax_rd,
  762. ax_ra, ax_rc, SCALAR_HIGH, fps_fmuls);
  763. break;
  764. case OP_4A_PS_MULS1:
  765. emulated = kvmppc_ps_two_in(vcpu, rcomp, ax_rd,
  766. ax_ra, ax_rc, SCALAR_LOW, fps_fmuls);
  767. break;
  768. case OP_4A_PS_MADDS0:
  769. emulated = kvmppc_ps_three_in(vcpu, rcomp, ax_rd,
  770. ax_ra, ax_rc, ax_rb, SCALAR_HIGH, fps_fmadds);
  771. break;
  772. case OP_4A_PS_MADDS1:
  773. emulated = kvmppc_ps_three_in(vcpu, rcomp, ax_rd,
  774. ax_ra, ax_rc, ax_rb, SCALAR_LOW, fps_fmadds);
  775. break;
  776. case OP_4A_PS_DIV:
  777. emulated = kvmppc_ps_two_in(vcpu, rcomp, ax_rd,
  778. ax_ra, ax_rb, SCALAR_NONE, fps_fdivs);
  779. break;
  780. case OP_4A_PS_SUB:
  781. emulated = kvmppc_ps_two_in(vcpu, rcomp, ax_rd,
  782. ax_ra, ax_rb, SCALAR_NONE, fps_fsubs);
  783. break;
  784. case OP_4A_PS_ADD:
  785. emulated = kvmppc_ps_two_in(vcpu, rcomp, ax_rd,
  786. ax_ra, ax_rb, SCALAR_NONE, fps_fadds);
  787. break;
  788. case OP_4A_PS_SEL:
  789. emulated = kvmppc_ps_three_in(vcpu, rcomp, ax_rd,
  790. ax_ra, ax_rc, ax_rb, SCALAR_NONE, fps_fsel);
  791. break;
  792. case OP_4A_PS_RES:
  793. emulated = kvmppc_ps_one_in(vcpu, rcomp, ax_rd,
  794. ax_rb, fps_fres);
  795. break;
  796. case OP_4A_PS_MUL:
  797. emulated = kvmppc_ps_two_in(vcpu, rcomp, ax_rd,
  798. ax_ra, ax_rc, SCALAR_NONE, fps_fmuls);
  799. break;
  800. case OP_4A_PS_RSQRTE:
  801. emulated = kvmppc_ps_one_in(vcpu, rcomp, ax_rd,
  802. ax_rb, fps_frsqrte);
  803. break;
  804. case OP_4A_PS_MSUB:
  805. emulated = kvmppc_ps_three_in(vcpu, rcomp, ax_rd,
  806. ax_ra, ax_rc, ax_rb, SCALAR_NONE, fps_fmsubs);
  807. break;
  808. case OP_4A_PS_MADD:
  809. emulated = kvmppc_ps_three_in(vcpu, rcomp, ax_rd,
  810. ax_ra, ax_rc, ax_rb, SCALAR_NONE, fps_fmadds);
  811. break;
  812. case OP_4A_PS_NMSUB:
  813. emulated = kvmppc_ps_three_in(vcpu, rcomp, ax_rd,
  814. ax_ra, ax_rc, ax_rb, SCALAR_NONE, fps_fnmsubs);
  815. break;
  816. case OP_4A_PS_NMADD:
  817. emulated = kvmppc_ps_three_in(vcpu, rcomp, ax_rd,
  818. ax_ra, ax_rc, ax_rb, SCALAR_NONE, fps_fnmadds);
  819. break;
  820. }
  821. break;
  822. /* Real FPU operations */
  823. case OP_LFS:
  824. {
  825. ulong addr = (ax_ra ? kvmppc_get_gpr(vcpu, ax_ra) : 0) + full_d;
  826. emulated = kvmppc_emulate_fpr_load(run, vcpu, ax_rd, addr,
  827. FPU_LS_SINGLE);
  828. break;
  829. }
  830. case OP_LFSU:
  831. {
  832. ulong addr = kvmppc_get_gpr(vcpu, ax_ra) + full_d;
  833. emulated = kvmppc_emulate_fpr_load(run, vcpu, ax_rd, addr,
  834. FPU_LS_SINGLE);
  835. if (emulated == EMULATE_DONE)
  836. kvmppc_set_gpr(vcpu, ax_ra, addr);
  837. break;
  838. }
  839. case OP_LFD:
  840. {
  841. ulong addr = (ax_ra ? kvmppc_get_gpr(vcpu, ax_ra) : 0) + full_d;
  842. emulated = kvmppc_emulate_fpr_load(run, vcpu, ax_rd, addr,
  843. FPU_LS_DOUBLE);
  844. break;
  845. }
  846. case OP_LFDU:
  847. {
  848. ulong addr = kvmppc_get_gpr(vcpu, ax_ra) + full_d;
  849. emulated = kvmppc_emulate_fpr_load(run, vcpu, ax_rd, addr,
  850. FPU_LS_DOUBLE);
  851. if (emulated == EMULATE_DONE)
  852. kvmppc_set_gpr(vcpu, ax_ra, addr);
  853. break;
  854. }
  855. case OP_STFS:
  856. {
  857. ulong addr = (ax_ra ? kvmppc_get_gpr(vcpu, ax_ra) : 0) + full_d;
  858. emulated = kvmppc_emulate_fpr_store(run, vcpu, ax_rd, addr,
  859. FPU_LS_SINGLE);
  860. break;
  861. }
  862. case OP_STFSU:
  863. {
  864. ulong addr = kvmppc_get_gpr(vcpu, ax_ra) + full_d;
  865. emulated = kvmppc_emulate_fpr_store(run, vcpu, ax_rd, addr,
  866. FPU_LS_SINGLE);
  867. if (emulated == EMULATE_DONE)
  868. kvmppc_set_gpr(vcpu, ax_ra, addr);
  869. break;
  870. }
  871. case OP_STFD:
  872. {
  873. ulong addr = (ax_ra ? kvmppc_get_gpr(vcpu, ax_ra) : 0) + full_d;
  874. emulated = kvmppc_emulate_fpr_store(run, vcpu, ax_rd, addr,
  875. FPU_LS_DOUBLE);
  876. break;
  877. }
  878. case OP_STFDU:
  879. {
  880. ulong addr = kvmppc_get_gpr(vcpu, ax_ra) + full_d;
  881. emulated = kvmppc_emulate_fpr_store(run, vcpu, ax_rd, addr,
  882. FPU_LS_DOUBLE);
  883. if (emulated == EMULATE_DONE)
  884. kvmppc_set_gpr(vcpu, ax_ra, addr);
  885. break;
  886. }
  887. case 31:
  888. switch (inst_get_field(inst, 21, 30)) {
  889. case OP_31_LFSX:
  890. {
  891. ulong addr = ax_ra ? kvmppc_get_gpr(vcpu, ax_ra) : 0;
  892. addr += kvmppc_get_gpr(vcpu, ax_rb);
  893. emulated = kvmppc_emulate_fpr_load(run, vcpu, ax_rd,
  894. addr, FPU_LS_SINGLE);
  895. break;
  896. }
  897. case OP_31_LFSUX:
  898. {
  899. ulong addr = kvmppc_get_gpr(vcpu, ax_ra) +
  900. kvmppc_get_gpr(vcpu, ax_rb);
  901. emulated = kvmppc_emulate_fpr_load(run, vcpu, ax_rd,
  902. addr, FPU_LS_SINGLE);
  903. if (emulated == EMULATE_DONE)
  904. kvmppc_set_gpr(vcpu, ax_ra, addr);
  905. break;
  906. }
  907. case OP_31_LFDX:
  908. {
  909. ulong addr = (ax_ra ? kvmppc_get_gpr(vcpu, ax_ra) : 0) +
  910. kvmppc_get_gpr(vcpu, ax_rb);
  911. emulated = kvmppc_emulate_fpr_load(run, vcpu, ax_rd,
  912. addr, FPU_LS_DOUBLE);
  913. break;
  914. }
  915. case OP_31_LFDUX:
  916. {
  917. ulong addr = kvmppc_get_gpr(vcpu, ax_ra) +
  918. kvmppc_get_gpr(vcpu, ax_rb);
  919. emulated = kvmppc_emulate_fpr_load(run, vcpu, ax_rd,
  920. addr, FPU_LS_DOUBLE);
  921. if (emulated == EMULATE_DONE)
  922. kvmppc_set_gpr(vcpu, ax_ra, addr);
  923. break;
  924. }
  925. case OP_31_STFSX:
  926. {
  927. ulong addr = (ax_ra ? kvmppc_get_gpr(vcpu, ax_ra) : 0) +
  928. kvmppc_get_gpr(vcpu, ax_rb);
  929. emulated = kvmppc_emulate_fpr_store(run, vcpu, ax_rd,
  930. addr, FPU_LS_SINGLE);
  931. break;
  932. }
  933. case OP_31_STFSUX:
  934. {
  935. ulong addr = kvmppc_get_gpr(vcpu, ax_ra) +
  936. kvmppc_get_gpr(vcpu, ax_rb);
  937. emulated = kvmppc_emulate_fpr_store(run, vcpu, ax_rd,
  938. addr, FPU_LS_SINGLE);
  939. if (emulated == EMULATE_DONE)
  940. kvmppc_set_gpr(vcpu, ax_ra, addr);
  941. break;
  942. }
  943. case OP_31_STFX:
  944. {
  945. ulong addr = (ax_ra ? kvmppc_get_gpr(vcpu, ax_ra) : 0) +
  946. kvmppc_get_gpr(vcpu, ax_rb);
  947. emulated = kvmppc_emulate_fpr_store(run, vcpu, ax_rd,
  948. addr, FPU_LS_DOUBLE);
  949. break;
  950. }
  951. case OP_31_STFUX:
  952. {
  953. ulong addr = kvmppc_get_gpr(vcpu, ax_ra) +
  954. kvmppc_get_gpr(vcpu, ax_rb);
  955. emulated = kvmppc_emulate_fpr_store(run, vcpu, ax_rd,
  956. addr, FPU_LS_DOUBLE);
  957. if (emulated == EMULATE_DONE)
  958. kvmppc_set_gpr(vcpu, ax_ra, addr);
  959. break;
  960. }
  961. case OP_31_STFIWX:
  962. {
  963. ulong addr = (ax_ra ? kvmppc_get_gpr(vcpu, ax_ra) : 0) +
  964. kvmppc_get_gpr(vcpu, ax_rb);
  965. emulated = kvmppc_emulate_fpr_store(run, vcpu, ax_rd,
  966. addr,
  967. FPU_LS_SINGLE_LOW);
  968. break;
  969. }
  970. break;
  971. }
  972. break;
  973. case 59:
  974. switch (inst_get_field(inst, 21, 30)) {
  975. case OP_59_FADDS:
  976. fpd_fadds(&vcpu->arch.fpscr, &cr, fpr_d, fpr_a, fpr_b);
  977. kvmppc_sync_qpr(vcpu, ax_rd);
  978. break;
  979. case OP_59_FSUBS:
  980. fpd_fsubs(&vcpu->arch.fpscr, &cr, fpr_d, fpr_a, fpr_b);
  981. kvmppc_sync_qpr(vcpu, ax_rd);
  982. break;
  983. case OP_59_FDIVS:
  984. fpd_fdivs(&vcpu->arch.fpscr, &cr, fpr_d, fpr_a, fpr_b);
  985. kvmppc_sync_qpr(vcpu, ax_rd);
  986. break;
  987. case OP_59_FRES:
  988. fpd_fres(&vcpu->arch.fpscr, &cr, fpr_d, fpr_b);
  989. kvmppc_sync_qpr(vcpu, ax_rd);
  990. break;
  991. case OP_59_FRSQRTES:
  992. fpd_frsqrtes(&vcpu->arch.fpscr, &cr, fpr_d, fpr_b);
  993. kvmppc_sync_qpr(vcpu, ax_rd);
  994. break;
  995. }
  996. switch (inst_get_field(inst, 26, 30)) {
  997. case OP_59_FMULS:
  998. fpd_fmuls(&vcpu->arch.fpscr, &cr, fpr_d, fpr_a, fpr_c);
  999. kvmppc_sync_qpr(vcpu, ax_rd);
  1000. break;
  1001. case OP_59_FMSUBS:
  1002. fpd_fmsubs(&vcpu->arch.fpscr, &cr, fpr_d, fpr_a, fpr_c, fpr_b);
  1003. kvmppc_sync_qpr(vcpu, ax_rd);
  1004. break;
  1005. case OP_59_FMADDS:
  1006. fpd_fmadds(&vcpu->arch.fpscr, &cr, fpr_d, fpr_a, fpr_c, fpr_b);
  1007. kvmppc_sync_qpr(vcpu, ax_rd);
  1008. break;
  1009. case OP_59_FNMSUBS:
  1010. fpd_fnmsubs(&vcpu->arch.fpscr, &cr, fpr_d, fpr_a, fpr_c, fpr_b);
  1011. kvmppc_sync_qpr(vcpu, ax_rd);
  1012. break;
  1013. case OP_59_FNMADDS:
  1014. fpd_fnmadds(&vcpu->arch.fpscr, &cr, fpr_d, fpr_a, fpr_c, fpr_b);
  1015. kvmppc_sync_qpr(vcpu, ax_rd);
  1016. break;
  1017. }
  1018. break;
  1019. case 63:
  1020. switch (inst_get_field(inst, 21, 30)) {
  1021. case OP_63_MTFSB0:
  1022. case OP_63_MTFSB1:
  1023. case OP_63_MCRFS:
  1024. case OP_63_MTFSFI:
  1025. /* XXX need to implement */
  1026. break;
  1027. case OP_63_MFFS:
  1028. /* XXX missing CR */
  1029. *fpr_d = vcpu->arch.fpscr;
  1030. break;
  1031. case OP_63_MTFSF:
  1032. /* XXX missing fm bits */
  1033. /* XXX missing CR */
  1034. vcpu->arch.fpscr = *fpr_b;
  1035. break;
  1036. case OP_63_FCMPU:
  1037. {
  1038. u32 tmp_cr;
  1039. u32 cr0_mask = 0xf0000000;
  1040. u32 cr_shift = inst_get_field(inst, 6, 8) * 4;
  1041. fpd_fcmpu(&vcpu->arch.fpscr, &tmp_cr, fpr_a, fpr_b);
  1042. cr &= ~(cr0_mask >> cr_shift);
  1043. cr |= (cr & cr0_mask) >> cr_shift;
  1044. break;
  1045. }
  1046. case OP_63_FCMPO:
  1047. {
  1048. u32 tmp_cr;
  1049. u32 cr0_mask = 0xf0000000;
  1050. u32 cr_shift = inst_get_field(inst, 6, 8) * 4;
  1051. fpd_fcmpo(&vcpu->arch.fpscr, &tmp_cr, fpr_a, fpr_b);
  1052. cr &= ~(cr0_mask >> cr_shift);
  1053. cr |= (cr & cr0_mask) >> cr_shift;
  1054. break;
  1055. }
  1056. case OP_63_FNEG:
  1057. fpd_fneg(&vcpu->arch.fpscr, &cr, fpr_d, fpr_b);
  1058. break;
  1059. case OP_63_FMR:
  1060. *fpr_d = *fpr_b;
  1061. break;
  1062. case OP_63_FABS:
  1063. fpd_fabs(&vcpu->arch.fpscr, &cr, fpr_d, fpr_b);
  1064. break;
  1065. case OP_63_FCPSGN:
  1066. fpd_fcpsgn(&vcpu->arch.fpscr, &cr, fpr_d, fpr_a, fpr_b);
  1067. break;
  1068. case OP_63_FDIV:
  1069. fpd_fdiv(&vcpu->arch.fpscr, &cr, fpr_d, fpr_a, fpr_b);
  1070. break;
  1071. case OP_63_FADD:
  1072. fpd_fadd(&vcpu->arch.fpscr, &cr, fpr_d, fpr_a, fpr_b);
  1073. break;
  1074. case OP_63_FSUB:
  1075. fpd_fsub(&vcpu->arch.fpscr, &cr, fpr_d, fpr_a, fpr_b);
  1076. break;
  1077. case OP_63_FCTIW:
  1078. fpd_fctiw(&vcpu->arch.fpscr, &cr, fpr_d, fpr_b);
  1079. break;
  1080. case OP_63_FCTIWZ:
  1081. fpd_fctiwz(&vcpu->arch.fpscr, &cr, fpr_d, fpr_b);
  1082. break;
  1083. case OP_63_FRSP:
  1084. fpd_frsp(&vcpu->arch.fpscr, &cr, fpr_d, fpr_b);
  1085. kvmppc_sync_qpr(vcpu, ax_rd);
  1086. break;
  1087. case OP_63_FRSQRTE:
  1088. {
  1089. double one = 1.0f;
  1090. /* fD = sqrt(fB) */
  1091. fpd_fsqrt(&vcpu->arch.fpscr, &cr, fpr_d, fpr_b);
  1092. /* fD = 1.0f / fD */
  1093. fpd_fdiv(&vcpu->arch.fpscr, &cr, fpr_d, (u64*)&one, fpr_d);
  1094. break;
  1095. }
  1096. }
  1097. switch (inst_get_field(inst, 26, 30)) {
  1098. case OP_63_FMUL:
  1099. fpd_fmul(&vcpu->arch.fpscr, &cr, fpr_d, fpr_a, fpr_c);
  1100. break;
  1101. case OP_63_FSEL:
  1102. fpd_fsel(&vcpu->arch.fpscr, &cr, fpr_d, fpr_a, fpr_c, fpr_b);
  1103. break;
  1104. case OP_63_FMSUB:
  1105. fpd_fmsub(&vcpu->arch.fpscr, &cr, fpr_d, fpr_a, fpr_c, fpr_b);
  1106. break;
  1107. case OP_63_FMADD:
  1108. fpd_fmadd(&vcpu->arch.fpscr, &cr, fpr_d, fpr_a, fpr_c, fpr_b);
  1109. break;
  1110. case OP_63_FNMSUB:
  1111. fpd_fnmsub(&vcpu->arch.fpscr, &cr, fpr_d, fpr_a, fpr_c, fpr_b);
  1112. break;
  1113. case OP_63_FNMADD:
  1114. fpd_fnmadd(&vcpu->arch.fpscr, &cr, fpr_d, fpr_a, fpr_c, fpr_b);
  1115. break;
  1116. }
  1117. break;
  1118. }
  1119. #ifdef DEBUG
  1120. for (i = 0; i < ARRAY_SIZE(vcpu->arch.fpr); i++) {
  1121. u32 f;
  1122. kvm_cvt_df(&vcpu->arch.fpr[i], &f);
  1123. dprintk(KERN_INFO "FPR[%d] = 0x%x\n", i, f);
  1124. }
  1125. #endif
  1126. if (rcomp)
  1127. kvmppc_set_cr(vcpu, cr);
  1128. preempt_enable();
  1129. return emulated;
  1130. }