Searched refs:newclos (Results 1 – 7 of 7) sorted by relevance
/dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/src/ |
H A D | record.d | 623 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 D | eval.d | 6706 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 D | io.d | 708 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 D | lispbibl.d | 12959 #define do_cclosure_copy(newclos,oldclos) \ argument 12960 copy_mem_o(((Srecord)TheCclosure(newclos))->recdata, \
|
H A D | ChangeLog | 17202 TheCclosure(newclos)->clos_consts, not in 17203 ((Srecord)TheCclosure(newclos))->recdata
|
/dports/lang/ocaml/ocaml-4.05.0/asmcomp/ |
H A D | cmmgen.ml | 3131 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 D | cmmgen.ml | 3131 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 …]
|