// Phase 1.1 — the compiler-internal heap-copy that backs `xx <rvalue>`
// protocol erasure must dispatch through `context.allocator`, not call
// libc malloc directly. So when a `push Context.{ allocator = tracer }`
// block is active, a `xx StructLiteral.{}` inside it MUST be allocated
// by the tracker.
//
// Note: `xx` only heap-copies for RVALUES (struct literals, call results).
// `xx <lvalue>` (an identifier, field access, index, or deref) borrows
// the operand's storage, so it never allocates and never reaches this
// path. See specs.md §3 — Protocol value ownership and lifetime.
#import "modules/std.sx";

Tracer :: struct {
    count: s64;

    init :: () -> *Tracer {
        t : *Tracer = xx malloc(size_of(Tracer));
        t.count = 0;
        t;
    }
}

impl Allocator for Tracer {
    alloc :: (self: *Tracer, size: s64) -> *void {
        self.count += 1;
        return malloc(size);
    }
    dealloc :: (self: *Tracer, ptr: *void) {
        free(ptr);
    }
}

ByValue :: struct { x: s64; y: s64; }

main :: () -> s32 {
    tracer := Tracer.init();
    push Context.{ allocator = xx tracer, data = null } {
        // Struct-literal operand: rvalue → heap-copy through context.allocator.
        ignore : Allocator = xx ByValue.{ x = 1, y = 2 };
        _ = ignore;
    }
    print("Tracer.count = {}\n", tracer.count);
    0;
}
