Mercurial > repos > tabletprog

comparison modules/array.tp @ 377:93c28eee141e default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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