home *** CD-ROM | disk | FTP | other *** search
- head 1.4;
- access;
- symbols
- version39-41:1.3;
- locks;
- comment @ * @;
-
-
- 1.4
- date 92.08.09.20.48.13; author amiga; state Exp;
- branches;
- next 1.3;
-
- 1.3
- date 92.05.22.01.43.58; author mwild; state Exp;
- branches;
- next 1.2;
-
- 1.2
- date 92.05.17.21.21.56; author mwild; state Exp;
- branches;
- next 1.1;
-
- 1.1
- date 92.05.14.19.55.40; author mwild; state Exp;
- branches;
- next ;
-
-
- desc
- @expunge function of library
- @
-
-
- 1.4
- log
- @change to new way of remembering open libraries
- get prepared to deal with ttys
- @
- text
- @/*
- * This file is part of ixemul.library for the Amiga.
- * Copyright (C) 1991, 1992 Markus M. Wild
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Library General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Library General Public License for more details.
- *
- * You should have received a copy of the GNU Library General Public
- * License along with this library; if not, write to the Free
- * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- *
- * $Id: ix_expunge.c,v 1.3 1992/05/22 01:43:58 mwild Exp $
- *
- * $Log: ix_expunge.c,v $
- * Revision 1.3 1992/05/22 01:43:58 mwild
- * when debugging, check whether buddy allocator clean
- *
- * Revision 1.2 1992/05/17 21:21:56 mwild
- * changed async mp to be global
- *
- * Revision 1.1 1992/05/14 19:55:40 mwild
- * Initial revision
- *
- */
-
- #define KERNEL
- #include "ixemul.h"
-
- #undef DEBUG
-
- #ifdef DEBUG
- #define DP(a) kprintf a
- #else
- #define DP(a)
- #endif
-
- extern struct MsgPort *ix_async_mp;
- extern struct MsgPort *ix_tty_mp;
-
- void
- ix_expunge (struct ixemul_base *ixbase)
- {
- if (ix_async_mp) DeleteInterruptPort (ix_async_mp);
- if (ix_tty_mp) DeleteInterruptPort (ix_tty_mp);
-
- #ifdef DEBUG
- check_empty (1);
- #endif
-
- close_libraries (ixbase->ix_libs);
-
- DP(("ix_expunge: freeing file table\n"));
- FreeMem (ixbase->ix_file_tab, NOFILE * sizeof (struct file));
- DP(("ix_expunge: done\n"));
- }
- @
-
-
- 1.3
- log
- @when debugging, check whether buddy allocator clean
- @
- text
- @d19 1
- a19 1
- * $Id: ix_expunge.c,v 1.2 1992/05/17 21:21:56 mwild Exp $
- d22 3
- a43 6
- #define BASE_EXT_DECL
- #define BASE_PAR_DECL struct ixemul_base *ixbase,
- #define BASE_PAR_DECL0 struct ixemul_base *ixbase
- #define BASE_NAME ixbase->ix_intui_base
- #include <inline/intuition.h>
-
- d45 1
- d50 2
- a51 17
- #if 0
- /* no longer remembered */
-
- /* free kmalloc() area */
- if (ixbase->ix_md.md_key)
- {
- DP(("ix_expunge: freeing kmalloc-memory\n"));
- #ifdef DEBUG
- check_kalloc();
- dump_remember (& ixbase->ix_md);
- #endif
- FreeRemember (ixbase, & ixbase->ix_md.md_key, 1);
- DP(("ix_expunge: freed\n"));
- }
- #endif
-
- DeleteInterruptPort (ix_async_mp);
- d57 1
- a57 6
- CloseLibrary (ixbase->ix_mdt_base);
- CloseLibrary (ixbase->ix_md_base);
- CloseLibrary (ixbase->ix_mst_base);
- CloseLibrary (ixbase->ix_ms_base);
-
- CloseLibrary (ixbase->ix_arp_base);
- @
-
-
- 1.2
- log
- @changed async mp to be global
- @
- text
- @d19 1
- a19 1
- * $Id: ix_expunge.c,v 1.1 1992/05/14 19:55:40 mwild Exp $
- d22 3
- d69 4
- @
-
-
- 1.1
- log
- @Initial revision
- @
- text
- @d19 1
- a19 1
- * $Id$
- d21 4
- a24 1
- * $Log$
- d44 2
- d64 2
- @
-