4.3BSD - /usr/src/new/icon/rt/mkreal.c

   1: #include "../h/rt.h"
   2: 
   3: /*
   4:  * mkreal(r, d) - make a real number descriptor and associated heap block
   5:  *  for r and place it in *d.
   6:  */
   7: 
   8: mkreal(r, d)
   9: double r;
  10: register struct descrip *d;
  11:    {
  12:    extern struct b_int *alcreal();
  13: 
  14:    hneed(sizeof(struct b_real));
  15:    d->type = D_REAL;
  16:    BLKLOC(*d) = (union block *) alcreal(r);
  17:    }

Defined functions