rem: KPrintF( "DevExpunge( %08lx )\n", device );
context: DevExpunge( struct AHIBase* device ){  BPTR seglist = 0;  KPrintF( "DevExpunge( %08lx )\n", device );  if( device->ahib_Library.lib_OpenCnt == 0)  {    seglist = device->ahib_SegList;    Remove( (struct Node *) device );//    CloseLibs();    FreeMem( (APTR) ( ( (char*) device ) - device->ahib_Library.lib_NegSize ),             device->ahib_Library.lib_NegSize + device->ahib_Library.lib_PosSize );  }  else  {    device->ahib_Library.lib_Flags |= LIBF_DELEXP;  }  KPrintF( "DevExpunge returns %08lx\n", seglist );  return seglist;}