mirror of
git://git.gnupg.org/gnupg.git
synced 2024-06-09 23:39:51 +02:00
8a168a6d40
* tests/gpgscm/scheme-private.h (struct scheme): New field 'frame_freelist'. * tests/gpgscm/scheme.c (enum scheme_types): New type 'T_FRAME'. (type_to_string): Handle new type. (settype): New macro. (gc_disable): Make sure there is at least one frame in the free list. (mark): Handle frame objects. (finalize_cell): Likewise. (dump_stack_initialize): Initialize free list. (dump_stack_free): Simplify. (frame_length): New variable. (dump_stack_make_frame): New function. (frame_slots): Likewise. (frame_payload): New macro. (dump_stack_allocate_frame): New function. (dump_stack_deallocate_frame): Likewise. (dump_stack_preallocate_frame): Likewise. (_s_return): Unpack frame object and deallocate it. (s_save): Wrap state in an frame object. (dump_stack_mark): Mark the free list. -- TinySCHEME being a SECD-machine needs to push frames onto the dump stack. Previously, the dump stack was a list. This required four cells for the spine, as well as up to one additional cell to encode the current opcode. This was quite inefficient despite the fact that we recovered the spine as well as the integer cell. We introduce frame objects, which are a special variant of vectors of length four. Since the length is fixed, this frees up the length field of the vector object to store the unboxed opcode. A frame object now fits in two cells. Saving two or three cells is a mere byproduct, the performance gain comes from increased locality, unboxed opcode representation, and the ability to easily put the objects in a free list, keeping the garbage collector out of the continuous motion of the virtual machine. Signed-off-by: Justus Winter <justus@g10code.com> |
||
|---|---|---|
| .. | ||
| ffi-private.h | ||
| ffi.c | ||
| ffi.h | ||
| ffi.scm | ||
| gnupg.scm | ||
| init.scm | ||
| lib.scm | ||
| LICENSE.TinySCHEME | ||
| main.c | ||
| Makefile.am | ||
| Manual.txt | ||
| opdefines.h | ||
| private.h | ||
| repl.scm | ||
| scheme-config.h | ||
| scheme-private.h | ||
| scheme.c | ||
| scheme.h | ||
| small-integers.h | ||
| t-child.c | ||
| t-child.scm | ||
| tests.scm | ||
| time.scm | ||
| xml.scm | ||