mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-28 16:00:22 +02:00
Only perform the tests when the disabled features are enabled.
This commit is contained in:
parent
eae5018eff
commit
b8f63daff4
1 changed files with 12 additions and 0 deletions
|
@ -20,6 +20,8 @@
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <assert.h>
|
#include <assert.h>
|
||||||
|
|
||||||
|
#if SCM_ENABLE_DISCOURAGED == 1
|
||||||
|
|
||||||
SCM out_of_range_handler (void *data, SCM key, SCM args);
|
SCM out_of_range_handler (void *data, SCM key, SCM args);
|
||||||
SCM call_num2long_long_body (void *data);
|
SCM call_num2long_long_body (void *data);
|
||||||
SCM call_num2ulong_long_body (void *data);
|
SCM call_num2ulong_long_body (void *data);
|
||||||
|
@ -147,3 +149,13 @@ main (int argc, char *argv[])
|
||||||
test_ulong_long ();
|
test_ulong_long ();
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
#else /* SCM_ENABLE_DISCOURAGED == 0 */
|
||||||
|
|
||||||
|
int
|
||||||
|
main (int argc, char *argv[])
|
||||||
|
{
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
#endif /* SCM_ENABLE_DISCOURAGED == 0 */
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue