1
/* $Id: ml_raw.h,v 1.3 1999/04/14 14:05:52 garrigue Exp $ */
7
#define Kind_raw(raw) (Field(raw,0))
8
#define Base_raw(raw) (Field(raw,1))
9
#define Offset_raw(raw) (Field(raw,2))
10
#define Size_raw(raw) (Field(raw,3))
11
#define Static_raw(raw) (Field(raw,4))
13
#define Addr_raw(raw) (Base_raw(raw)+Long_val(Offset_raw(raw)))
15
#define Void_raw(raw) ((void *) Addr_raw(raw))
16
#define Byte_raw(raw) ((char *) Addr_raw(raw))
17
#define Short_raw(raw) ((short *) Addr_raw(raw))
18
#define Int_raw(raw) ((int *) Addr_raw(raw))
19
#define Long_raw(raw) ((long *) Addr_raw(raw))
20
#define Float_raw(raw) ((float *) Addr_raw(raw))
21
#define Double_raw(raw) ((double *) Addr_raw(raw))