Mercurial > repos > tabletprog
diff modules/string.tp @ 267:d2b70cba661e
Warning cleanup
| author | Michael Pavone <pavone@retrodev.com> |
|---|---|
| date | Fri, 18 Jul 2014 00:14:22 -0700 |
| parents | d6a4c9e7716e |
| children | b74956a2196f |
line wrap: on
line diff
--- a/modules/string.tp Thu Jul 17 23:57:41 2014 -0700 +++ b/modules/string.tp Fri Jul 18 00:14:22 2014 -0700 @@ -61,7 +61,7 @@ argb <- (string ptr) out <- (string ptr) } andCode: :argbo { - argb <- mcall: string 1 argbo + argb <- (mcall: string 1 argbo) castTo: (string ptr) out <- make_object: (addr_of: string_meta) NULL 0 out bytes!: bytes + (argb bytes) out len!: len + (argb len) @@ -173,7 +173,7 @@ i <- uint32_t notFound <- uint32_t } andCode: :oneedle :startpos :ifNotFound { - sneedle <- mcall: string 1 oneedle + sneedle <- (mcall: string 1 oneedle) castTo: (string ptr) i <- startpos num notFound <- 1 while: { notFound && i + (sneedle bytes) <= bytes} do: {