🚀 go-pugleaf

It looks like Wirth is using different ways to allocate memory
in different versions of his books. Sometimes he uses
'Allocate(Var,SIZE(Type)' and sometimes 'NEW(Var)'.

I like the second way better, but my compiler only supports Allocate.
So, is there a way to write a NEW (and DISPOSE, of course) ?

This is how far I got:
--- DEF ---
DEFINITION MODULE Storage;
FROM Heap IMPORT Allocate, Deallocate;
FROM SYSTEM IMPORT ADDRESS;

PROCEDURE NEW(VAR p : ADDRESS);

PROCEDURE DISPOSE(VAR p : ADDRESS);

END Storage.
--- IMP --
IMPLEMENTATION MODULE Storage;
FROM Heap IMPORT Allocate, Deallocate;
FROM SYSTEM IMPORT ADDRESS;

PROCEDURE NEW(VAR p : ADDRESS);
BEGIN
  Allocate(p,SIZE(p^));
END NEW;

PROCEDURE DISPOSE(VAR p : ADDRESS);
BEGIN
  Deallocate(p,SIZE(p^));
END DISPOSE;

BEGIN
END Storage.

The problem is that p 'looses' its type in the conversion to ADDRESS and
only a WORD is Allocated (ADDRESS is POINTER TO WORD).

Any ideas ?

Greetings, Jan

--
Jan Willamowius, Nienredder 6, 2000 Hamburg 54, Germany
E-Mail: jan@janhh.hanse.de