From dd4d323448b25653efa872c90aa070e5c0f531c5 Mon Sep 17 00:00:00 2001 From: clean Date: Mon, 25 Sep 2000 11:10:00 +0000 Subject: optimize memory allocation of nilPtr git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@226 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d --- frontend/Heap.icl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'frontend/Heap.icl') 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 -- cgit v1.2.3