head_booke.h 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445
  1. #ifndef __HEAD_BOOKE_H__
  2. #define __HEAD_BOOKE_H__
  3. #include <asm/ptrace.h> /* for STACK_FRAME_REGS_MARKER */
  4. #include <asm/kvm_asm.h>
  5. #include <asm/kvm_booke_hv_asm.h>
  6. /*
  7. * Macros used for common Book-e exception handling
  8. */
  9. #define SET_IVOR(vector_number, vector_label) \
  10. li r26,vector_label@l; \
  11. mtspr SPRN_IVOR##vector_number,r26; \
  12. sync
  13. #if (THREAD_SHIFT < 15)
  14. #define ALLOC_STACK_FRAME(reg, val) \
  15. addi reg,reg,val
  16. #else
  17. #define ALLOC_STACK_FRAME(reg, val) \
  18. addis reg,reg,val@ha; \
  19. addi reg,reg,val@l
  20. #endif
  21. /*
  22. * Macro used to get to thread save registers.
  23. * Note that entries 0-3 are used for the prolog code, and the remaining
  24. * entries are available for specific exception use in the event a handler
  25. * requires more than 4 scratch registers.
  26. */
  27. #define THREAD_NORMSAVE(offset) (THREAD_NORMSAVES + (offset * 4))
  28. #define NORMAL_EXCEPTION_PROLOG(intno) \
  29. mtspr SPRN_SPRG_WSCRATCH0, r10; /* save one register */ \
  30. mfspr r10, SPRN_SPRG_THREAD; \
  31. stw r11, THREAD_NORMSAVE(0)(r10); \
  32. stw r13, THREAD_NORMSAVE(2)(r10); \
  33. mfcr r13; /* save CR in r13 for now */\
  34. mfspr r11, SPRN_SRR1; \
  35. DO_KVM BOOKE_INTERRUPT_##intno SPRN_SRR1; \
  36. andi. r11, r11, MSR_PR; /* check whether user or kernel */\
  37. mr r11, r1; \
  38. beq 1f; \
  39. /* if from user, start at top of this thread's kernel stack */ \
  40. lwz r11, THREAD_INFO-THREAD(r10); \
  41. ALLOC_STACK_FRAME(r11, THREAD_SIZE); \
  42. 1 : subi r11, r11, INT_FRAME_SIZE; /* Allocate exception frame */ \
  43. stw r13, _CCR(r11); /* save various registers */ \
  44. stw r12,GPR12(r11); \
  45. stw r9,GPR9(r11); \
  46. mfspr r13, SPRN_SPRG_RSCRATCH0; \
  47. stw r13, GPR10(r11); \
  48. lwz r12, THREAD_NORMSAVE(0)(r10); \
  49. stw r12,GPR11(r11); \
  50. lwz r13, THREAD_NORMSAVE(2)(r10); /* restore r13 */ \
  51. mflr r10; \
  52. stw r10,_LINK(r11); \
  53. mfspr r12,SPRN_SRR0; \
  54. stw r1, GPR1(r11); \
  55. mfspr r9,SPRN_SRR1; \
  56. stw r1, 0(r11); \
  57. mr r1, r11; \
  58. rlwinm r9,r9,0,14,12; /* clear MSR_WE (necessary?) */\
  59. stw r0,GPR0(r11); \
  60. lis r10, STACK_FRAME_REGS_MARKER@ha;/* exception frame marker */ \
  61. addi r10, r10, STACK_FRAME_REGS_MARKER@l; \
  62. stw r10, 8(r11); \
  63. SAVE_4GPRS(3, r11); \
  64. SAVE_2GPRS(7, r11)
  65. /* To handle the additional exception priority levels on 40x and Book-E
  66. * processors we allocate a stack per additional priority level.
  67. *
  68. * On 40x critical is the only additional level
  69. * On 44x/e500 we have critical and machine check
  70. * On e200 we have critical and debug (machine check occurs via critical)
  71. *
  72. * Additionally we reserve a SPRG for each priority level so we can free up a
  73. * GPR to use as the base for indirect access to the exception stacks. This
  74. * is necessary since the MMU is always on, for Book-E parts, and the stacks
  75. * are offset from KERNELBASE.
  76. *
  77. * There is some space optimization to be had here if desired. However
  78. * to allow for a common kernel with support for debug exceptions either
  79. * going to critical or their own debug level we aren't currently
  80. * providing configurations that micro-optimize space usage.
  81. */
  82. #define MC_STACK_BASE mcheckirq_ctx
  83. #define CRIT_STACK_BASE critirq_ctx
  84. /* only on e500mc/e200 */
  85. #define DBG_STACK_BASE dbgirq_ctx
  86. #define EXC_LVL_FRAME_OVERHEAD (THREAD_SIZE - INT_FRAME_SIZE - EXC_LVL_SIZE)
  87. #ifdef CONFIG_SMP
  88. #define BOOKE_LOAD_EXC_LEVEL_STACK(level) \
  89. mfspr r8,SPRN_PIR; \
  90. slwi r8,r8,2; \
  91. addis r8,r8,level##_STACK_BASE@ha; \
  92. lwz r8,level##_STACK_BASE@l(r8); \
  93. addi r8,r8,EXC_LVL_FRAME_OVERHEAD;
  94. #else
  95. #define BOOKE_LOAD_EXC_LEVEL_STACK(level) \
  96. lis r8,level##_STACK_BASE@ha; \
  97. lwz r8,level##_STACK_BASE@l(r8); \
  98. addi r8,r8,EXC_LVL_FRAME_OVERHEAD;
  99. #endif
  100. /*
  101. * Exception prolog for critical/machine check exceptions. This is a
  102. * little different from the normal exception prolog above since a
  103. * critical/machine check exception can potentially occur at any point
  104. * during normal exception processing. Thus we cannot use the same SPRG
  105. * registers as the normal prolog above. Instead we use a portion of the
  106. * critical/machine check exception stack at low physical addresses.
  107. */
  108. #define EXC_LEVEL_EXCEPTION_PROLOG(exc_level, intno, exc_level_srr0, exc_level_srr1) \
  109. mtspr SPRN_SPRG_WSCRATCH_##exc_level,r8; \
  110. BOOKE_LOAD_EXC_LEVEL_STACK(exc_level);/* r8 points to the exc_level stack*/ \
  111. stw r9,GPR9(r8); /* save various registers */\
  112. mfcr r9; /* save CR in r9 for now */\
  113. stw r10,GPR10(r8); \
  114. stw r11,GPR11(r8); \
  115. stw r9,_CCR(r8); /* save CR on stack */\
  116. mfspr r11,exc_level_srr1; /* check whether user or kernel */\
  117. DO_KVM BOOKE_INTERRUPT_##intno exc_level_srr1; \
  118. andi. r11,r11,MSR_PR; \
  119. mfspr r11,SPRN_SPRG_THREAD; /* if from user, start at top of */\
  120. lwz r11,THREAD_INFO-THREAD(r11); /* this thread's kernel stack */\
  121. addi r11,r11,EXC_LVL_FRAME_OVERHEAD; /* allocate stack frame */\
  122. beq 1f; \
  123. /* COMING FROM USER MODE */ \
  124. stw r9,_CCR(r11); /* save CR */\
  125. lwz r10,GPR10(r8); /* copy regs from exception stack */\
  126. lwz r9,GPR9(r8); \
  127. stw r10,GPR10(r11); \
  128. lwz r10,GPR11(r8); \
  129. stw r9,GPR9(r11); \
  130. stw r10,GPR11(r11); \
  131. b 2f; \
  132. /* COMING FROM PRIV MODE */ \
  133. 1: lwz r9,TI_FLAGS-EXC_LVL_FRAME_OVERHEAD(r11); \
  134. lwz r10,TI_PREEMPT-EXC_LVL_FRAME_OVERHEAD(r11); \
  135. stw r9,TI_FLAGS-EXC_LVL_FRAME_OVERHEAD(r8); \
  136. stw r10,TI_PREEMPT-EXC_LVL_FRAME_OVERHEAD(r8); \
  137. lwz r9,TI_TASK-EXC_LVL_FRAME_OVERHEAD(r11); \
  138. stw r9,TI_TASK-EXC_LVL_FRAME_OVERHEAD(r8); \
  139. mr r11,r8; \
  140. 2: mfspr r8,SPRN_SPRG_RSCRATCH_##exc_level; \
  141. stw r12,GPR12(r11); /* save various registers */\
  142. mflr r10; \
  143. stw r10,_LINK(r11); \
  144. mfspr r12,SPRN_DEAR; /* save DEAR and ESR in the frame */\
  145. stw r12,_DEAR(r11); /* since they may have had stuff */\
  146. mfspr r9,SPRN_ESR; /* in them at the point where the */\
  147. stw r9,_ESR(r11); /* exception was taken */\
  148. mfspr r12,exc_level_srr0; \
  149. stw r1,GPR1(r11); \
  150. mfspr r9,exc_level_srr1; \
  151. stw r1,0(r11); \
  152. mr r1,r11; \
  153. rlwinm r9,r9,0,14,12; /* clear MSR_WE (necessary?) */\
  154. stw r0,GPR0(r11); \
  155. SAVE_4GPRS(3, r11); \
  156. SAVE_2GPRS(7, r11)
  157. #define CRITICAL_EXCEPTION_PROLOG(intno) \
  158. EXC_LEVEL_EXCEPTION_PROLOG(CRIT, intno, SPRN_CSRR0, SPRN_CSRR1)
  159. #define DEBUG_EXCEPTION_PROLOG \
  160. EXC_LEVEL_EXCEPTION_PROLOG(DBG, DEBUG, SPRN_DSRR0, SPRN_DSRR1)
  161. #define MCHECK_EXCEPTION_PROLOG \
  162. EXC_LEVEL_EXCEPTION_PROLOG(MC, MACHINE_CHECK, \
  163. SPRN_MCSRR0, SPRN_MCSRR1)
  164. /*
  165. * Guest Doorbell -- this is a bit odd in that uses GSRR0/1 despite
  166. * being delivered to the host. This exception can only happen
  167. * inside a KVM guest -- so we just handle up to the DO_KVM rather
  168. * than try to fit this into one of the existing prolog macros.
  169. */
  170. #define GUEST_DOORBELL_EXCEPTION \
  171. START_EXCEPTION(GuestDoorbell); \
  172. mtspr SPRN_SPRG_WSCRATCH0, r10; /* save one register */ \
  173. mfspr r10, SPRN_SPRG_THREAD; \
  174. stw r11, THREAD_NORMSAVE(0)(r10); \
  175. mfspr r11, SPRN_SRR1; \
  176. stw r13, THREAD_NORMSAVE(2)(r10); \
  177. mfcr r13; /* save CR in r13 for now */\
  178. DO_KVM BOOKE_INTERRUPT_GUEST_DBELL SPRN_GSRR1; \
  179. trap
  180. /*
  181. * Exception vectors.
  182. */
  183. #define START_EXCEPTION(label) \
  184. .align 5; \
  185. label:
  186. #define EXCEPTION(n, intno, label, hdlr, xfer) \
  187. START_EXCEPTION(label); \
  188. NORMAL_EXCEPTION_PROLOG(intno); \
  189. addi r3,r1,STACK_FRAME_OVERHEAD; \
  190. xfer(n, hdlr)
  191. #define CRITICAL_EXCEPTION(n, intno, label, hdlr) \
  192. START_EXCEPTION(label); \
  193. CRITICAL_EXCEPTION_PROLOG(intno); \
  194. addi r3,r1,STACK_FRAME_OVERHEAD; \
  195. EXC_XFER_TEMPLATE(hdlr, n+2, (MSR_KERNEL & ~(MSR_ME|MSR_DE|MSR_CE)), \
  196. NOCOPY, crit_transfer_to_handler, \
  197. ret_from_crit_exc)
  198. #define MCHECK_EXCEPTION(n, label, hdlr) \
  199. START_EXCEPTION(label); \
  200. MCHECK_EXCEPTION_PROLOG; \
  201. mfspr r5,SPRN_ESR; \
  202. stw r5,_ESR(r11); \
  203. addi r3,r1,STACK_FRAME_OVERHEAD; \
  204. EXC_XFER_TEMPLATE(hdlr, n+4, (MSR_KERNEL & ~(MSR_ME|MSR_DE|MSR_CE)), \
  205. NOCOPY, mcheck_transfer_to_handler, \
  206. ret_from_mcheck_exc)
  207. #define EXC_XFER_TEMPLATE(hdlr, trap, msr, copyee, tfer, ret) \
  208. li r10,trap; \
  209. stw r10,_TRAP(r11); \
  210. lis r10,msr@h; \
  211. ori r10,r10,msr@l; \
  212. copyee(r10, r9); \
  213. bl tfer; \
  214. .long hdlr; \
  215. .long ret
  216. #define COPY_EE(d, s) rlwimi d,s,0,16,16
  217. #define NOCOPY(d, s)
  218. #define EXC_XFER_STD(n, hdlr) \
  219. EXC_XFER_TEMPLATE(hdlr, n, MSR_KERNEL, NOCOPY, transfer_to_handler_full, \
  220. ret_from_except_full)
  221. #define EXC_XFER_LITE(n, hdlr) \
  222. EXC_XFER_TEMPLATE(hdlr, n+1, MSR_KERNEL, NOCOPY, transfer_to_handler, \
  223. ret_from_except)
  224. #define EXC_XFER_EE(n, hdlr) \
  225. EXC_XFER_TEMPLATE(hdlr, n, MSR_KERNEL, COPY_EE, transfer_to_handler_full, \
  226. ret_from_except_full)
  227. #define EXC_XFER_EE_LITE(n, hdlr) \
  228. EXC_XFER_TEMPLATE(hdlr, n+1, MSR_KERNEL, COPY_EE, transfer_to_handler, \
  229. ret_from_except)
  230. /* Check for a single step debug exception while in an exception
  231. * handler before state has been saved. This is to catch the case
  232. * where an instruction that we are trying to single step causes
  233. * an exception (eg ITLB/DTLB miss) and thus the first instruction of
  234. * the exception handler generates a single step debug exception.
  235. *
  236. * If we get a debug trap on the first instruction of an exception handler,
  237. * we reset the MSR_DE in the _exception handler's_ MSR (the debug trap is
  238. * a critical exception, so we are using SPRN_CSRR1 to manipulate the MSR).
  239. * The exception handler was handling a non-critical interrupt, so it will
  240. * save (and later restore) the MSR via SPRN_CSRR1, which will still have
  241. * the MSR_DE bit set.
  242. */
  243. #define DEBUG_DEBUG_EXCEPTION \
  244. START_EXCEPTION(DebugDebug); \
  245. DEBUG_EXCEPTION_PROLOG; \
  246. \
  247. /* \
  248. * If there is a single step or branch-taken exception in an \
  249. * exception entry sequence, it was probably meant to apply to \
  250. * the code where the exception occurred (since exception entry \
  251. * doesn't turn off DE automatically). We simulate the effect \
  252. * of turning off DE on entry to an exception handler by turning \
  253. * off DE in the DSRR1 value and clearing the debug status. \
  254. */ \
  255. mfspr r10,SPRN_DBSR; /* check single-step/branch taken */ \
  256. andis. r10,r10,(DBSR_IC|DBSR_BT)@h; \
  257. beq+ 2f; \
  258. \
  259. lis r10,interrupt_base@h; /* check if exception in vectors */ \
  260. ori r10,r10,interrupt_base@l; \
  261. cmplw r12,r10; \
  262. blt+ 2f; /* addr below exception vectors */ \
  263. \
  264. lis r10,interrupt_end@h; \
  265. ori r10,r10,interrupt_end@l; \
  266. cmplw r12,r10; \
  267. bgt+ 2f; /* addr above exception vectors */ \
  268. \
  269. /* here it looks like we got an inappropriate debug exception. */ \
  270. 1: rlwinm r9,r9,0,~MSR_DE; /* clear DE in the CDRR1 value */ \
  271. lis r10,(DBSR_IC|DBSR_BT)@h; /* clear the IC event */ \
  272. mtspr SPRN_DBSR,r10; \
  273. /* restore state and get out */ \
  274. lwz r10,_CCR(r11); \
  275. lwz r0,GPR0(r11); \
  276. lwz r1,GPR1(r11); \
  277. mtcrf 0x80,r10; \
  278. mtspr SPRN_DSRR0,r12; \
  279. mtspr SPRN_DSRR1,r9; \
  280. lwz r9,GPR9(r11); \
  281. lwz r12,GPR12(r11); \
  282. mtspr SPRN_SPRG_WSCRATCH_DBG,r8; \
  283. BOOKE_LOAD_EXC_LEVEL_STACK(DBG); /* r8 points to the debug stack */ \
  284. lwz r10,GPR10(r8); \
  285. lwz r11,GPR11(r8); \
  286. mfspr r8,SPRN_SPRG_RSCRATCH_DBG; \
  287. \
  288. PPC_RFDI; \
  289. b .; \
  290. \
  291. /* continue normal handling for a debug exception... */ \
  292. 2: mfspr r4,SPRN_DBSR; \
  293. addi r3,r1,STACK_FRAME_OVERHEAD; \
  294. EXC_XFER_TEMPLATE(DebugException, 0x2008, (MSR_KERNEL & ~(MSR_ME|MSR_DE|MSR_CE)), NOCOPY, debug_transfer_to_handler, ret_from_debug_exc)
  295. #define DEBUG_CRIT_EXCEPTION \
  296. START_EXCEPTION(DebugCrit); \
  297. CRITICAL_EXCEPTION_PROLOG(DEBUG); \
  298. \
  299. /* \
  300. * If there is a single step or branch-taken exception in an \
  301. * exception entry sequence, it was probably meant to apply to \
  302. * the code where the exception occurred (since exception entry \
  303. * doesn't turn off DE automatically). We simulate the effect \
  304. * of turning off DE on entry to an exception handler by turning \
  305. * off DE in the CSRR1 value and clearing the debug status. \
  306. */ \
  307. mfspr r10,SPRN_DBSR; /* check single-step/branch taken */ \
  308. andis. r10,r10,(DBSR_IC|DBSR_BT)@h; \
  309. beq+ 2f; \
  310. \
  311. lis r10,interrupt_base@h; /* check if exception in vectors */ \
  312. ori r10,r10,interrupt_base@l; \
  313. cmplw r12,r10; \
  314. blt+ 2f; /* addr below exception vectors */ \
  315. \
  316. lis r10,interrupt_end@h; \
  317. ori r10,r10,interrupt_end@l; \
  318. cmplw r12,r10; \
  319. bgt+ 2f; /* addr above exception vectors */ \
  320. \
  321. /* here it looks like we got an inappropriate debug exception. */ \
  322. 1: rlwinm r9,r9,0,~MSR_DE; /* clear DE in the CSRR1 value */ \
  323. lis r10,(DBSR_IC|DBSR_BT)@h; /* clear the IC event */ \
  324. mtspr SPRN_DBSR,r10; \
  325. /* restore state and get out */ \
  326. lwz r10,_CCR(r11); \
  327. lwz r0,GPR0(r11); \
  328. lwz r1,GPR1(r11); \
  329. mtcrf 0x80,r10; \
  330. mtspr SPRN_CSRR0,r12; \
  331. mtspr SPRN_CSRR1,r9; \
  332. lwz r9,GPR9(r11); \
  333. lwz r12,GPR12(r11); \
  334. mtspr SPRN_SPRG_WSCRATCH_CRIT,r8; \
  335. BOOKE_LOAD_EXC_LEVEL_STACK(CRIT); /* r8 points to the debug stack */ \
  336. lwz r10,GPR10(r8); \
  337. lwz r11,GPR11(r8); \
  338. mfspr r8,SPRN_SPRG_RSCRATCH_CRIT; \
  339. \
  340. rfci; \
  341. b .; \
  342. \
  343. /* continue normal handling for a critical exception... */ \
  344. 2: mfspr r4,SPRN_DBSR; \
  345. addi r3,r1,STACK_FRAME_OVERHEAD; \
  346. EXC_XFER_TEMPLATE(DebugException, 0x2002, (MSR_KERNEL & ~(MSR_ME|MSR_DE|MSR_CE)), NOCOPY, crit_transfer_to_handler, ret_from_crit_exc)
  347. #define DATA_STORAGE_EXCEPTION \
  348. START_EXCEPTION(DataStorage) \
  349. NORMAL_EXCEPTION_PROLOG(DATA_STORAGE); \
  350. mfspr r5,SPRN_ESR; /* Grab the ESR and save it */ \
  351. stw r5,_ESR(r11); \
  352. mfspr r4,SPRN_DEAR; /* Grab the DEAR */ \
  353. EXC_XFER_LITE(0x0300, handle_page_fault)
  354. #define INSTRUCTION_STORAGE_EXCEPTION \
  355. START_EXCEPTION(InstructionStorage) \
  356. NORMAL_EXCEPTION_PROLOG(INST_STORAGE); \
  357. mfspr r5,SPRN_ESR; /* Grab the ESR and save it */ \
  358. stw r5,_ESR(r11); \
  359. mr r4,r12; /* Pass SRR0 as arg2 */ \
  360. li r5,0; /* Pass zero as arg3 */ \
  361. EXC_XFER_LITE(0x0400, handle_page_fault)
  362. #define ALIGNMENT_EXCEPTION \
  363. START_EXCEPTION(Alignment) \
  364. NORMAL_EXCEPTION_PROLOG(ALIGNMENT); \
  365. mfspr r4,SPRN_DEAR; /* Grab the DEAR and save it */ \
  366. stw r4,_DEAR(r11); \
  367. addi r3,r1,STACK_FRAME_OVERHEAD; \
  368. EXC_XFER_EE(0x0600, alignment_exception)
  369. #define PROGRAM_EXCEPTION \
  370. START_EXCEPTION(Program) \
  371. NORMAL_EXCEPTION_PROLOG(PROGRAM); \
  372. mfspr r4,SPRN_ESR; /* Grab the ESR and save it */ \
  373. stw r4,_ESR(r11); \
  374. addi r3,r1,STACK_FRAME_OVERHEAD; \
  375. EXC_XFER_STD(0x0700, program_check_exception)
  376. #define DECREMENTER_EXCEPTION \
  377. START_EXCEPTION(Decrementer) \
  378. NORMAL_EXCEPTION_PROLOG(DECREMENTER); \
  379. lis r0,TSR_DIS@h; /* Setup the DEC interrupt mask */ \
  380. mtspr SPRN_TSR,r0; /* Clear the DEC interrupt */ \
  381. addi r3,r1,STACK_FRAME_OVERHEAD; \
  382. EXC_XFER_LITE(0x0900, timer_interrupt)
  383. #define FP_UNAVAILABLE_EXCEPTION \
  384. START_EXCEPTION(FloatingPointUnavailable) \
  385. NORMAL_EXCEPTION_PROLOG(FP_UNAVAIL); \
  386. beq 1f; \
  387. bl load_up_fpu; /* if from user, just load it up */ \
  388. b fast_exception_return; \
  389. 1: addi r3,r1,STACK_FRAME_OVERHEAD; \
  390. EXC_XFER_EE_LITE(0x800, kernel_fp_unavailable_exception)
  391. #ifndef __ASSEMBLY__
  392. struct exception_regs {
  393. unsigned long mas0;
  394. unsigned long mas1;
  395. unsigned long mas2;
  396. unsigned long mas3;
  397. unsigned long mas6;
  398. unsigned long mas7;
  399. unsigned long srr0;
  400. unsigned long srr1;
  401. unsigned long csrr0;
  402. unsigned long csrr1;
  403. unsigned long dsrr0;
  404. unsigned long dsrr1;
  405. unsigned long saved_ksp_limit;
  406. };
  407. /* ensure this structure is always sized to a multiple of the stack alignment */
  408. #define STACK_EXC_LVL_FRAME_SIZE _ALIGN_UP(sizeof (struct exception_regs), 16)
  409. #endif /* __ASSEMBLY__ */
  410. #endif /* __HEAD_BOOKE_H__ */