Xref: utzoo comp.lang.pascal:1774 comp.sys.mac.programmer:5939
Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!ncar!ames!zodiac!joyce!gds
From: gds@spam.istc.sri.com (Greg Skinner)
Newsgroups: comp.lang.pascal,comp.sys.mac.programmer
Subject: THINK Pascal for Macs problem
Message-ID: <20120@joyce.istc.sri.com>
Date: 1 May 89 15:39:16 GMT
Sender: news@joyce.istc.sri.com
Reply-To: gds@spam.istc.sri.com (Greg Skinner)
Followup-To: poster
Organization: SRI International
Lines: 34

I am having problems finding the right routine to free storage
allocated for a handle I have created, and the THINK Pascal
documentation is not clear on how to do this.  Here is a code
fragment:

program foo;

   type
      vec = array [1..10000] of integer;
      vecptr = ^vec;
      vechandle = ^vecptr;

procedure bar (var A: vechandle; k: integer);

   var
      B, C: vechandle;

   begin
      B := vechandle(NewHandle(k * sizeof(integer)));
      C := vechandle(NewHandle(k * sizeof(integer)));
      [...]
      (* code to free space for B and C goes here *)
   end;

I am getting run-time errors when I try to do a

dispose(vechandle(B));

and I cannot find any other way of freeing the storage.

Please mail your response.

thanks,
--gregbo