OSDev.org

Code: Select all

procedure myThread();
var
    i: integer;
begin
    while true do begin
    end;
end;

Code: Select all

procedure Run(Thread: TTID);
var
    regs: IrqRegs;
    entry: pcardinal; { just for debugging }
begin
    { The next line sets up the regs structure with the correct register values, and
    switches to the correct page directory (note that even before this "switch" I still used the same page directory.)
    RunThread(PThread(Thread), @regs);
    { This code prints the page table entry for debugging }
    entry := PageEntryGet($100000);
    writestr('changed? ');
    writehexln(entry^);
    { Here I go to user-mode }
    asm
        lea esp, regs
        pop gs
        pop fs
        pop es
        pop ds
        popa
        add esp, 8
        iret
    end;
end;