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

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.