diff options
Diffstat (limited to 'tests/gpgscm/scheme.c')
| -rw-r--r-- | tests/gpgscm/scheme.c | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/tests/gpgscm/scheme.c b/tests/gpgscm/scheme.c index 86df85101..27beb3a54 100644 --- a/tests/gpgscm/scheme.c +++ b/tests/gpgscm/scheme.c @@ -1050,30 +1050,6 @@ static pointer get_vector_object(scheme *sc, int len, pointer init) return cells; } -#if defined TSGRIND -static void check_cell_alloced(pointer p, int expect_alloced) -{ - /* Can't use putstr(sc,str) because callers have no access to - sc. */ - if(typeflag(p) & !expect_alloced) - { - fprintf(stderr,"Cell is already allocated!\n"); - } - if(!(typeflag(p)) & expect_alloced) - { - fprintf(stderr,"Cell is not allocated!\n"); - } - -} -static void check_range_alloced(pointer p, int n, int expect_alloced) -{ - int i; - for(i = 0;i<n;i++) - { (void)check_cell_alloced(p+i,expect_alloced); } -} - -#endif - /* Medium level cell allocation */ /* get new cons cell */ |