Mercurial > repos > tabletprog
changeset 347:ff7ea11b4b60
Add length method to executable bytearrays
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Fri, 10 Apr 2015 00:48:12 -0700 |
parents | fd4e0bf5bd9f |
children | a840e9a068a2 |
files | modules/bytearray.tp |
diffstat | 1 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/modules/bytearray.tp Fri Apr 10 00:47:54 2015 -0700 +++ b/modules/bytearray.tp Fri Apr 10 00:48:12 2015 -0700 @@ -119,6 +119,13 @@ mprotect: buffer bytes (PROT_READ or PROT_WRITE or PROT_EXEC) self } + llMessage: length withVars: { + intret <- obj_int32 ptr + } andCode: { + intret <- make_object: (addr_of: obj_int32_meta) NULL 0 + intret num!: bytes + intret + } llMessage: set withVars: { offset <- obj_int32 ptr newval <- obj_uint8 ptr