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

mkreal defined in line 8; used 1 times
Last modified: 1984-11-18
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 679
Valid CSS Valid XHTML 1.0 Strict