Web-Projects/blog-static
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add more built-in boolean-specific instructions.

Browse Source
This commit is contained in:
Danila Fedorin
2020-09-10 12:44:41 -07:00
parent 73441dc93b
commit 9fc0ff961d
7 changed files with 40 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
code/compiler/13/main.cpp
View File

@@ -34,10 +34,16 @@ void prelude_types(definition_group& defs, type_env_ptr env) {
type_ptr binop_type = type_ptr(new type_arr(
int_type_app,
type_ptr(new type_arr(int_type_app, int_type_app))));
type_ptr cmp_type = type_ptr(new type_arr(
int_type_app,
type_ptr(new type_arr(int_type_app, bool_type_app))));
env->bind("+", binop_type, visibility::global);
env->bind("-", binop_type, visibility::global);
env->bind("*", binop_type, visibility::global);
env->bind("/", binop_type, visibility::global);
env->bind("%", binop_type, visibility::global);
env->bind("==", cmp_type, visibility::global);
env->bind("<=", cmp_type, visibility::global);
env->bind("True", bool_type_app, visibility::global);
env->bind("False", bool_type_app, visibility::global);
@@ -146,6 +152,9 @@ void gen_llvm(global_scope& scope) {
gen_llvm_internal_op(ctx, MINUS);
gen_llvm_internal_op(ctx, TIMES);
gen_llvm_internal_op(ctx, DIVIDE);
gen_llvm_internal_op(ctx, MODULO);
gen_llvm_internal_op(ctx, EQUALS);
gen_llvm_internal_op(ctx, LESS_EQUALS);
gen_llvm_boolean_constructor(ctx, "True", true);
gen_llvm_boolean_constructor(ctx, "False", false);