Orkuncakilkaya
df6955e609
Answering your readability point directly: the compiler's own string-building —
left uglier by the 7c `+` migration, e.g. `emit_bind(("load i32, ptr " + ip))` —
now reads as interpolation:
emit_bind(("load i32, ptr " + ip)) -> emit_bind(`load i32, ptr {ip}`)
emit_bind(("icmp eq i32 " + (kv + (", " + itoa(ak)))))
-> emit_bind(`icmp eq i32 {kv}, {itoa(ak)}`)
perr(("assign to unknown " + t.s)) -> perr(`assign to unknown {t.s}`)
164 concat chains across selfhost converted by a tool that flattens the `+` tree,
keeps call/index parens (only grouping parens are rewritten), and converts only
**brace-free** literals — LLVM IR structure strings full of `{`/`}` stay as `+`
rather than becoming awkward `{{`/`}}`. No new language surface; interpolation
already desugars to the same concat.
Reseeded (22565 lines); C-free fixpoint holds byte-for-byte (the strongest proof
the reconstruction is exact); goldens identical; 18/18.
Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
38 lines
1.5 KiB
Text
38 lines
1.5 KiB
Text
# emit_addr.ludic — addresses of lvalues (struct fields and slice elements),
|
|
# shared by expression loads and assignment stores. Each returns the address
|
|
# register; the element/field type is written into g_addr_ty.
|
|
|
|
var g_addr_ty: ptr # out-param: the type at the computed address
|
|
|
|
# address of `base.field`
|
|
fn emit_member_addr(e: Node) -> ptr {
|
|
let base = emit_expr(e.a)
|
|
let s = layout_node(base.ty)
|
|
if (s == null) { perr(`member access on non-aggregate {base.ty}`) }
|
|
let fidx = field_index(s, e.s)
|
|
if fidx < 0 { perr(`no such field {e.s}`) }
|
|
g_addr_ty = field_type(s, e.s)
|
|
let r = nreg()
|
|
emit(" "); emit(r); emit(" = getelementptr inbounds "); emit(layout_ty(base.ty))
|
|
emit(", ptr "); emit(base.code); emit(", i32 0, i32 "); emit(itoa(fidx)); emit("\n")
|
|
return r
|
|
}
|
|
|
|
# address of `base[index]` (slices only in this subset)
|
|
fn emit_index_addr(e: Node) -> ptr {
|
|
let base = emit_expr(e.a)
|
|
if not is_slice_ty(base.ty) { perr("indexing a non-slice") }
|
|
let el = slice_elem(base.ty)
|
|
g_addr_ty = el
|
|
# load the data pointer from the slice header (field 0)
|
|
let dp = nreg()
|
|
emit(" "); emit(dp); emit(" = getelementptr inbounds %LSlice, ptr ")
|
|
emit(base.code); emit(", i32 0, i32 0\n")
|
|
let data = nreg()
|
|
emit(" "); emit(data); emit(" = load ptr, ptr "); emit(dp); emit("\n")
|
|
let ix = emit_expr(e.b)
|
|
let r = nreg()
|
|
emit(" "); emit(r); emit(" = getelementptr inbounds "); emit(llty(el))
|
|
emit(", ptr "); emit(data); emit(", i32 "); emit(ix.code); emit("\n")
|
|
return r
|
|
}
|