Commit 046777fd authored by John van Groningen's avatar John van Groningen

remove WrappedFileArray

parent 7eed5b09
......@@ -44,7 +44,6 @@ instance toString WrappedDescriptor
| WrappedIntArray !{#Int}
| WrappedBoolArray !{#Bool}
| WrappedRealArray !{#Real}
| WrappedFileArray !{#File}
// other arrays
| WrappedArray !{!arg}
......
......@@ -78,8 +78,6 @@ mapWrapNode _ (WrappedBoolArray ba)
= WrappedBoolArray ba
mapWrapNode _ (WrappedRealArray ra)
= WrappedRealArray ra
mapWrapNode _ (WrappedFileArray fa)
= WrappedFileArray fa
mapArgs :: (a -> b) {!a} -> {!b}
mapArgs f a
......@@ -618,9 +616,6 @@ shallowWrap node
push_b 0
eq_desc_b REAL 0
jmp_true wrap_real_array
push_b 0
eq_desc_b FILE 0
jmp_true wrap_file_array
pushI 0
push_a 0
......@@ -736,19 +731,6 @@ shallowWrap node
| B:
rtn
:wrap_file_array
| A: <_array> <result>
| B: <desc>
pop_b 1
| fill result node
fill_r e_Wrap_kWrappedFileArray 1 0 1 0 0
pop_a 1
.d 1 0
| A: <result>
| B:
rtn
:wrap_record_array
| A: <_array> <result>
| B: <n> <i>
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment