diff options
author | Andy Wingo <wingo@pobox.com> | 2013-10-26 15:16:09 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-10-26 15:16:09 +0200 |
commit | be8b62ca7f66f6acd1d342cd8576688cc33baf1c (patch) | |
tree | 980991746aa1ec3108d0b511b9adb6f91e5fbfa7 /libguile/tags.h | |
parent | 4fc6b4d2c5566aa54393c3124def2d7759dd447a (diff) | |
download | guile-be8b62ca7f66f6acd1d342cd8576688cc33baf1c.tar.gz |
RTL compiler: Compile TC7 branches.
* module/system/vm/assembler.scm:
* module/system/vm/disassembler.scm (code-annotation):
* module/language/cps/primitives.scm (*branching-primcall-arities*):
* module/language/cps/compile-rtl.scm (emit-rtl-sequence): Add support
for compiling symbol?, variable?, vector?, and string? branches.
Diffstat (limited to 'libguile/tags.h')
-rw-r--r-- | libguile/tags.h | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/libguile/tags.h b/libguile/tags.h index 234d4c77c..9e6943ed0 100644 --- a/libguile/tags.h +++ b/libguile/tags.h @@ -3,7 +3,7 @@ #ifndef SCM_TAGS_H #define SCM_TAGS_H -/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2008,2009,2010,2011,2012 +/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2008,2009,2010,2011,2012,2013 * Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or @@ -402,6 +402,9 @@ typedef union SCM { struct { scm_t_bits n; } n; } SCM; #define SCM_HAS_TYP7(x, tag) (SCM_HAS_HEAP_TYPE (x, SCM_TYP7, tag)) #define SCM_HAS_TYP7S(x, tag) (SCM_HAS_HEAP_TYPE (x, SCM_TYP7S, tag)) +/* If you change these numbers, change them also in (system vm + assembler). */ + #define scm_tc7_symbol 5 #define scm_tc7_variable 7 |