langs a-z

Task/Arena-storage-pool/Pascal/arena-storage-pool-1.pascal

@@ -0,0 +1 @@
+procedure New (var P: Pointer);

Task/Arena-storage-pool/Pascal/arena-storage-pool-2.pascal

@@ -0,0 +1,33 @@
+Program Example16;
+{ Program to demonstrate the Dispose and New functions. }
+Type
+  SS = String[20];
+  AnObj = Object
+    I : integer;
+    Constructor Init;
+    Destructor Done;
+  end;
+
+Var
+  P : ^SS;
+  T : ^AnObj;
+
+Constructor Anobj.Init;
+begin
+  Writeln ( ' Initializing an instance of AnObj! ' );
+end;
+
+Destructor AnObj.Done;
+begin
+  Writeln ( ' Destroying an instance of AnObj! ' ) ;
+end;
+
+begin
+  New ( P );
+  P^ := 'Hello, World!';
+  Dispose ( P );
+{ P is undefined from here on! }
+  New ( T, Init );
+  T^.i := 0;
+  Dispose ( T, Done );
+end .