ed/Odin
1
0
Fork 0
mirror of https://github.com/Ed94/Odin.git synced 2026-08-04 06:38:47 +00:00
Code Issues Packages Projects Releases Wiki Activity

Remove while loop and readd c-style for loops i.e. all loops are just for

Browse Source
This commit is contained in:
Ginger Bill
2017-01-27 17:43:42 +00:00
parent 832009f33a
commit 92453369c5
11 changed files with 201 additions and 139 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/ir.c
+27 -17
View File
@@ -4470,44 +4470,54 @@ void ir_build_stmt_internal(irProcedure *proc, AstNode *node) {
proc->curr_block = done;
case_end;
case_ast_node(ws, WhileStmt, node);
ir_emit_comment(proc, str_lit("WhileStmt"));
if (ws->init != NULL) {
irBlock *init = ir_add_block(proc, node, "while.init");
case_ast_node(fs, ForStmt, node);
ir_emit_comment(proc, str_lit("ForStmt"));
if (fs->init != NULL) {
irBlock *init = ir_add_block(proc, node, "for.init");
ir_emit_jump(proc, init);
proc->curr_block = init;
ir_build_stmt(proc, ws->init);
ir_build_stmt(proc, fs->init);
}
irBlock *body = ir_add_block(proc, node, "while.body");
irBlock *done = ir_add_block(proc, node, "while.done"); // NOTE(bill): Append later
irBlock *body = ir_add_block(proc, node, "for.body");
irBlock *done = ir_add_block(proc, node, "for.done"); // NOTE(bill): Append later
irBlock *loop = body;
if (ws->cond != NULL) {
loop = ir_add_block(proc, node, "while.loop");
if (fs->cond != NULL) {
loop = ir_add_block(proc, node, "for.loop");
}
irBlock *cont = loop;
if (fs->post != NULL) {
cont = ir_add_block(proc, node, "for.post");
}
ir_emit_jump(proc, loop);
proc->curr_block = loop;
if (loop != body) {
ir_build_cond(proc, ws->cond, body, done);
ir_build_cond(proc, fs->cond, body, done);
proc->curr_block = body;
}
ir_push_target_list(proc, done, loop, NULL);
ir_push_target_list(proc, done, cont, NULL);
ir_open_scope(proc);
ir_build_stmt(proc, ws->body);
ir_build_stmt(proc, fs->body);
ir_close_scope(proc, irDeferExit_Default, NULL);
ir_pop_target_list(proc);
ir_emit_jump(proc, loop);
ir_emit_jump(proc, cont);
if (fs->post != NULL) {
proc->curr_block = cont;
ir_build_stmt(proc, fs->post);
ir_emit_jump(proc, loop);
}
proc->curr_block = done;
case_end;
case_ast_node(rs, ForStmt, node);
ir_emit_comment(proc, str_lit("ForStmt"));
case_ast_node(rs, RangeStmt, node);
ir_emit_comment(proc, str_lit("RangeStmt"));
Type *val_type = NULL;
Type *idx_type = NULL;