Anonymous user
Create an object at a given address: Difference between revisions
Create an object at a given address (view source)
Revision as of 08:22, 15 November 2018
, 5 years ago→{{header|Perl 6}}
Line 583:
# second field 'bar'
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
| |||