Return to mkint.c CVS log

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

Annotation of 43BSD/contrib/icon/rt/mkint.c, revision 1.1

1.1     ! root        1: #include "../h/rt.h"
        !             2: 
        !             3: /*
        !             4:  * mkint - make an integer descriptor for l in *d.  A long integer is used
        !             5:  *  if the value is too large for a regular integer.
        !             6:  */
        !             7: 
        !             8: mkint(l, d)
        !             9: long l;
        !            10: register struct descrip *d;
        !            11:    {
        !            12: #ifdef LONGS
        !            13:    extern struct b_int *alclint();
        !            14: 
        !            15:    if (l < (long)(int)MINSHORT || l > (long)(int)MAXSHORT) {
        !            16:       hneed(sizeof(struct b_int));
        !            17:       d->type = D_LONGINT;
        !            18:       BLKLOC(*d) = alclint(l);
        !            19:       }
        !            20:    else {
        !            21:       d->type = D_INTEGER;
        !            22:       INTVAL(*d) = (int)l;
        !            23:       }
        !            24: #else LONGS
        !            25:    d->type = D_INTEGER;
        !            26:    INTVAL(*d) = (int)l;
        !            27: #endif LONGS
        !            28:    }

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