From a1079945f30f5984960214ae8591e33734a687e7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?J=C3=B6rg=20F=2E=20Wittenberger?= Date: Tue, 23 Feb 2016 20:10:49 +0100 Subject: [PATCH] remove transitional code --- chicken.h | 12 ------------ 1 file changed, 12 deletions(-) diff --git a/chicken.h b/chicken.h index 845aac4..5ace9e7 100644 --- a/chicken.h +++ b/chicken.h @@ -1,4 +1,3 @@ -#define USE_OLD_AV 0 // set to "true" for backward compatible version to boot modified chicken /* chicken.h - General headerfile for compiler generated executables ; ; Copyright (c) 2008-2016, The CHICKEN Team @@ -1012,19 +1011,12 @@ typedef void (C_ccall *C_proc)(C_word, C_word *) C_noret; #define C_drop(n) (C_temporary_stack += (n)) #define C_alloc(n) ((C_word *)C_alloca((n) * sizeof(C_word))) -#if USE_OLD_AV -#define C_allocate_fresh_argvector(n) C_alloc(n) -#define C_allocate_argvector(c, av, avl) ( (c >= avl) ? av : C_force_allocate_fresh_argvector(avl)) -#else #define C_argvector_reuse_dflt(n) ((C_default_argvector_value != NULL) && (C_default_argvector_value[0] >= (n))) #define C_argvector_flush() (C_default_argvector_value = NULL) #define C_force_allocate_fresh_argvector(n) ((C_default_argvector_value = C_alloc((n)+1)), *C_default_argvector_value=(n), C_default_argvector_value+1) #define C_allocate_fresh_argvector(avl) (C_argvector_reuse_dflt(avl) ? C_default_argvector_value+1 : C_force_allocate_fresh_argvector(avl)) #define C_argvector_size(av) (av[-1]) -//#define C_allocate_argvector(c, av, avl) (C_argvector_size(av) >= (avl) ? av : C_force_allocate_fresh_argvector(avl)) -// should try this too: #define C_allocate_argvector(c, av, avl) ((((c) >= (avl)) || (C_argvector_size(av) >= (avl))) ? av : C_force_allocate_fresh_argvector(avl)) -#endif #if defined (__llvm__) && defined (__GNUC__) # if defined (__i386__) @@ -1243,11 +1235,7 @@ typedef void (C_ccall *C_proc)(C_word, C_word *) C_noret; #define C_do_apply(c, av) ((C_proc)(void *)C_block_item((av)[0], 0))((c), (av)) // #define C_kontinue(k, r) do { C_word avk[ 2 ]; avk[ 0 ] = (k); avk[ 1 ] = (r); ((C_proc)(void *)C_block_item((k),0))(2, avk); } while(0) #define C_kontinue(k, r) do { C_word *avk = C_allocate_fresh_argvector(2); avk[ 0 ] = (k); avk[ 1 ] = (r); ((C_proc)(void *)C_block_item((k),0))(2, avk); } while(0) -#if USE_OLD_AV -#define C_kontinue_av(av, k, r) C_kontinue(k, r) -#else #define C_kontinue_av(av, k, r) do { av[ 0 ] = (k); av[ 1 ] = (r); ((C_proc)(void *)C_block_item((k),0))(2, av); } while(0) -#endif #define C_fetch_byte(x, p) (((unsigned C_byte *)C_data_pointer(x))[ p ]) #define C_poke_integer(x, i, n) (C_set_block_item(x, C_unfix(i), C_num_to_int(n)), C_SCHEME_UNDEFINED) #define C_pointer_to_block(p, x) (C_set_block_item(p, 0, (C_word)C_data_pointer(x)), C_SCHEME_UNDEFINED) -- 2.6.2