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

Add scm_make_foreign_object_0; optimize scm_make_foreign_object_n.

Browse source 
* libguile/foreign-object.c (scm_make_foreign_object_0): New function.
  (scm_make_foreign_object_n): Pre-fetch layout_chars.

* libguile/foreign-object.h: Add scm_make_foreign_object_0.
This commit is contained in:
Andy Wingo 2014-04-28 10:55:26 +02:00
parent a7ee7f7cbf
commit ea4c2460e0
2 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/foreign-object.h
View file

@ -32,6 +32,7 @@ SCM_API SCM scm_make_foreign_object_type (SCM name, SCM slot_names,
SCM_API void scm_assert_foreign_object_type (SCM type, SCM val);
SCM_API SCM scm_make_foreign_object_0 (SCM type);
SCM_API SCM scm_make_foreign_object_1 (SCM type, scm_t_bits val0);
SCM_API SCM scm_make_foreign_object_2 (SCM type, scm_t_bits val0,
scm_t_bits val1);