# HG changeset patch
# User Michael Pavone <pavone@retrodev.com>
# Date 1428652092 25200
# Node ID ff7ea11b4b6045b294aadf484a39ed959775ab1f
# Parent  fd4e0bf5bd9ff9f104aa0eab48aab28ccee79556
Add length method to executable bytearrays

diff -r fd4e0bf5bd9f -r ff7ea11b4b60 modules/bytearray.tp
--- 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