arch/arm-native/kernel/kernel_intern.h

   1 /*
   2     Copyright © 2013-2015, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #ifndef KERNEL_INTERN_H_
   7 #define KERNEL_INTERN_H_
   8
   9 #include <aros/libcall.h>
  10 #include <inttypes.h>
  11 #include <exec/lists.h>
  12 #include <exec/execbase.h>
  13 #include <exec/memory.h>
  14 #include <utility/tagitem.h>
  15 #include <stdio.h>
  16 #include <stdarg.h>
  17
  18 #include "kernel_arm.h"
  19
  20 extern uint32_t __arm_periiobase;
  21 #define ARM_PERIIOBASE (__arm_periiobase)
  22 #include <hardware/bcm2708.h>
  23
  24 #undef KernelBase
  25 struct KernelBase;
  26
  27 /* Use system timer 3 for our scheduling heartbeat */
  28 #define VBLANK_TIMER            3
  29 #define VBLANK_INTERVAL         (1000000 / 50)
  30
  31 #define KERNEL_PHYS_BASE        0x07800000
  32 #define KERNEL_VIRT_BASE        0xff800000
  33
  34 #define VFPEnable               (1 << 30)
  35 #define VFPSingle               (3 << 20)
  36 #define VFPDouble               (3 << 22)
  37
  38 void cpu_Probe(struct ARM_Implementation *);
  39 void cpu_Init(struct ARM_Implementation *, struct TagItem *);
  40
  41 void platform_Init(struct ARM_Implementation *, struct TagItem *);
  42
  43 void core_SetupMMU(struct TagItem *msg);
  44 void core_SetupIntr(void);
  45
  46 void *KrnAddSysTimerHandler(struct KernelBase *);
  47
  48 intptr_t krnGetTagData(Tag tagValue, intptr_t defaultVal, const struct TagItem *tagList);
  49 struct TagItem *krnFindTagItem(Tag tagValue, const struct TagItem *tagList);
  50 struct TagItem *krnNextTagItem(const struct TagItem **tagListPtr);
  51
  52 struct KernelBase *getKernelBase();
  53
  54 #ifdef bug
  55 #undef bug
  56 #endif
  57 #ifdef D
  58 #undef D
  59 #endif
  60 #if DEBUG
  61 #define D(x) x
  62 #define DALLOCMEM(x)
  63 #else
  64 #define D(x)
  65 #define DALLOCMEM(x)
  66 #endif
  67
  68 #define __STR(x) #x
  69 #define STR(x) __STR(x)
  70
  71 AROS_LD2(int, KrnBug,
  72          AROS_LDA(const char *, format, A0),
  73          AROS_LDA(va_list, args, A1),
  74          struct KernelBase *, KernelBase, 12, Kernel);
  75
  76 static inline void bug(const char *format, ...)
  77 {
  78     struct KernelBase *kbase = getKernelBase();
  79     va_list args;
  80     va_start(args, format);
  81     AROS_SLIB_ENTRY(KrnBug, Kernel, 12)(format, args, kbase);
  82     va_end(args);
  83 }
  84
  85 #define VECTCOMMON_START \
  86     "           sub     sp, sp, #4*4           \n" \
  87     "           stmfd   sp!, {r0-r12}          \n" \
  88     "           mov     r0, sp                 \n" \
  89     "           mrs     r1, spsr               \n" \
  90     "           str     r1, [r0, #16*4]        \n" \
  91     "           str     lr, [r0, #15*4]        \n"
  92
  93 #define VECTCOMMON_END \
  94     "           ldr     r1, [sp, #16*4]        \n" \
  95     "           msr     spsr, r1               \n" \
  96     "           and     r1, r1, #31            \n" \
  97     "           cmp     r1, #16                \n" \
  98     "           cmpne   r1, #31                \n" \
  99     "           bne     1f                     \n" \
 100     "           add     r1, sp, #13*4          \n" \
 101     "           ldm     r1, {sp}^              \n" \
 102     "           add     r1, sp, #14*4          \n" \
 103     "           ldm     r1, {lr}^              \n" \
 104     "1:         ldr     lr, [sp, #15*4]        \n" \
 105     "           ldmfd   sp!, {r0-r12}          \n" \
 106     "           add     sp, sp, #4*4           \n" \
 107     "           movs    pc, lr                 \n"
 108
 109 #define STORE_TASKSTATE(task, regs)                                             \
 110     struct ExceptionContext *ctx = task->tc_UnionETask.tc_ETask->et_RegFrame;   \
 111     int __task_reg_no;                                                          \
 112     for (__task_reg_no = 0; __task_reg_no < 12; __task_reg_no++)                \
 113     {                                                                           \
 114         ctx->r[__task_reg_no] = ((uint32_t *)regs)[__task_reg_no];              \
 115     }                                                                           \
 116     ctx->ip = ((uint32_t *)regs)[12];                                           \
 117     ctx->sp = task->tc_SPReg = ((uint32_t *)regs)[13];                          \
 118     ctx->lr = ((uint32_t *)regs)[14];                                           \
 119     ctx->pc = ((uint32_t *)regs)[15];                                           \
 120     ctx->cpsr = ((uint32_t *)regs)[16];
 121
 122 #define RESTORE_TASKSTATE(task, regs)                                           \
 123     struct ExceptionContext *ctx = task->tc_UnionETask.tc_ETask->et_RegFrame;   \
 124     int __task_reg_no;                                                          \
 125     for (__task_reg_no = 0; __task_reg_no < 12; __task_reg_no++)                \
 126     {                                                                           \
 127         ((uint32_t *)regs)[__task_reg_no] = ctx->r[__task_reg_no];              \
 128     }                                                                           \
 129     ((uint32_t *)regs)[12] = ctx->ip;                                           \
 130     ((uint32_t *)regs)[13] = ctx->sp = task->tc_SPReg;                          \
 131     ((uint32_t *)regs)[14] = ctx->lr;                                           \
 132     ((uint32_t *)regs)[15] = ctx->pc;                                           \
 133     ((uint32_t *)regs)[16] = ctx->cpsr;
 134
 135 #endif /*KERNEL_INTERN_H_*/