mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 09:10:22 +02:00
Code Activity

Remove unused C variables and functions.

Browse source 
Reported by GCC 6.1.0.

* libguile/expand.c (s_empty_combination, s_missing_body_expression)
(s_mixed_body_forms, s_bad_case_clause, s_bad_case_labels)
(s_duplicate_case_label, s_bad_exit_clause, s_splicing)
(s_bad_slot_number): Remove.
* libguile/ports.c (scm_utf8_bom, scm_utf16be_bom, scm_utf32be_bom):
Remove.
* libguile/vm.c (vm_error_stack_underflow): Remove.
This commit is contained in:
Ludovic Courtès 2016-05-08 21:33:37 +02:00
parent ff98cbb643
commit 6b73c87f58
3 changed files with 5 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/vm.c
View file

@ -1,5 +1,5 @@
/* Copyright (C) 2001, 2009, 2010, 2011, 2012, 2013 Free Software Foundation, Inc.
*
/* Copyright (C) 2001, 2009-2013, 2016 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
* as published by the Free Software Foundation; either version 3 of
@ -391,7 +391,6 @@ static void vm_error_too_many_args (int nargs) SCM_NORETURN;
static void vm_error_wrong_num_args (SCM proc) SCM_NORETURN;
static void vm_error_wrong_type_apply (SCM proc) SCM_NORETURN;
static void vm_error_stack_overflow (struct scm_vm *vp) SCM_NORETURN;
static void vm_error_stack_underflow (void) SCM_NORETURN;
static void vm_error_improper_list (SCM x) SCM_NORETURN;
static void vm_error_not_a_pair (const char *subr, SCM x) SCM_NORETURN;
static void vm_error_not_a_bytevector (const char *subr, SCM x) SCM_NORETURN;
@ -534,12 +533,6 @@ vm_error_stack_overflow (struct scm_vm *vp)
scm_dynwind_end ();
}
static void
vm_error_stack_underflow (void)
{
vm_error ("VM: Stack underflow", SCM_UNDEFINED);
}
static void
vm_error_improper_list (SCM x)
{