Return to descriptor.h CVS log

Up to [Research Unix] / researchv10no / cmd / sml / src / runtime

Annotation of researchv10no/cmd/sml/src/runtime/descriptor.h, revision 1.1

1.1     ! root        1: /* needs tags.h */
        !             2: 
        !             3: #define is_ptr(x) (!((int)(x)&1))
        !             4: #define mak_int(x) ((int)(x)*2+1)
        !             5: #define mask_tags (power_tags-1)
        !             6: #define get_len(x) (*(int *)(x)>>width_tags)
        !             7: #define get_lenz(x) ((((*(int*)(x))&(power_tags-1))==tag_suspension)?1:get_len(x))
        !             8: #define get_strlen(x) (((*(int *)(x)>>width_tags)+3)/4)
        !             9: #define get_tag(x) (*(int *)(x)&mask_tags)
        !            10: 
        !            11: typedef char * mlstring;
        !            12: 
        !            13: extern char *get_str();

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