diff options
| author | William S Fulton <wsf@fultondesigns.co.uk> | 2013-10-18 19:10:42 +0100 |
|---|---|---|
| committer | William S Fulton <wsf@fultondesigns.co.uk> | 2013-10-18 19:10:42 +0100 |
| commit | d15220cba49d1fcc46fc913c1869285a4edf7e65 (patch) | |
| tree | a14f34449ea2eb6058c3473ad06e06975419851c /Lib/guile | |
| parent | 1c5246ad667c86b869d9be2cf75e43513aec59ba (diff) | |
| download | swig-d15220cba49d1fcc46fc913c1869285a4edf7e65.tar.gz | |
Remove a couple of unused variable warnings in generated code
Diffstat (limited to 'Lib/guile')
| -rw-r--r-- | Lib/guile/guile_scm_run.swg | 15 | ||||
| -rw-r--r-- | Lib/guile/std_vector.i | 4 |
2 files changed, 3 insertions, 16 deletions
diff --git a/Lib/guile/guile_scm_run.swg b/Lib/guile/guile_scm_run.swg index 0ac51f919..2f8f3ae98 100644 --- a/Lib/guile/guile_scm_run.swg +++ b/Lib/guile/guile_scm_run.swg @@ -446,13 +446,8 @@ SWIG_Guile_Init () SWIGINTERN swig_module_info * SWIG_Guile_GetModule(void *SWIGUNUSEDPARM(clientdata)) { - SCM module; - SCM variable; - - module = SWIG_Guile_Init(); - - variable = scm_module_variable(module, - scm_from_locale_symbol("swig-type-list-address" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME)); + SCM module = SWIG_Guile_Init(); + SCM variable = scm_module_variable(module, scm_from_locale_symbol("swig-type-list-address" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME)); if (scm_is_false(variable)) { return NULL; } else { @@ -463,11 +458,7 @@ SWIG_Guile_GetModule(void *SWIGUNUSEDPARM(clientdata)) SWIGINTERN void SWIG_Guile_SetModule(swig_module_info *swig_module) { - SCM module; - SCM variable; - - module = SWIG_Guile_Init(); - + SCM module = SWIG_Guile_Init(); scm_module_define(module, scm_from_locale_symbol("swig-type-list-address" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME), scm_from_ulong((unsigned long) swig_module)); diff --git a/Lib/guile/std_vector.i b/Lib/guile/std_vector.i index 79c716b10..1c55239c1 100644 --- a/Lib/guile/std_vector.i +++ b/Lib/guile/std_vector.i @@ -306,7 +306,6 @@ namespace std { $1 = 1; } else { /* check the first element only */ - T* x; SCM o = scm_vector_ref($input,scm_from_ulong(0)); $1 = CHECK(o) ? 1 : 0; } @@ -315,7 +314,6 @@ namespace std { $1 = 1; } else if (scm_is_pair($input)) { /* check the first element only */ - T* x; SCM head = SCM_CAR($input); $1 = CHECK(head) ? 1 : 0; } else { @@ -335,7 +333,6 @@ namespace std { $1 = 1; } else { /* check the first element only */ - T* x; SCM o = scm_vector_ref($input,scm_from_ulong(0)); $1 = CHECK(o) ? 1 : 0; } @@ -344,7 +341,6 @@ namespace std { $1 = 1; } else if (scm_is_pair($input)) { /* check the first element only */ - T* x; SCM head = SCM_CAR($input); $1 = CHECK(head) ? 1 : 0; } else { |