Implement $write

This commit is contained in:
Nick Gasson 2008-06-20 19:00:07 +01:00
parent 0f50849fbb
commit 204862ac3c
2 changed files with 5 additions and 2 deletions

View File

@ -161,7 +161,8 @@ int draw_stask_display(vhdl_process *proc, stmt_container *container,
display_write(container, new vhdl_const_string(" "));
}
display_line(container);
if (newline)
display_line(container);
return 0;
}

View File

@ -62,7 +62,9 @@ static int draw_stask(vhdl_process *proc, stmt_container *container,
const char *name = ivl_stmt_name(stmt);
if (strcmp(name, "$display") == 0)
return draw_stask_display(proc, container, stmt);
return draw_stask_display(proc, container, stmt, true);
else if (strcmp(name, "$write") == 0)
return draw_stask_display(proc, container, stmt, false);
else if (strcmp(name, "$finish") == 0)
return draw_stask_finish(proc, container, stmt);
else {