Mercurial > repos > rhope

comparison runtime/func.h @ 168:d2b941f82d74

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix type of list constants in inference pass and return type of some Array related workers
author Mike Pavone <pavone@retrodev.com>
date Sun, 01 May 2011 18:41:17 -0700
parents d1e206ff75f9
children ba35ab624ec2
comparison
equal deleted inserted replaced
167:690ed78ead8a 168:d2b941f82d74
135 cdata->func = FUNC_ ## name ## AT_ ## type_name;\ 135 cdata->func = FUNC_ ## name ## AT_ ## type_name;\
136 goto _exception;\ 136 goto _exception;\
137 }\ 137 }\
138 if(get_blueprint(cdata->params[0])->type_id != mytype_id)\ 138 if(get_blueprint(cdata->params[0])->type_id != mytype_id)\
139 {\ 139 {\
140 puts("uh oh, need conversion and that's not implemented yet!");\ 140 printf("uh oh, need conversion from type %d to %s(%d) for %s and that's not implemented yet!\n", get_blueprint(cdata->params[0])->type_id, #type_name, mytype_id, #name);\
141 exit(1);\ 141 goto _exception;\
142 }\ 142 }\
143 m_ ## name ## AT_ ## type_name:\ 143 m_ ## name ## AT_ ## type_name:\
144 for(idx = numparams; idx < cdata->num_params; ++idx)\ 144 for(idx = numparams; idx < cdata->num_params; ++idx)\
145 release_ref(cdata->params[idx]); cdata->num_params = numparams;\ 145 release_ref(cdata->params[idx]); cdata->num_params = numparams;\
146 lv_ ## name ## AT_ ## type_name = alloc_stack(ct, sizeof(lt_ ## name ## AT_ ## type_name));\ 146 lv_ ## name ## AT_ ## type_name = alloc_stack(ct, sizeof(lt_ ## name ## AT_ ## type_name));\