Changeset 790 for trunk/zoo-project/zoo-kernel/service_internal_perl.c
- Timestamp:
- Dec 19, 2016, 6:01:06 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/zoo-project/zoo-kernel/service_internal_perl.c
r348 r790 105 105 int hash_to_maps(HV * hh,maps** m){ 106 106 hv_iterinit(hh); 107 *m = (maps *)malloc(MAPS_SIZE);108 107 maps * tmp = *m; 109 108 HE * he = hv_iternext(hh); … … 111 110 while (he != NULL) { 112 111 //fprintf(stderr,"key ===> %s \n",HeKEY(he)); 113 tmp ->name = HeKEY(he);112 tmp=createMaps(HeKEY(he)); 114 113 hash_to_map((HV *) SvRV(HeVAL(he)),&mm); 115 114 tmp->content = mm; 115 if(*m==NULL) 116 *m=tmp; 116 117 he = hv_iternext(hh); 117 118 if (he != NULL){ 118 tmp->next = (maps *)malloc(MAPS_SIZE);119 119 tmp= tmp->next; 120 120 }
Note: See TracChangeset
for help on using the changeset viewer.