aboutsummaryrefslogtreecommitdiff
path: root/docs/history/10-zc/code/examples/selfpatch.zc
blob: 35a4843453f1c2940817bf73c05cf5e2bfae20ee (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
// code is data: find the literal 'A' inside f's compiled words and rewrite it.
// on the jit the store lands on translated code, which gets dropped and
// retranslated on the next call.
fn f() { putc('A'); return 0; }
fn litw(v) { return v + v + 1; }	// how the vm encodes a literal push
fn main()
{
	var p = f;
	f();
	while (*p != litw('A')) p++;
	*p = litw('B');
	f();
	*p = litw('C');
	f();
	putc(10);
	return 0;
}