Home
last modified time | relevance | path

Searched refs:SCM_VM_INSN_ARG (Results 1 – 5 of 5) sorted by relevance

/dports/lang/gauche/Gauche-0.9.10/src/
H A Dvminsn.scm366 '(let* ([nargs::int (SCM_VM_INSN_ARG code)]
547 (let* ([nlocals::int (SCM_VM_INSN_ARG code)]
667 (let* ([imm::long (SCM_VM_INSN_ARG code)])
908 (let* ([nargs::int (SCM_VM_INSN_ARG code)])
1104 (let* ([nargs::int (SCM_VM_INSN_ARG code)]
1167 (let* ([k::int (SCM_VM_INSN_ARG code)])
1186 [utype::int (SCM_VM_INSN_ARG code)])
1307 (let* ([imm::long (SCM_VM_INSN_ARG code)])
1318 (let* ([imm::long (SCM_VM_INSN_ARG code)])
1454 (let* ([param::int (SCM_VM_INSN_ARG code)])
[all …]
H A Dvminsn.c829 switch (SCM_VM_INSN_ARG(code)) { in CASE()
1034 {long imm=SCM_VM_INSN_ARG(code); in CASE()
1958 {int k=SCM_VM_INSN_ARG(code); in CASE()
1983 SCM_VM_INSN_ARG(code); in CASE()
2151 {long imm=SCM_VM_INSN_ARG(code); in CASE()
2162 {long imm=SCM_VM_INSN_ARG(code); in CASE()
2173 {long imm=SCM_VM_INSN_ARG(code); in CASE()
2184 {long imm=SCM_VM_INSN_ARG(code); in CASE()
2195 {long imm=SCM_VM_INSN_ARG(code); in CASE()
2206 {long imm=SCM_VM_INSN_ARG(code); in CASE()
[all …]
H A Dcode.c157 SCM_VM_INSN_ARG(insn)); in Scm_CompiledCodeDump()
853 SCM_MAKE_INT(SCM_VM_INSN_ARG(insn)))); in Scm_CompiledCodeToList()
/dports/lang/gauche/Gauche-0.9.10/lib/gauche/vm/
H A Dinsn.scm32 :body '($result:i (SCM_VM_INSN_ARG code)))
172 :body '(let* ((reqstack::int (SCM_VM_INSN_ARG code))) (CHECK-STACK reqstack) NEXT))
282 :body '(begin (local_env_shift vm (SCM_VM_INSN_ARG code)) (FETCH-LOCATION PC) CHECK-INTR NEXT))
462 …:body '(let* ((imm::long (SCM_VM_INSN_ARG code))) ($w/argr v0 ($type-check v0 SCM_NUMBERP "number"…
2112 …:body '(let* ((divisor::ScmSmallInt (SCM_VM_INSN_ARG code))) ($w/argr arg ($result (Scm_Modulo arg…
2122 …:body '(let* ((divisor::ScmSmallInt (SCM_VM_INSN_ARG code))) ($w/argr arg ($result (Scm_Modulo arg…
2132 …:body '(let* ((cnt::ScmSmallInt (SCM_VM_INSN_ARG code))) ($w/argr arg ($result (Scm_Ash arg cnt)))…
2332 …:body '(let* ((off::int (SCM_VM_INSN_ARG code))) (VM-ASSERT (> (-> ENV size) off)) (SCM_FLONUM_ENS…
2362 :body '(begin (local_env_shift vm (SCM_VM_INSN_ARG code)) NEXT))
2372 …let* ((dep_s)) (FETCH-OPERAND dep_s) INCR-PC ($lref (SCM_INT_VALUE dep_s) (SCM_VM_INSN_ARG code))))
[all …]
/dports/lang/gauche/Gauche-0.9.10/src/gauche/
H A Dcode.h141 #define SCM_VM_INSN_ARG(obj) ((signed long)SCM_WORD(obj) >> 12) macro