summaryrefslogtreecommitdiff
path: root/libguile/struct.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2017-09-22 10:32:36 +0200
committerAndy Wingo <wingo@pobox.com>2017-09-22 10:32:36 +0200
commit9ac0544efff1ce5c9e5a4dcf6477cf2794d11ef0 (patch)
tree5cd284b501e038b135f19fedfbb70f6c36c24d65 /libguile/struct.c
parentfe4a34d20d8342106a46fc2b842a892c17a11920 (diff)
downloadguile-9ac0544efff1ce5c9e5a4dcf6477cf2794d11ef0.tar.gz
Remove unused code in struct.c
* libguile/struct.c (scm_make_struct_layout, scm_struct-ref) (scm_struct_set_x): Remove commented-out support for signed and double raw fields.
Diffstat (limited to 'libguile/struct.c')
-rw-r--r--libguile/struct.c34
1 files changed, 0 insertions, 34 deletions
diff --git a/libguile/struct.c b/libguile/struct.c
index 78099ac45..08451e741 100644
--- a/libguile/struct.c
+++ b/libguile/struct.c
@@ -100,10 +100,6 @@ SCM_DEFINE (scm_make_struct_layout, "make-struct-layout", 1, 0, 0,
{
case 'u':
case 'p':
-#if 0
- case 'i':
- case 'd':
-#endif
case 's':
break;
default:
@@ -134,16 +130,6 @@ SCM_DEFINE (scm_make_struct_layout, "make-struct-layout", 1, 0, 0,
SCM_MISC_ERROR ("unrecognized ref specification: ~S",
scm_list_1 (SCM_MAKE_CHAR (c)));
}
-#if 0
- if (scm_i_string_ref (fields, x, 'd'))
- {
- if (!scm_i_string_ref (fields, x+2, '-'))
- SCM_MISC_ERROR ("missing dash field at position ~A",
- scm_list_1 (scm_from_int (x / 2)));
- x += 2;
- goto recheck_ref;
- }
-#endif
}
new_sym = scm_string_to_symbol (fields);
}
@@ -758,16 +744,6 @@ SCM_DEFINE (scm_struct_ref, "struct-ref", 2, 0, 0,
answer = scm_from_ulong (data[p]);
break;
-#if 0
- case 'i':
- answer = scm_from_long (data[p]);
- break;
-
- case 'd':
- answer = scm_make_real (*((double *)&(data[p])));
- break;
-#endif
-
case 's':
case 'p':
answer = SCM_PACK (data[p]);
@@ -841,16 +817,6 @@ SCM_DEFINE (scm_struct_set_x, "struct-set!", 3, 0, 0,
data[p] = SCM_NUM2ULONG (3, val);
break;
-#if 0
- case 'i':
- data[p] = SCM_NUM2LONG (3, val);
- break;
-
- case 'd':
- *((double *)&(data[p])) = scm_num2dbl (val, (char *)SCM_ARG3);
- break;
-#endif
-
case 'p':
data[p] = SCM_UNPACK (val);
break;