[lazarus] procedure TObject.Free

[Al Boldi]

In the fpc-rtl there is something like this:

procedure TObject.Free;
begin
  if self<>nil then self.destroy;
end;

Does this make sense?  i.e. How is it possible for self to be nil?

Thanks!

--
Al
        

_________________________________________________________________
     To unsubscribe: mail [EMAIL PROTECTED] with
                "unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives