78 lines
1.9 KiB
C
78 lines
1.9 KiB
C
/* $Header$ */
|
|
/*
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
*/
|
|
/* This file essentially describes how the mallink info block
|
|
is implemented.
|
|
*/
|
|
|
|
#define MIN_SIZE (1<<LOG_MIN_SIZE)
|
|
#define MAX_FLIST (LOG_MAX_SIZE - LOG_MIN_SIZE)
|
|
#if ALIGNMENT != 1 && ALIGNMENT != 2 && ALIGNMENT != 4 && ALIGNMENT != 8 &&\
|
|
ALIGNMENT != 16
|
|
ALIGNMENT must be a (small) power of two !!!
|
|
#endif
|
|
#define align(n) (((n) + (ALIGNMENT - 1)) & ~(ALIGNMENT - 1))
|
|
|
|
union _inf {
|
|
union _inf *ptr;
|
|
unsigned int ui;
|
|
};
|
|
|
|
typedef union _inf mallink;
|
|
#define MAL_NULL ((mallink *)0)
|
|
|
|
/* Access macros; only these macros know where to find values.
|
|
They are also lvalues.
|
|
*/
|
|
#ifndef NON_STANDARD
|
|
#define OFF_SET 0
|
|
#else def NON_STANDARD
|
|
#define OFF_SET 2
|
|
#endif NON_STANDARD
|
|
|
|
#define _log_prev_of(ml) ((ml)[-1+OFF_SET]).ptr
|
|
#define _log_next_of(ml) ((ml)[-2+OFF_SET]).ptr
|
|
#define _phys_prev_of(ml) ((ml)[-3+OFF_SET]).ptr
|
|
#define _this_size_of(ml) ((ml)[-4+OFF_SET]).ui
|
|
#ifndef CHECK
|
|
#define N_WORDS 4
|
|
#else ifdef CHECK
|
|
#define _checksum_of(ml) ((ml)[-5+OFF_SET]).ui
|
|
#define _print_of(ml) ((ml)[-6+OFF_SET]).ui
|
|
#define _mark_of(ml) ((ml)[-7+OFF_SET]).ui
|
|
#define N_WORDS 7
|
|
#endif CHECK
|
|
|
|
#define mallink_size() (unsigned int) \
|
|
align((N_WORDS - OFF_SET) * sizeof (mallink))
|
|
|
|
#ifdef CHECK
|
|
#define set_mark(ml,e) (_mark_of(ml) = (e))
|
|
#define mark_of(ml) (_mark_of(ml))
|
|
|
|
#define set_checksum(ml,e) (_checksum_of(ml) = (e))
|
|
#define checksum_of(ml) (_checksum_of(ml))
|
|
#endif CHECK
|
|
|
|
|
|
#define block_of_mallink(ml) ((char *)ml)
|
|
#define mallink_of_block(addr) ((mallink *)addr)
|
|
|
|
#define public extern
|
|
#define publicdata
|
|
#ifndef EXTERN
|
|
#define private static
|
|
#define privatedata static
|
|
#else def EXTERN
|
|
#define private extern
|
|
#define privatedata
|
|
#endif EXTERN
|
|
|
|
#ifdef ASSERT
|
|
public m_assert();
|
|
#define assert(b) (!(b) ? m_assert(__FILE__, __LINE__) : 0)
|
|
#else ndef ASSERT
|
|
#define assert(b) 0
|
|
#endif ASSERT
|