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