Return to mkreal.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / rt

Initial revision

#include "../h/rt.h"

/*
 * mkreal(r, d) - make a real number descriptor and associated heap block
 *  for r and place it in *d.
 */

mkreal(r, d)
double r;
register struct descrip *d;
   {
   extern struct b_int *alcreal();

   hneed(sizeof(struct b_real));
   d->type = D_REAL;
   BLKLOC(*d) = (union block *) alcreal(r);
   }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.