/* ---------------------------------------------------------------------- */
/*                   Copyright (C) 1991 by Natrlich!                     */
/*                      This file is copyrighted!                         */
/*                Refer to the documentation for details.                 */
/* ---------------------------------------------------------------------- */
#ifndef _FIX_
# define _FIX_
# ifndef _STRUCTS_
#  include "structs.h"
# endif

#if VERSION
#  define fix_up( ex, ip, type)                   \
{                                                 \
   extern seg huge *sp;                           \
   fix huge        *q = fix_alloc();              \
                                                  \
   q->poof.block = sp;                            \
   q->index      = calc_index();                  \
   q->imm        = ip;                            \
   ex->fix       = type;                          \
   ex->zonk.fixp = q;                             \
}

#  define fix_lup( ex, p)                         \
{                                                 \
   fix           *q = fix_alloc();                \
                                                  \
   q->poof.label = p;                             \
   ex->fix       = FIX_LABEL;                     \
   ex->zonk.fixp = q;                             \
}
# endif
#endif