27 Jun
2005
27 Jun
'05
3:48 a.m.
At 9:24 +0800 27/6/05, Peter N Lewis wrote:
dispose( self ) complains:
/Source/MyAssocStrings.p: In method `AssocStringsObject.Destroy': /Source/MyAssocStrings.p:254: error: argument 1 to `Dispose' must be a pointer
Here is a test program for this case:
{$mac-pascal} program peterN;
type obj = object procedure Destroy; end;
procedure obj.Destroy; begin dispose( self ); end;
var o: obj; begin new(o); o.Destroy; WriteLn( 'OK' ); end.
Enjoy, Peter.