miloignis/kraken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Small, but added system call to bytecode

Browse Source
This commit is contained in:
Nathan Braswell
2018-03-23 01:27:44 -04:00
parent b8213dfc9f
commit 1c94cd2f03
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
stdlib/bytecode_generator.krak
View File

@@ -1,4 +1,5 @@
import io:* import io:*
import os:*
import mem:* import mem:*
import map:* import map:*
import hash_map:* import hash_map:*
@@ -329,7 +330,6 @@ obj bytecode_generator (Object) {
// iterate through asts // iterate through asts
name_ast_map.for_each(fun(name: string, tree_pair: pair<*tree<symbol>,*ast_node>) { name_ast_map.for_each(fun(name: string, tree_pair: pair<*tree<symbol>,*ast_node>) {
// iterate through children for each ast // iterate through children for each ast
// do lambdas seperatly, so we can reconstitute the enclosing object if it has one
tree_pair.second->translation_unit.lambdas.for_each(fun(child: *ast_node) { tree_pair.second->translation_unit.lambdas.for_each(fun(child: *ast_node) {
generate_function_definition(child) generate_function_definition(child)
}) })
@@ -1164,6 +1164,8 @@ obj bytecode_generator (Object) {
registers[2] = (fgets( *(registers[0]) cast **char, registers[2] = (fgets( *(registers[0]) cast **char,
*(registers[0] + #sizeof<*char>) cast *int, *(registers[0] + #sizeof<*char>) cast *int,
*(registers[0] + #sizeof<*char> + #sizeof<int>) cast **void)) cast long *(registers[0] + #sizeof<*char> + #sizeof<int>) cast **void)) cast long
else if (func_start == system_addr)
registers[2] = (system( *(registers[0]) cast **char)) cast long
else else
error(string("bad extern call number") + func_start) error(string("bad extern call number") + func_start)
} else { } else {