diff options
| author | johnvg | 2001-08-31 10:31:17 +0000 |
|---|---|---|
| committer | johnvg | 2001-08-31 10:31:17 +0000 |
| commit | 14b927d3c1e4527cf450784ed161ddbb685032c9 (patch) | |
| tree | 61b1d6d7dcfebedb49f6514494994a1bd01ebead /frontend/Heap.dcl | |
| parent | PK: token position + minor bugs (diff) | |
added allocPtr and initPtr
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@701 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/Heap.dcl')
| -rw-r--r-- | frontend/Heap.dcl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/frontend/Heap.dcl b/frontend/Heap.dcl index a0bb2cb..3468ff3 100644 --- a/frontend/Heap.dcl +++ b/frontend/Heap.dcl @@ -21,6 +21,10 @@ writePtr :: !(Ptr v) !v !*(Heap v) -> .Heap v sreadPtr :: !(Ptr v) !(Heap v) -> v +allocPtr :: Ptr v; + +initPtr :: !(Ptr v) !v !*(Heap v) -> .Heap v; + ptrToInt :: !(Ptr w) -> Int (<:=) infixl @@ -29,3 +33,4 @@ where (ptr, val) = ptr_and_val instance == (Ptr a) + |