Create an object at a given address: Difference between revisions

Content added Content deleted
Line 583: Line 583:
# second field 'bar'
# second field 'bar'
is @bytes-written[1], 99, 'object second field';
is @bytes-written[1], 99, 'object second field';

# verify that changing the origin changes the object values
memset($base-p, 1, 100); # set every byte to 1

is $struct.foo, 256 + 1, 'short updated at origin';
is $struct.bar, 1, 'byte updated at origin';


# tidy up
# tidy up