Implemented setjmp() and longjmp()

And they worked on the first try...

Kernel/src/Lua/glue.c

@@ -76,6 +76,7 @@ int setjmp(jmp_buf env)
 
             // still here? then we just came from longjmp(). let's return the
             // argument 'value', which we have on our stack
+            "popq %%rbx\n"
             "popq %%rax\n"
             "movq %%rax, %0\n"
             "jmp setjmp_done\n"
@@ -92,19 +93,51 @@ int setjmp(jmp_buf env)
             "nop"
     :"=r"(Result):"a"(&env[0]));
 
-    kprintf("SETJMP! :D\n");
+    /*kprintf("SETJMP! :D\n");
     kprintf("%x %x %x %x\n", env[0].rax, env[0].rbx, env[0].rcx, env[0].rdx);
     kprintf("%x %x %x %x\n", env[0].rsi, env[0].rdi, env[0].rsp, env[0].rbp);
     kprintf("%x %x %x %x\n", env[0].r8,  env[0].r9,  env[0].r10, env[0].r11);
     kprintf("%x %x %x %x\n", env[0].r12, env[0].r13, env[0].r14, env[0].rip);
-    kprintf("-------------\n");
+    kprintf("-------------\n");*/
     return (int)Result;
 }
 
 void longjmp(jmp_buf env, int value)
 {
-    kprintf("longjmp() stub.");
-    for (;;) {}
+    __asm__ __volatile__(
+            "movq  48(%%rax), %%rsp\n"
+            // we can now push to the setjmp env stack
+
+            // push 'value'
+            "pushq %%rbx\n"
+
+            // push saved rbx
+            "movq   8(%%rax), %%rbx\n"
+            "pushq %%rbx\n"
+
+            "movq  16(%%rax), %%rcx\n"
+            "movq  24(%%rax), %%rdx\n"
+            "movq  32(%%rax), %%rsi\n"
+            "movq  40(%%rax), %%rdi\n"
+            "movq  56(%%rax), %%rbp\n"
+            "movq  64(%%rax), %%r8\n"
+            "movq  72(%%rax), %%r9\n"
+            "movq  80(%%rax), %%r10\n"
+            "movq  88(%%rax), %%r11\n"
+            "movq  96(%%rax), %%r12\n"
+            "movq 104(%%rax), %%r13\n"
+            "movq 112(%%rax), %%r14\n"
+            "movq 120(%%rax), %%r15\n"
+
+            // get rip
+            "movq 128(%%rax), %%rbx\n"
+
+            // set rax to 0 so that setjmp knows we're not the original call
+            "xorq %%rax, %%rax\n"
+
+            // off we go!
+            "jmp %%rbx\n"
+   ::"a"(&env[0]), "b"(value));
 }
 
 // stdio.h implementation

Kernel/src/Tier0/kmain.c

@@ -160,21 +160,14 @@ void kmain_newstack(void)
     lua_State *State = lua_newstate(l_alloc, NULL);
     //luaL_checkversion(State);
     //lua_gc(State, LUA_GCSTOP, 0);
-    //luaL_openlibs(State);
-    lua_newtable(State);
-    kprintf("%i\n", lua_isnil(State, -1));
-    lua_setglobal(State, "_G");
-    lua_getglobal(State, "_G");
-    kprintf("stack top: %i\n", lua_gettop(State));
-    kprintf("%i\n", lua_isnil(State, -1));
-    for (;;) {}
+    luaL_openlibs(State);
     //lua_getfield(State, 0, "_G");
     //luaopen_base(State);
     //lua_gc(State, LUA_GCRESTART, 0);
 
-    //doluastring(State, "a.print('hello!');");
+    doluastring(State, "_G.print('hello!');");
     //doluastring(State, "tablee.a = 1337");
-    
+    kprintf("back from lua.\n");    
     for (;;) {}
     
     /*pic_init(0, 0);