Mercurial > repos > rhope
comparison kernel.rhope @ 69:d0ce696786cc
Clean up debug print statements a bit. Fix bug that prevented workers that took no inputs from working. Remove workaround in Array for said bug.
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 16 Jun 2010 04:36:08 +0000 |
parents | 079200bc3e75 |
children | c40c3d399133 |
comparison
equal
deleted
inserted
replaced
68:38d9cd036d49 | 69:d0ce696786cc |
---|---|
57 Print@Int32[n:out] | 57 Print@Int32[n:out] |
58 { | 58 { |
59 If[[n] < [0i32]] | 59 If[[n] < [0i32]] |
60 { | 60 { |
61 val <- [0i32]-[n] | 61 val <- [0i32]-[n] |
62 buf <- [Array[1]]Append[45i8] | 62 buf <- [Array[]]Append[45i8] |
63 }{ | 63 }{ |
64 val <- Val[n] | 64 val <- Val[n] |
65 buf <- Array[1] | 65 buf <- Array[] |
66 } | 66 } |
67 fbuf <- [_Print Int32[val, buf]]Append[10i8] | 67 fbuf <- [_Print Int32[val, buf]]Append[10i8] |
68 out <- write[1i32, fbuf, Int64[[fbuf]Length >>]] | 68 out <- write[1i32, fbuf, Int64[[fbuf]Length >>]] |
69 } | 69 } |
70 | 70 |
150 =@Blueprint[left,right:out] | 150 =@Blueprint[left,right:out] |
151 { | 151 { |
152 out <- [_internal_blueprint_eq[left,right]]!=[0] | 152 out <- [_internal_blueprint_eq[left,right]]!=[0] |
153 } | 153 } |
154 | 154 |
155 Array[n:out(Array)] | 155 Array[:out(Array)] |
156 { | 156 { |
157 out <- [[_internal_array_allocboxed[0] | 157 out <- [[_internal_array_allocboxed[0] |
158 ]Length <<[0] | 158 ]Length <<[0] |
159 ]Storage <<[0] | 159 ]Storage <<[0] |
160 } | 160 } |