Kernel/arch/armv7/proc.c

   1 /*
   2  * Acess2
   3  * - By John Hodge (thePowersGang)
   4  *
   5  * arch/arm7/proc.c
   6  * - ARM7 Process Switching
   7  */
   8 #include <acess.h>
   9 #include <threads_int.h>
  10 #include <hal_proc.h>
  11
  12 // === IMPORTS ===
  13 extern tThread  gThreadZero;
  14 extern void     SwitchTask(Uint32 NewSP, Uint32 *OldSP, Uint32 NewIP, Uint32 *OldIP, Uint32 MemPtr);
  15 extern void     KernelThreadHeader(void);       // Actually takes args on stack
  16 extern Uint32   Proc_CloneInt(Uint32 *SP, Uint32 *MemPtr);
  17 extern tVAddr   MM_NewKStack(int bGlobal);      // TODO: Move out into a header
  18
  19 // === PROTOTYPES ===
  20 void    Proc_IdleThread(void *unused);
  21 tTID    Proc_NewKThread(void (*Fnc)(void*), void *Ptr);
  22
  23 // === GLOBALS ===
  24 tThread *gpCurrentThread = &gThreadZero;
  25 tThread *gpIdleThread = NULL;
  26
  27 // === CODE ===
  28 void ArchThreads_Init(void)
  29 {
  30 }
  31
  32 void Proc_IdleThread(void *unused)
  33 {
  34         Threads_SetPriority(gpIdleThread, -1);
  35         for(;;) {
  36                 Proc_Reschedule();
  37                 __asm__ __volatile__ ("wfi");
  38         }
  39 }
  40
  41 void Proc_Start(void)
  42 {
  43         tTID    tid;
  44
  45         tid = Proc_NewKThread( Proc_IdleThread, NULL );
  46         gpIdleThread = Threads_GetThread(tid);
  47         gpIdleThread->ThreadName = (char*)"Idle Thread";
  48 }
  49
  50 int GetCPUNum(void)
  51 {
  52         return 0;
  53 }
  54
  55 tThread *Proc_GetCurThread(void)
  56 {
  57         return gpCurrentThread;
  58 }
  59
  60 void Proc_StartUser(Uint Entrypoint, Uint *Bases, int ArgC, char **ArgV, char **EnvP, int DataSize)
  61 {
  62         Log_Debug("Proc", "Proc_StartUser: (Entrypoint=%p, Bases=%p, ArgC=%i, ...)",
  63                 Entrypoint, Bases, ArgC);
  64         Log_Error("Proc", "TODO: Implement Proc_StartUser");
  65 }
  66
  67 tTID Proc_Clone(Uint Flags)
  68 {
  69         tThread *new;
  70         Uint32  pc, sp, mem;
  71
  72         new = Threads_CloneTCB(Flags);
  73         if(!new)        return -1;
  74
  75         // Actual clone magic
  76         pc = Proc_CloneInt(&sp, &mem);
  77         if(pc == 0) {
  78                 Log("Proc_Clone: In child");
  79                 return 0;
  80         }
  81
  82         new->SavedState.IP = pc;
  83         new->SavedState.SP = sp;
  84         new->MemState.Base = mem;
  85
  86         Threads_AddActive(new);
  87
  88         return new->TID;
  89 }
  90
  91 tTID Proc_SpawnWorker( void (*Fnc)(void*), void *Ptr )
  92 {
  93         tThread *new;
  94         Uint32  sp;
  95
  96         new = Threads_CloneThreadZero();
  97         if(!new)        return -1;
  98         free(new->ThreadName);
  99         new->ThreadName = NULL;
 100
 101         new->KernelStack = MM_NewKStack(1);
 102         if(!new->KernelStack) {
 103                 // TODO: Delete thread
 104                 Log_Error("Proc", "Unable to allocate kernel stack");
 105                 return -1;
 106         }
 107
 108         sp = new->KernelStack;
 109
 110         *(Uint32*)(sp -= 4) = (Uint)Ptr;
 111         *(Uint32*)(sp -= 4) = 1;
 112         *(Uint32*)(sp -= 4) = (Uint)Fnc;
 113         *(Uint32*)(sp -= 4) = (Uint)new;
 114
 115         new->SavedState.SP = sp;
 116         new->SavedState.IP = (Uint)KernelThreadHeader;
 117
 118         Threads_AddActive(new);
 119
 120         return new->TID;
 121 }
 122
 123 tTID Proc_NewKThread( void (*Fnc)(void*), void *Ptr )
 124 {
 125         tThread *new;
 126         Uint32  sp;
 127
 128         new = Threads_CloneTCB(0);
 129         if(!new)        return -1;
 130         free(new->ThreadName);
 131         new->ThreadName = NULL;
 132
 133         // TODO: Non-shared stack
 134         new->KernelStack = MM_NewKStack(1);
 135         if(!new->KernelStack) {
 136                 // TODO: Delete thread
 137                 Log_Error("Proc", "Unable to allocate kernel stack");
 138                 return -1;
 139         }
 140
 141         sp = new->KernelStack;
 142
 143         *(Uint32*)(sp -= 4) = (Uint)Ptr;
 144         *(Uint32*)(sp -= 4) = 1;
 145         *(Uint32*)(sp -= 4) = (Uint)Fnc;
 146         *(Uint32*)(sp -= 4) = (Uint)new;
 147
 148         new->SavedState.SP = sp;
 149         new->SavedState.IP = (Uint)KernelThreadHeader;
 150
 151         Threads_AddActive(new);
 152
 153         return new->TID;
 154 }
 155
 156 void Proc_CallFaultHandler(tThread *Thread)
 157 {
 158
 159 }
 160
 161 void Proc_Reschedule(void)
 162 {
 163         tThread *cur, *next;
 164
 165         cur = gpCurrentThread;
 166
 167         next = Threads_GetNextToRun(0, cur);
 168         if(!next)       next = gpIdleThread;
 169         if(!next || next == cur)        return;
 170
 171         Log("Switching to %p (%i %s) IP=%p SP=%p TTBR0=%p",
 172                 next, next->TID, next->ThreadName,
 173                 next->SavedState.IP, next->SavedState.SP, next->MemState.Base
 174                 );
 175         Log("Requested by %p", __builtin_return_address(0));
 176
 177         gpCurrentThread = next;
 178
 179         SwitchTask(
 180                 next->SavedState.SP, &cur->SavedState.SP,
 181                 next->SavedState.IP, &cur->SavedState.IP,
 182                 next->MemState.Base
 183                 );
 184
 185 }
 186
 187 void Proc_DumpThreadCPUState(tThread *Thread)
 188 {
 189
 190 }
 191