mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

Remove extraneous semicolons from `test-conversion.c'.

Browse source 
* test-suite/standalone/test-conversion.c: Remove extraneous semicolon
  following `DEF[SU]TST' invocations since that made Compaq C
  V6.5-011 (`cc' on Tru64 5.1b) bail out.
This commit is contained in:
Ludovic Courtès 2009-04-22 23:53:52 +02:00
parent 5e647d08e9
commit d0f452d162
1 changed files with 22 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

44
test-suite/standalone/test-conversion.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1999,2000,2001,2003,2004, 2006, 2007, 2008 Free Software Foundation, Inc. /* Copyright (C) 1999,2000,2001,2003,2004, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public * modify it under the terms of the GNU Lesser General Public
@ -680,31 +680,31 @@ test_8u (const char *str, scm_t_uintmax (*func) (SCM), const char *func_name,
#define DEFSTST(f) static scm_t_intmax tst_##f (SCM x) { return f(x); } #define DEFSTST(f) static scm_t_intmax tst_##f (SCM x) { return f(x); }
#define DEFUTST(f) static scm_t_uintmax tst_##f (SCM x) { return f(x); } #define DEFUTST(f) static scm_t_uintmax tst_##f (SCM x) { return f(x); }
DEFSTST (scm_to_schar); DEFSTST (scm_to_schar)
DEFUTST (scm_to_uchar); DEFUTST (scm_to_uchar)
DEFSTST (scm_to_char); DEFSTST (scm_to_char)
DEFSTST (scm_to_short); DEFSTST (scm_to_short)
DEFUTST (scm_to_ushort); DEFUTST (scm_to_ushort)
DEFSTST (scm_to_int); DEFSTST (scm_to_int)
DEFUTST (scm_to_uint); DEFUTST (scm_to_uint)
DEFSTST (scm_to_long); DEFSTST (scm_to_long)
DEFUTST (scm_to_ulong); DEFUTST (scm_to_ulong)
#if SCM_SIZEOF_LONG_LONG != 0 #if SCM_SIZEOF_LONG_LONG != 0
DEFSTST (scm_to_long_long); DEFSTST (scm_to_long_long)
DEFUTST (scm_to_ulong_long); DEFUTST (scm_to_ulong_long)
#endif #endif
DEFSTST (scm_to_ssize_t); DEFSTST (scm_to_ssize_t)
DEFUTST (scm_to_size_t); DEFUTST (scm_to_size_t)
DEFSTST (scm_to_int8); DEFSTST (scm_to_int8)
DEFUTST (scm_to_uint8); DEFUTST (scm_to_uint8)
DEFSTST (scm_to_int16); DEFSTST (scm_to_int16)
DEFUTST (scm_to_uint16); DEFUTST (scm_to_uint16)
DEFSTST (scm_to_int32); DEFSTST (scm_to_int32)
DEFUTST (scm_to_uint32); DEFUTST (scm_to_uint32)
#ifdef SCM_HAVE_T_INT64 #ifdef SCM_HAVE_T_INT64
DEFSTST (scm_to_int64); DEFSTST (scm_to_int64)
DEFUTST (scm_to_uint64); DEFUTST (scm_to_uint64)
#endif #endif
#define TEST_8S(v,f,r,re,te) test_8s (v, tst_##f, #f, r, re, te) #define TEST_8S(v,f,r,re,te) test_8s (v, tst_##f, #f, r, re, te)