%save-context ( temp1 temp2 -- )

Vocabulary

cpu.architecture

Inputs

temp1	a register symbol
temp2	a register symbol

Outputs

None

Word description

Emits machine code for saving pointers to the callstack, datastack and retainstack in the current context field struct.

Examples

USING: cpu.architecture make ; [ RAX RBX %save-context ] B{ } make disassemble 0000000000e63ab0: 498b4500 mov rax, [r13] 0000000000e63ab4: 488d5c24f8 lea rbx, [rsp-0x8] 0000000000e63ab9: 488918 mov [rax], rbx 0000000000e63abc: 4c897010 mov [rax+0x10], r14
0000000000e63ac0: 4c897818 mov [rax+0x18], r15

Definition

USING: system ;

IN: cpu.architecture

HOOK: %save-context cpu ( temp1 temp2 -- )

Methods

USING: cpu.architecture kernel system ;

M: arm.64 %save-context 2drop ;


USING: classes.struct cpu.architecture cpu.x86 cpu.x86.assembler
cpu.x86.assembler.operands layouts math system vm ;

M:: x86 %save-context ( temp1 temp2 -- )
    temp1 %context temp2 stack-reg cell neg [+] LEA
    temp1 "callstack-top" context offset-of [+] temp2 MOV
    temp1 "datastack" context offset-of [+] ds-reg MOV
    temp1 "retainstack" context offset-of [+] rs-reg MOV ;