Home
last modified time | relevance | path

Searched refs:newclos (Results 1 – 7 of 7) sorted by relevance

/dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/src/
H A Drecord.d623 var object newclos = allocate_cclosure_copy(STACK_0);
625 do_cclosure_copy(newclos,oldclos);
627 TheCclosure(newclos)->clos_venv = STACK_1;
628 VALUES1(newclos);
642 var object newclos = allocate_cclosure_copy(oldclos);
644 do_cclosure_copy(newclos,oldclos);
645 STACK_0 = newclos;
647 var object newcodevec = copy_sbvector(TheClosure(newclos)->clos_codevec);
650 newclos = popSTACK();
651 TheClosure(newclos)->clos_codevec = newcodevec;
[all …]
H A Deval.d6706 var object newclos; in interpret_bytecode_() local
6708 with_saved_context(newclos = allocate_cclosure_copy(oldclos);); in interpret_bytecode_()
6711 do_cclosure_copy(newclos,oldclos); in interpret_bytecode_()
6715 var gcv_object_t* newptr = &TheCclosure(newclos)->clos_consts[n]; in interpret_bytecode_()
6718 VALUES1(newclos); in interpret_bytecode_()
6728 var object newclos; in interpret_bytecode_() local
6730 with_saved_context(newclos = allocate_cclosure_copy(oldclos);); in interpret_bytecode_()
6733 do_cclosure_copy(newclos,oldclos); in interpret_bytecode_()
6737 var gcv_object_t* newptr = &TheCclosure(newclos)->clos_consts[n]; in interpret_bytecode_()
6740 pushSTACK(newclos); in interpret_bytecode_()
H A Dio.d708 var object newclos = allocate_cclosure_copy(O(dispatch_reader));
709 do_cclosure_copy(newclos,O(dispatch_reader));
710 TheCclosure(newclos)->clos_consts[posfixnum_to_V(O(dispatch_reader_index))] = popSTACK();
711 value1 = newclos;
H A Dlispbibl.d12959 #define do_cclosure_copy(newclos,oldclos) \ argument
12960 copy_mem_o(((Srecord)TheCclosure(newclos))->recdata, \
H A DChangeLog17202 TheCclosure(newclos)->clos_consts, not in
17203 ((Srecord)TheCclosure(newclos))->recdata
/dports/lang/ocaml/ocaml-4.05.0/asmcomp/
H A Dcmmgen.ml3131 let newclos = Ident.create "clos" in
3132 Clet(newclos,
3135 app_fun newclos (n+1))
3272 let newclos = Ident.create "clos" in
3273 Clet(newclos,
3275 curry_fun (get_field env (Cvar clos) 2 dbg :: args) newclos (n-1))
3278 let newclos = Ident.create "clos" in
3279 Clet(newclos,
3335 let newclos = Ident.create "clos" in
3336 Clet(newclos,
[all …]
/dports/lang/ocaml-nox11/ocaml-4.05.0/asmcomp/
H A Dcmmgen.ml3131 let newclos = Ident.create "clos" in
3132 Clet(newclos,
3135 app_fun newclos (n+1))
3272 let newclos = Ident.create "clos" in
3273 Clet(newclos,
3275 curry_fun (get_field env (Cvar clos) 2 dbg :: args) newclos (n-1))
3278 let newclos = Ident.create "clos" in var
3279 Clet(newclos,
3335 let newclos = Ident.create "clos" in
3336 Clet(newclos,
[all …]