~ chicken-core (chicken-5) b5a227dcc2a950e6a2836681d18a4072f42bdad9
commit b5a227dcc2a950e6a2836681d18a4072f42bdad9 Author: felix <felix@call-with-current-continuation.org> AuthorDate: Sat Jul 18 23:09:47 2015 +0200 Commit: felix <felix@call-with-current-continuation.org> CommitDate: Sat Jul 18 23:09:47 2015 +0200 dropped obsolete stack-modification macros diff --git a/chicken.h b/chicken.h index f05ae42d..5195d485 100644 --- a/chicken.h +++ b/chicken.h @@ -998,11 +998,9 @@ typedef void (C_ccall *C_proc)(C_word, C_word *) C_noret; #define C_make_header(type, size) ((C_header)(((type) & C_HEADER_BITS_MASK) | ((size) & C_HEADER_SIZE_MASK))) #define C_symbol_value(x) (C_block_item(x, 0)) #define C_save(x) (*(--C_temporary_stack) = (C_word)(x)) -#define C_adjust_stack(n) (C_temporary_stack -= (n)) #define C_rescue(x, i) (C_temporary_stack[ i ] = (x)) #define C_restore (*(C_temporary_stack++)) #define C_heaptop ((C_word **)(&C_fromspace_top)) -#define C_pick(n) (C_temporary_stack[ n ]) #define C_drop(n) (C_temporary_stack += (n)) #define C_alloc(n) ((C_word *)C_alloca((n) * sizeof(C_word))) #if defined (__llvm__) && defined (__GNUC__)Trap