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 |