Orkuncakilkaya
effb3f637f
Expand the abbreviated pointer types to full words on the language surface: ptr -> pointer (a raw address / FFI handle) ptrs -> pointers (a buffer of pointers) The Ludic type name is distinct from LLVM's own `ptr` spelling: llty() maps `pointer`/`pointers` to LLVM `ptr`, and the emitted IR keeps `ptr`, so only the Ludic-level surface changes. Rewrites type annotations across all sources, the 8 hardcoded pointer type-tags, the `pointers`-buffer indexing in emit_addr, the grammars/LSP/JetBrains tokens, and the docs (type-ptr -> type-pointer, type-ptrs -> type-pointers). int/bool keep their conventional short spelling (like Math). Reseeded; C-free fixpoint holds; all suites green (45/24/29); site + check.py OK. Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
48 lines
2.5 KiB
Text
48 lines
2.5 KiB
Text
# emit_mem.ludic — the Memory.* namespace: raw buffers and byte pokes. bytes/words
|
|
# allocate (as the bare builtins do); copy/fill wrap memcpy/memset; peek/poke
|
|
# read and write one byte. The low-level escape hatch, PICO-8's memcpy/memset/
|
|
# peek/poke by another name.
|
|
|
|
function is_mem_ns(meth: pointer) -> bool {
|
|
if (meth == "bytes") or (meth == "words") { return true }
|
|
if (meth == "copy") or (meth == "fill") or (meth == "peek") or (meth == "poke") { return true }
|
|
return false
|
|
}
|
|
|
|
function emit_mem_ns(meth: pointer, e: Node) -> Val {
|
|
if (meth == "bytes") { # allocate n bytes -> a byte buffer
|
|
let n = emit_expr(e.kids[0])
|
|
let w = emit_bind(`zext i32 {n.code} to i64`)
|
|
return val(emit_bind(`call ptr @malloc(i64 {w})`), "pointer")
|
|
}
|
|
if (meth == "words") { # allocate n 32-bit words
|
|
let n = emit_expr(e.kids[0])
|
|
let by = emit_bind(`mul i32 {n.code}, 4`)
|
|
let w = emit_bind(`zext i32 {by} to i64`)
|
|
return val(emit_bind(`call ptr @malloc(i64 {w})`), "words")
|
|
}
|
|
if (meth == "copy") { # copy n bytes src -> dst
|
|
let dst = emit_expr(e.kids[0]); let src = emit_expr(e.kids[1]); let n = emit_expr(e.kids[2])
|
|
let w = emit_bind(`zext i32 {n.code} to i64`)
|
|
emit(" call ptr @memcpy(ptr "); emit(dst.code); emit(", ptr "); emit(src.code); emit(", i64 "); emit(w); emit(")\n")
|
|
return val("0", "void")
|
|
}
|
|
if (meth == "fill") { # set n bytes of buf to value v
|
|
let buf = emit_expr(e.kids[0]); let v = emit_expr(e.kids[1]); let n = emit_expr(e.kids[2])
|
|
let w = emit_bind(`zext i32 {n.code} to i64`)
|
|
emit(" call ptr @memset(ptr "); emit(buf.code); emit(", i32 "); emit(v.code); emit(", i64 "); emit(w); emit(")\n")
|
|
return val("0", "void")
|
|
}
|
|
if (meth == "peek") { # read one byte at buf[i], 0..255
|
|
let buf = emit_expr(e.kids[0]); let i = emit_expr(e.kids[1])
|
|
let p = emit_bind(`getelementptr inbounds i8, ptr {buf.code}, i32 {i.code}`)
|
|
let c = emit_bind(`load i8, ptr {p}`)
|
|
return val(emit_bind(`zext i8 {c} to i32`), "int")
|
|
}
|
|
# poke: write the low byte of v at buf[i]
|
|
let buf = emit_expr(e.kids[0]); let i = emit_expr(e.kids[1]); let v = emit_expr(e.kids[2])
|
|
let p = emit_bind(`getelementptr inbounds i8, ptr {buf.code}, i32 {i.code}`)
|
|
let b = emit_bind(`trunc i32 {v.code} to i8`)
|
|
emit(" store i8 "); emit(b); emit(", ptr "); emit(p); emit("\n")
|
|
return val("0", "void")
|
|
}
|