diff options
| author | clean | 2000-09-25 11:10:00 +0000 |
|---|---|---|
| committer | clean | 2000-09-25 11:10:00 +0000 |
| commit | dd4d323448b25653efa872c90aa070e5c0f531c5 (patch) | |
| tree | e2a99658e0a4b3874d1a7fd245cfd879d7cc4dac /frontend/Heap.icl | |
| parent | added arrayCopyBegin (diff) | |
optimize memory allocation of nilPtr
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@226 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/Heap.icl')
| -rw-r--r-- | frontend/Heap.icl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/frontend/Heap.icl b/frontend/Heap.icl index c92f421..17ea702 100644 --- a/frontend/Heap.icl +++ b/frontend/Heap.icl @@ -29,8 +29,12 @@ nilPtr v = code { pop_a 2 }; */ + nilPtr :: Ptr v; -nilPtr = code { +nilPtr =: make_nilPtr; + +make_nilPtr :: Ptr v; +make_nilPtr = code { build _Nil 0 _hnf push_a 0 build_r e_Heap_kPtr 2 0 0 0 |