diff options
| author | Dmitry Marakasov <amdmi3@FreeBSD.org> | 2009-04-01 22:31:31 +0000 |
|---|---|---|
| committer | Dmitry Marakasov <amdmi3@FreeBSD.org> | 2009-04-01 22:31:31 +0000 |
| commit | f2bb29203cbb68f917b96c09b334257f80b63e10 (patch) | |
| tree | 42a57a1560636bff450515434febabe35f0b756c /lang/qscheme/files/patch-struct.h | |
| parent | - Update to 23.0 (diff) | |
- Fix build with gcc 4.2
PR: 132287
Submitted by: Vitaly Magerya <vmagerya at gmail dot com>
Approved by: Erik Greenwald <erik dot greenwald at gmail dot com> (maintainer)
Notes
Notes:
svn path=/head/; revision=231450
Diffstat (limited to '')
| -rw-r--r-- | lang/qscheme/files/patch-struct.h | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/lang/qscheme/files/patch-struct.h b/lang/qscheme/files/patch-struct.h new file mode 100644 index 000000000000..68e078675336 --- /dev/null +++ b/lang/qscheme/files/patch-struct.h @@ -0,0 +1,19 @@ +--- struct.h.orig 2009-03-03 17:59:24.000000000 +0200 ++++ struct.h 2009-03-03 18:02:41.000000000 +0200 +@@ -10,6 +10,8 @@ + #define SCM_DBLOCKP(x) (SCM_OBJTYPE(x) == SOBJ_T_DBLOCK) + #define SCM_DBLOCK_ADDR(x) ((void*)SCM_CAR(x)) + #define SCM_DBLOCK_SIZE(x) ((long)(SCM_CDR(x))) ++#define SCM_DBLOCK_ADDR_SET(x,v) (SCM_CAR(x)=(v)) ++#define SCM_DBLOCK_SIZE_SET(x,v) (SCM_CDR(x)=(v)) + + #define SCM_DBLOCK_ALLOCATED (1L << ((sizeof(long)*8)-1)) + #define SCM_DBLOCK_SIZE_MASK ~(SCM_DBLOCK_ALLOCATED) +@@ -34,6 +36,7 @@ + + #define SCM_STRUCT_DEFP(x) (SCM_OBJTYPE(x) == SOBJ_T_STRUCT_DEF) + #define SCM_STRUCT_DEF(x) ((SCM_StructDefAux *)SCM_AUX(x)) ++#define SCM_STRUCT_DEF_SET SCM_AUX_SET + + /*** Instance of a struct: + * - car points to struct def object, |