Mercurial > repos > rhope
diff array.rhope @ 168:d2b941f82d74
Fix type of list constants in inference pass and return type of some Array related workers
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sun, 01 May 2011 18:41:17 -0700 |
parents | 65ebd1ce2611 |
children |
line wrap: on
line diff
--- a/array.rhope Mon Apr 04 01:41:19 2011 -0400 +++ b/array.rhope Sun May 01 18:41:17 2011 -0700 @@ -25,7 +25,7 @@ _internal_array_setboxed[array(Boxed Array,Boxed,Mutable), index(Int32,Naked), val:array] _internal_array_allocboxed[size(Int32,Naked):out(Boxed Array)] _internal_array_allocboxedcopy[source(Boxed Array),size(Int32,Naked):out(Boxed Array)] - _internal_array_allocnaked[size(Int32,Naked),type(Blueprint):out(Array)] + _internal_array_allocnaked[size(Int32,Naked),type(Blueprint):out] _internal_array_allocnakedcopy[source(Array),size(Int32,Naked):out(Array)] } @@ -91,7 +91,7 @@ { out <- [[array]Length >>] - [1] } } -Append@Empty Array[array,newval:out(Array)] +Append@Empty Array[array,newval:out] { out <- [array]Set[0, newval] } @@ -214,7 +214,7 @@ } } -Set@Empty Array[array,index(Int32),val:out(Array),invalid] +Set@Empty Array[array,index(Int32),val:out,invalid] { invalid <- If[[index]<[0]] {} {