diff options
Diffstat (limited to 'lang/qscheme/files/patch-struct.c')
| -rw-r--r-- | lang/qscheme/files/patch-struct.c | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/lang/qscheme/files/patch-struct.c b/lang/qscheme/files/patch-struct.c deleted file mode 100644 index 71b43572c21b..000000000000 --- a/lang/qscheme/files/patch-struct.c +++ /dev/null @@ -1,48 +0,0 @@ ---- struct.c.orig 2009-03-03 17:58:54.000000000 +0200 -+++ struct.c 2009-03-03 18:02:57.000000000 +0200 -@@ -24,8 +24,10 @@ - ptr = scm_must_alloc(size); - size |= SCM_DBLOCK_ALLOCATED; - } -- SCM_DBLOCK_ADDR(new) = ptr; -- SCM_DBLOCK_SIZE(new) = size; -+ /*SCM_DBLOCK_ADDR(new) = ptr; -+ SCM_DBLOCK_SIZE(new) = size;*/ -+ SCM_DBLOCK_ADDR_SET(new, ptr); -+ SCM_DBLOCK_SIZE_SET(new, size); - return(new); - } - -@@ -33,8 +35,10 @@ - { - if (SCM_DBLOCK_SIZE(x) & SCM_DBLOCK_ALLOCATED) { - scm_free(SCM_DBLOCK_ADDR(x)); -- SCM_DBLOCK_ADDR(x) = NULL; -- SCM_DBLOCK_SIZE(x) = 0; -+ /*SCM_DBLOCK_ADDR(x) = NULL; -+ SCM_DBLOCK_SIZE(x) = 0;*/ -+ SCM_DBLOCK_ADDR_SET(x, NULL); -+ SCM_DBLOCK_SIZE_SET(x, 0); - } - } - -@@ -136,7 +140,8 @@ - SOBJ scm_struct_def_new(int nfields) - { - SOBJ new = scm_newcell(SOBJ_T_STRUCT_DEF); -- SCM_STRUCT_DEF(new) = scm_struct_def_alloc(nfields); -+ /*SCM_STRUCT_DEF(new) = scm_struct_def_alloc(nfields);*/ -+ SCM_STRUCT_DEF_SET(new, scm_struct_def_alloc(nfields)); - return(new); - } - -@@ -156,7 +161,8 @@ - { - if (SCM_STRUCT_DEF(x)) { - scm_free(SCM_STRUCT_DEF(x)); -- SCM_STRUCT_DEF(x) = NULL; -+ /*SCM_STRUCT_DEF(x) = NULL;*/ -+ SCM_STRUCT_DEF_SET(x, NULL); - } - } - |