Changeset 074444f in mainline for uspace/app/sbi/src/stype.c
- Timestamp:
- 2010-04-10T11:15:33Z (14 years ago)
- Branches:
- lfn, master, serial, ticket/834-toolchain-update, topic/msim-upgrade, topic/simplify-dev-export
- Children:
- 1ef0fc3, 38aaacc2
- Parents:
- 23de644
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
uspace/app/sbi/src/stype.c
r23de644 r074444f 64 64 static void stype_wef(stype_t *stype, stree_wef_t *wef_s); 65 65 66 static tdata_item_t *stype_boolean_titem(stype_t *stype);67 68 66 /** Type module */ 69 67 void stype_module(stype_t *stype, stree_module_t *module) … … 189 187 static void stype_var(stype_t *stype, stree_var_t *var) 190 188 { 189 tdata_item_t *titem; 190 191 191 (void) stype; 192 192 (void) var; 193 194 run_texpr(stype->program, stype->current_csi, var->type, 195 &titem); 196 if (titem->tic == tic_ignore) { 197 /* An error occured. */ 198 stype_note_error(stype); 199 return; 200 } 193 201 } 194 202 … … 283 291 stype_block_vr_t *block_vr; 284 292 stree_vdecl_t *old_vdecl; 293 tdata_item_t *titem; 285 294 286 295 #ifdef DEBUG_TYPE_TRACE … … 297 306 } 298 307 308 run_texpr(stype->program, stype->current_csi, vdecl_s->type, 309 &titem); 310 if (titem->tic == tic_ignore) { 311 /* An error occured. */ 312 stype_note_error(stype); 313 return; 314 } 315 299 316 intmap_set(&block_vr->vdecls, vdecl_s->name->sid, vdecl_s); 300 301 317 } 302 318 … … 524 540 goto failure; 525 541 break; 526 default:542 case tic_tfun: 527 543 printf("Error: Unimplemented: Converting '"); 528 544 tdata_item_print(src); … … 531 547 printf("'.\n"); 532 548 stype_note_error(stype); 549 break; 550 case tic_ignore: 551 assert(b_false); 533 552 } 534 553 … … 547 566 548 567 /** Return a boolean type item */ 549 statictdata_item_t *stype_boolean_titem(stype_t *stype)568 tdata_item_t *stype_boolean_titem(stype_t *stype) 550 569 { 551 570 tdata_item_t *titem; … … 554 573 (void) stype; 555 574 556 /* XXX Use a true boolean type */557 575 titem = tdata_item_new(tic_tprimitive); 558 tprimitive = tdata_primitive_new(tpc_ int);576 tprimitive = tdata_primitive_new(tpc_bool); 559 577 titem->u.tprimitive = tprimitive; 560 578
Note:
See TracChangeset
for help on using the changeset viewer.