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