Mercurial > repos > rhope

comparison interp.c @ 30:914ad38f9b59

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Compiler now works for some simple programs
author Mike Pavone <pavone@retrodev.com>
date Mon, 28 Sep 2009 19:42:33 -0400
parents 3cc5e4a42344
children 9ee9adc696e7
comparison
equal deleted inserted replaced
29:3cc5e4a42344 30:914ad38f9b59
2700 *room_index_ret = i; 2700 *room_index_ret = i;
2701 return set_comp_room(company, i, entry, prog); 2701 return set_comp_room(company, i, entry, prog);
2702 } 2702 }
2703 if(room_index_ret) 2703 if(room_index_ret)
2704 *room_index_ret = -1; 2704 *room_index_ret = -1;
2705 printf("Error: Can't set field %s on object with blueprint %s\n", name, company[0]->company);
2705 return -1; 2706 return -1;
2706 } 2707 }
2707 2708
2708 int get_comp_room(datum ** company, int room_index, queue_entry * entry, program * prog) 2709 int get_comp_room(datum ** company, int room_index, queue_entry * entry, program * prog)
2709 { 2710 {
2785 *room_index_ret = i; 2786 *room_index_ret = i;
2786 return get_comp_room(company, i, entry, prog); 2787 return get_comp_room(company, i, entry, prog);
2787 } 2788 }
2788 if(room_index_ret) 2789 if(room_index_ret)
2789 *room_index_ret = -1; 2790 *room_index_ret = -1;
2791 printf("Error: Can't get field %s from object with blueprint %s\n", name, company[0]->company);
2792 print_stack_trace(entry->instance);
2790 return -1; 2793 return -1;
2791 } 2794 }
2792 2795
2793 datum * literal_string(char * value, int len, program * prog) 2796 datum * literal_string(char * value, int len, program * prog)
2794 { 2797 {