mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

Remove unused code in struct.c

Browse source 
* libguile/struct.c (scm_make_struct_layout, scm_struct-ref)
  (scm_struct_set_x): Remove commented-out support for signed and double
  raw fields.
This commit is contained in:
Andy Wingo 2017-09-22 10:32:36 +02:00
parent fe4a34d20d
commit 9ac0544eff
1 changed files with 0 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

34
libguile/struct.c
View file

@ -100,10 +100,6 @@ SCM_DEFINE (scm_make_struct_layout, "make-struct-layout", 1, 0, 0,
{ {
case 'u': case 'u':
case 'p': case 'p':
#if 0
case 'i':
case 'd':
#endif
case 's': case 's':
break; break;
default: 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_MISC_ERROR ("unrecognized ref specification: ~S",
scm_list_1 (SCM_MAKE_CHAR (c))); 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); 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]); answer = scm_from_ulong (data[p]);
break; 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 's':
case 'p': case 'p':
answer = SCM_PACK (data[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); data[p] = SCM_NUM2ULONG (3, val);
break; 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': case 'p':
data[p] = SCM_UNPACK (val); data[p] = SCM_UNPACK (val);
break; break;