Mercurial > repos > tabletprog
comparison modules/array.tp @ 377:93c28eee141e default tip
Merge
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 15 Aug 2015 22:45:33 -0700 |
parents | e857104bd183 810b6115c1d4 |
children |
comparison
equal
deleted
inserted
replaced
376:d61b1f0e1936 | 377:93c28eee141e |
---|---|
51 data <- tmp | 51 data <- tmp |
52 } | 52 } |
53 data set: size value | 53 data set: size value |
54 size <- size + 1 | 54 size <- size + 1 |
55 self | 55 self |
56 } | |
57 | |
58 llMessage: pop withVars: { | |
59 } andCode: { | |
60 if: size > 0 { | |
61 size <- size - 1 | |
62 data get: size | |
63 } else: { | |
64 false | |
65 } | |
56 } | 66 } |
57 | 67 |
58 llMessage: resize withVars: { | 68 llMessage: resize withVars: { |
59 newsize <- obj_uint32 ptr | 69 newsize <- obj_uint32 ptr |
60 tmp <- (object ptr) ptr | 70 tmp <- (object ptr) ptr |