unit FSABSTRACT;

interface

uses Device;

type
  vfs_abstract = object
   private
    prev : ^vfs_abstract;
    next : ^vfs_abstract;
    dev  : PDevice;
   public
    constructor init;
    destructor done; virtual;
  end; {vfs_abstract}

implementation

constructor vfs_abstract.init;
begin
  next := NIL;
  prev := NIL;
  dev  := NIL;
end;

destructor vfs_abstract.done;
begin
end;

end.