Orkuncakilkaya
b0b0b62bce
The typed buffers are slices: words/floats/fixeds/doubles/pointers(n) make
zeroed, bounds-checked []int/[]float/... and the type names mean them. buffer(n)
is a []byte, with text_of, Fs.read_bytes/write_bytes and view(xs, start, n).
bytes(), indexing a raw pointer or bytes, free, resize, Memory.*, raw file calls,
data_of and C externs are refused outside unsafe { } / unsafe function, and a
project's own files may write unsafe only with --unsafe; the runtime and packages
are the platform. A slice passed to an extern goes as its data.
What the change found: Sync's atomics on a slice header, words(n) uninitialised,
input's fixed axes in ints, truetype's fixed outlines as ints, skin matrices
typed int, gl_shader's source table made from raw bytes. render3d gets safe
entry points (safe_api.ludic). Rendering is byte-identical; a frame costs the same.
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
48 lines
2.4 KiB
Text
48 lines
2.4 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 emit_sized_slice("int", n)
|
|
}
|
|
if (meth == "copy") { # copy n bytes src -> dst
|
|
let dst = raw_expr(e.kids[0]); let src = raw_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 = raw_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 = raw_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 = raw_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")
|
|
}
|