mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

objcodes.c comments

Browse source 
* libguile/objcodes.c: Comments from Noah Lavine
This commit is contained in:
Andy Wingo 2010-08-18 22:47:55 -07:00
parent 9a690dfb45
commit 4b02bf47f4
1 changed files with 12 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/objcodes.c
View file

@ -33,8 +33,10 @@
#include "programs.h" #include "programs.h"
#include "objcodes.h" #include "objcodes.h"
/* SCM_OBJCODE_COOKIE is defined in _scm.h */ /* SCM_OBJCODE_COOKIE, defined in _scm.h, is a magic value prepended
/* The length of the header must be a multiple of 8 bytes. */ to objcode on disk but not in memory.
The length of the header must be a multiple of 8 bytes. */
verify (((sizeof (SCM_OBJCODE_COOKIE) - 1) & 7) == 0); verify (((sizeof (SCM_OBJCODE_COOKIE) - 1) & 7) == 0);
@ -42,6 +44,14 @@ verify (((sizeof (SCM_OBJCODE_COOKIE) - 1) & 7) == 0);
* Objcode type * Objcode type
*/ */
/* The words in an objcode SCM object are as follows:
- scm_tc7_objcode | the flags for this objcode
- the struct scm_objcode C object
- the parent of this objcode, if this is a slice, or #f if none
- the file descriptor this objcode came from if this was mmaped,
or 0 if none
*/
static SCM static SCM
make_objcode_by_mmap (int fd) make_objcode_by_mmap (int fd)
#define FUNC_NAME "make_objcode_by_mmap" #define FUNC_NAME "make_objcode_by_mmap"