mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +02:00
Code Activity

Add struct-ref' and struct-set' VM opcodes.

Browse source 
* libguile/vm-i-scheme.c (make_struct): Optimize the
  `SCM_VTABLE_FLAG_SIMPLE' case.
  (struct_ref, struct_set): New opcodes.

* module/language/tree-il/compile-glil.scm (*primcall-ops*): Add
  `struct-ref' and `struct-set!'.

* module/language/tree-il/primitives.scm
  (*interesting-primitive-names*): Likewise.
  (*effect-free-primitives*): Add `struct-ref'.
This commit is contained in:
Ludovic Courtès 2010-01-23 16:43:50 +01:00
parent 696ac4dfcc
commit a752c0dc27
3 changed files with 79 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/tree-il/compile-glil.scm
View file

@ -118,6 +118,8 @@
((variable-set . 2) . variable-set)
((struct? . 1) . struct?)
((struct-vtable . 1) . struct-vtable)
((struct-ref . 2) . struct-ref)
((struct-set! . 3) . struct-set)
(make-struct . make-struct)
;; hack for javascript

4
module/language/tree-il/primitives.scm
View file

@ -58,7 +58,7 @@
variable-ref variable-set!
;; args of variable-set are switched; it needs special help
struct? struct-vtable make-struct
struct? struct-vtable make-struct struct-ref struct-set!
bytevector-u8-ref bytevector-u8-set!
bytevector-s8-ref bytevector-s8-set!
@ -112,7 +112,7 @@
caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr
cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr
vector-ref
struct? struct-vtable make-struct
struct? struct-vtable make-struct struct-ref
bytevector-u8-ref bytevector-s8-ref
bytevector-u16-ref bytevector-u16-native-ref
bytevector-s16-ref bytevector-s16-native-ref