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 void     Proc_int_DropToUser(Uint32 IP, Uint32 SP) NORETURN;
  17 extern Uint32   Proc_CloneInt(Uint32 *SP, Uint32 *MemPtr);
  18 extern tVAddr   MM_NewKStack(int bGlobal);      // TODO: Move out into a header
  19 extern tVAddr   MM_NewUserStack(void);
  20 extern char     kernel_table0[];
  21
  22 // === PROTOTYPES ===
  23 void    Proc_IdleThread(void *unused);
  24
  25 // === GLOBALS ===
  26 tThread *gpCurrentThread = &gThreadZero;
  27 tThread *gpIdleThread = NULL;
  28
  29 // === CODE ===
  30 void ArchThreads_Init(void)
  31 {
  32         gThreadZero.MemState.Base = (tPAddr)&kernel_table0 - KERNEL_BASE;
  33 }
  34
  35 void Proc_IdleThread(void *unused)
  36 {
  37         Threads_SetPriority(gpIdleThread, -1);
  38         for(;;) {
  39                 Proc_Reschedule();
  40                 __asm__ __volatile__ ("wfi");
  41         }
  42 }
  43
  44 void Proc_Start(void)
  45 {
  46         tTID    tid;
  47
  48         tid = Proc_NewKThread( Proc_IdleThread, NULL );
  49         gpIdleThread = Threads_GetThread(tid);
  50         gpIdleThread->ThreadName = (char*)"Idle Thread";
  51 }
  52
  53 int GetCPUNum(void)
  54 {
  55         return 0;
  56 }
  57
  58 tThread *Proc_GetCurThread(void)
  59 {
  60         return gpCurrentThread;
  61 }
  62
  63 void Proc_StartUser(Uint Entrypoint, Uint Base, int ArgC, char **ArgV, int DataSize)
  64 {
  65         Uint32  *usr_sp;
  66          int    i;
  67         char    **envp;
  68         tVAddr  delta;
  69
  70         Log_Debug("Proc", "Proc_StartUser: (Entrypoint=%p, Base=%p, ArgC=%i, ArgV=%p, DataSize=0x%x)",
  71                 Entrypoint, Base, ArgC, ArgV, DataSize);
  72
  73         // Write data to the user's stack
  74         usr_sp = (void*)MM_NewUserStack();
  75         usr_sp -= (DataSize+3)/4;
  76         memcpy(usr_sp, ArgV, DataSize);
  77         free(ArgV);
  78
  79         // Adjust user's copy of the arguments
  80         delta = (tVAddr)usr_sp -  (tVAddr)ArgV;
  81         Log("delta = %x", delta);
  82         ArgV = (void*)usr_sp;
  83         for(i = 0; ArgV[i]; i ++)       ArgV[i] += delta;
  84         envp = &ArgV[i+1];
  85         for(i = 0; envp[i]; i ++)       envp[i] += delta;
  86         Log("envp = %p", envp);
  87
  88         *--usr_sp = (Uint32)envp;
  89         *--usr_sp = (Uint32)ArgV;
  90         *--usr_sp = (Uint32)ArgC;
  91         *--usr_sp = Base;
  92
  93         // Drop to user code
  94         Log_Debug("Proc", "Proc_int_DropToUser(%p, %p)", Entrypoint, usr_sp);
  95         Proc_int_DropToUser(Entrypoint, (Uint32)usr_sp);
  96 }
  97
  98 tTID Proc_Clone(Uint Flags)
  99 {
 100         tThread *new;
 101         Uint32  pc, sp, mem;
 102
 103         new = Threads_CloneTCB(Flags);
 104         if(!new)        return -1;
 105
 106         // Actual clone magic
 107         pc = Proc_CloneInt(&sp, &mem);
 108         if(pc == 0) {
 109                 Log("Proc_Clone: In child");
 110                 return 0;
 111         }
 112
 113         new->SavedState.IP = pc;
 114         new->SavedState.SP = sp;
 115         new->MemState.Base = mem;
 116
 117         Threads_AddActive(new);
 118
 119         return new->TID;
 120 }
 121
 122 tTID Proc_SpawnWorker( void (*Fnc)(void*), void *Ptr )
 123 {
 124         tThread *new;
 125         Uint32  sp;
 126
 127         new = Threads_CloneThreadZero();
 128         if(!new)        return -1;
 129         if(new->ThreadName)     free(new->ThreadName);
 130         new->ThreadName = NULL;
 131
 132         new->KernelStack = MM_NewKStack(1);
 133         if(!new->KernelStack) {
 134                 // TODO: Delete thread
 135                 Log_Error("Proc", "Unable to allocate kernel stack");
 136                 return -1;
 137         }
 138
 139         sp = new->KernelStack;
 140
 141         *(Uint32*)(sp -= 4) = (Uint)Ptr;
 142         *(Uint32*)(sp -= 4) = (Uint)Fnc;
 143         *(Uint32*)(sp -= 4) = (Uint)new;
 144
 145         new->SavedState.SP = sp;
 146         new->SavedState.IP = (Uint)KernelThreadHeader;
 147
 148         Threads_AddActive(new);
 149
 150         return new->TID;
 151 }
 152
 153 tTID Proc_NewKThread( void (*Fnc)(void*), void *Ptr )
 154 {
 155         tThread *new;
 156         Uint32  sp;
 157
 158         new = Threads_CloneTCB(0);
 159         if(!new)        return -1;
 160         free(new->ThreadName);
 161         new->ThreadName = NULL;
 162
 163         // TODO: Non-shared stack
 164         new->KernelStack = MM_NewKStack(1);
 165         if(!new->KernelStack) {
 166                 // TODO: Delete thread
 167                 Log_Error("Proc", "Unable to allocate kernel stack");
 168                 return -1;
 169         }
 170
 171         sp = new->KernelStack;
 172
 173         *(Uint32*)(sp -= 4) = (Uint)Ptr;
 174         *(Uint32*)(sp -= 4) = (Uint)Fnc;
 175         *(Uint32*)(sp -= 4) = (Uint)new;
 176
 177         new->SavedState.SP = sp;
 178         new->SavedState.IP = (Uint)KernelThreadHeader;
 179
 180         Threads_AddActive(new);
 181
 182         return new->TID;
 183 }
 184
 185 void Proc_CallFaultHandler(tThread *Thread)
 186 {
 187
 188 }
 189
 190 void Proc_Reschedule(void)
 191 {
 192         tThread *cur, *next;
 193
 194         cur = gpCurrentThread;
 195
 196         next = Threads_GetNextToRun(0, cur);
 197         if(!next)       next = gpIdleThread;
 198         if(!next || next == cur)        return;
 199
 200         Log("Switching to %p (%i %s) IP=%p SP=%p TTBR0=%p",
 201                 next, next->TID, next->ThreadName,
 202                 next->SavedState.IP, next->SavedState.SP, next->MemState.Base
 203                 );
 204         Log("Requested by %p", __builtin_return_address(0));
 205
 206         gpCurrentThread = next;
 207
 208         SwitchTask(
 209                 next->SavedState.SP, &cur->SavedState.SP,
 210                 next->SavedState.IP, &cur->SavedState.IP,
 211                 next->MemState.Base
 212                 );
 213
 214 }
 215
 216 void Proc_DumpThreadCPUState(tThread *Thread)
 217 {
 218
 219 }
 220