Orkuncakilkaya
eac8f8f335
The parser now requires a newline or ';' between statements (block() in selfhost/parse.ludic); two statements may no longer sit adjacent with only spaces. Also fixed if-without-else swallowing its trailing separator. Migration: tools/ludic-tools/migrate_separators.c inserts ';' at statement boundaries corpus-wide (examples, runtime, 25 self-host fragments, ~1100 boundaries). Verified semantically identical — the migrated compiler compiles itself to IR byte-identical to the pre-migration seed, and every golden game renders identically. Reseeded to the strict compiler; C-free fixpoint holds; test.sh 14/14. Docs: Rule B documented in LANGUAGE.md; BOOTSTRAP.md R1 + stale fences updated; check-docs green across all docs. Fixed a multi-line string literal in emit_expr.ludic (byte-identical \n escape) that the C toolchain lexer mis-lexes. Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
29 lines
1.7 KiB
Text
29 lines
1.7 KiB
Text
# emit_math.ludic — the math builtins that lower to inline IR rather than a
|
|
# runtime call: min, max, abs, clamp. Everything else named like a builtin
|
|
# (clear, fill_rect, reg, ...) is resolved to its rt_ function by emit_call.
|
|
|
|
fn is_math_builtin(name: ptr) -> bool {
|
|
return streq(name,"min") or streq(name,"max") or streq(name,"abs") or streq(name,"clamp")
|
|
}
|
|
|
|
fn emit_math_builtin(name: ptr, e: Node) -> Val {
|
|
if streq(name, "abs") {
|
|
let a = emit_expr(e.kids[0])
|
|
let c = emit_bind(sconcat("icmp slt i32 ", sconcat(a.code, ", 0")))
|
|
let n = emit_bind(sconcat("sub i32 0, ", a.code))
|
|
return val(emit_bind(sconcat("select i1 ", sconcat(c, sconcat(", i32 ", sconcat(n, sconcat(", i32 ", a.code)))))), "int")
|
|
}
|
|
if streq(name, "min") or streq(name, "max") {
|
|
let a = emit_expr(e.kids[0]); let b = emit_expr(e.kids[1])
|
|
let op = "slt"
|
|
if streq(name, "max") { op = "sgt" }
|
|
let c = emit_bind(sconcat("icmp ", sconcat(op, sconcat(" i32 ", sconcat(a.code, sconcat(", ", b.code))))))
|
|
return val(emit_bind(sconcat("select i1 ", sconcat(c, sconcat(", i32 ", sconcat(a.code, sconcat(", i32 ", b.code)))))), "int")
|
|
}
|
|
# clamp(v, lo, hi) = max(lo, min(v, hi))
|
|
let v = emit_expr(e.kids[0]); let lo = emit_expr(e.kids[1]); let hi = emit_expr(e.kids[2])
|
|
let c1 = emit_bind(sconcat("icmp slt i32 ", sconcat(v.code, sconcat(", ", hi.code))))
|
|
let t = emit_bind(sconcat("select i1 ", sconcat(c1, sconcat(", i32 ", sconcat(v.code, sconcat(", i32 ", hi.code))))))
|
|
let c2 = emit_bind(sconcat("icmp sgt i32 ", sconcat(lo.code, sconcat(", ", t))))
|
|
return val(emit_bind(sconcat("select i1 ", sconcat(c2, sconcat(", i32 ", sconcat(lo.code, sconcat(", i32 ", t)))))), "int")
|
|
}
|