+union ir_setdata_t* ir_link\r
+( enum ltype link_type,\r
+ struct ir_setld_t* setld,\r
+ const uint8_t* name\r
+)\r
+{ struct ir_link_t* link;\r
+ link = struct_alloc(ir_link_t);\r
+ link->header.type = LDAT;\r
+ link->type = link_type; \r
+ link->classld = setld->classld;\r
+ link->setld = setld;\r
+ if (link_type != OLINK && name != NULL)\r
+ link->header.data_name = name_alloc(name);\r
+ return (union ir_setdata_t*) link;\r
+}\r
+\r
+\r
+static\r
+void* stack_alloc\r
+( size_t bytes )\r
+{ if (!bytes) //valid behavior to attain current head\r
+ return datapages.head->header.head;\r
+ if (PL_HEADMEM(datapages) < bytes) \r
+ { datapages.head->header.next = (struct pagenode_t*) calloc(datapages.pagesize,1);\r
+ if (datapages.head->header.next == NULL)\r
+ eprintf("Memory allocation error \n");\r
+ datapages.head = datapages.head->header.next; \r
+ datapages.head->header.head = datapages.head->root;\r
+ }\r
+ datapages.head->header.head += bytes;\r
+ return (void*) datapages.head->header.head - bytes;\r
+}\r
+\r
+static\r
+uint8_t* name_alloc\r
+( const uint8_t* name_src )\r
+{ const uint8_t* iter;\r
+ uint8_t* name;\r
+ int head_mem;\r
+ copy:\r
+ name = (uint8_t*)namepages.head->header.head;\r
+ iter = name_src;\r
+ for (head_mem = PL_HEADMEM(namepages); *iter && *iter != '_' && head_mem; head_mem--)\r
+ *(namepages.head->header.head)++ = *iter++;\r
+ if (head_mem == 0) //not enough room\r
+ { namepages.head->header.next = (struct pagenode_t*) calloc(namepages.pagesize,1);\r
+ if (namepages.head->header.next == NULL)\r
+ eprintf("Memory allocation error\n");\r
+ namepages.head = namepages.head->header.next;\r
+ namepages.head->header.head = namepages.head->root;\r
+ goto copy;\r
+ }\r
+ *(namepages.head->header.head)++ = '\0';\r
+ return name;\r
+}\r