Bruce/tomo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Activity

Fixing up more stuff

Browse Source
This commit is contained in:
Bruce Hill 2024-08-13 03:08:27 -04:00
parent 6f33b93014
commit 7365602715
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compile.c
View File

@ -2361,6 +2361,9 @@ CORD compile(env_t *env, ast_t *ast)
type_t *actual = get_type(env, call->args->value);
if (actual->tag != IntType && actual->tag != NumType)
code_err(call->args->value, "This %T value cannot be converted to a %T", actual, t);
if (actual->tag == IntType && Match(actual, IntType)->bits == 0)
return CORD_all("((", compile_type(t), ")", t->tag == IntType ? "Int$as_i64" : "Int$as_num", "(",
compile(env, call->args->value), "))");
return CORD_all("((", compile_type(t), ")(", compile(env, call->args->value), "))");
} else if (t->tag == TextType) {
// Text constructor: