DanilaFe/bloglang
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Actually use the environment for binop functions.

Browse Source
This commit is contained in:
Danila Fedorin 2020-09-10 16:03:56 -07:00
parent e7afa126c8
commit 99f7f45d51
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
13/ast.cpp
View File

@ -135,7 +135,8 @@ void ast_binop::compile(const env_ptr& env, std::vector<instruction_ptr>& into)
right->compile(env, into); right->compile(env, into);
left->compile(env_ptr(new env_offset(1, env)), into); left->compile(env_ptr(new env_offset(1, env)), into);
into.push_back(instruction_ptr(new instruction_pushglobal(op_action(op)))); auto mangled_name = this->env->get_mangled_name(op_name(op));
into.push_back(instruction_ptr(new instruction_pushglobal(mangled_name)));
into.push_back(instruction_ptr(new instruction_mkapp())); into.push_back(instruction_ptr(new instruction_mkapp()));
into.push_back(instruction_ptr(new instruction_mkapp())); into.push_back(instruction_ptr(new instruction_mkapp()));
} }

2
13/main.cpp
View File

@ -43,9 +43,11 @@ void prelude_types(definition_group& defs, type_env_ptr env) {
constexpr binop cmp_ops[] = { EQUALS, LESS_EQUALS }; constexpr binop cmp_ops[] = { EQUALS, LESS_EQUALS };
for(auto& op : number_ops) { for(auto& op : number_ops) {
env->bind(op_name(op), binop_type, visibility::global); env->bind(op_name(op), binop_type, visibility::global);
env->set_mangled_name(op_name(op), op_action(op));
} }
for(auto& op : cmp_ops) { for(auto& op : cmp_ops) {
env->bind(op_name(op), cmp_type, visibility::global); env->bind(op_name(op), cmp_type, visibility::global);
env->set_mangled_name(op_name(op), op_action(op));
} }
env->bind("True", bool_type_app, visibility::global); env->bind("True", bool_type_app, visibility::global);