nsz Git - libfirm/blob - ir/ir/irhooks.c

   1 /*
   2  * Copyright (C) 1995-2008 University of Karlsruhe.  All right reserved.
   3  *
   4  * This file is part of libFirm.
   5  *
   6  * This file may be distributed and/or modified under the terms of the
   7  * GNU General Public License version 2 as published by the Free Software
   8  * Foundation and appearing in the file LICENSE.GPL included in the
   9  * packaging of this file.
  10  *
  11  * Licensees holding valid libFirm Professional Edition licenses may use
  12  * this file in accordance with the libFirm Commercial License.
  13  * Agreement provided with the Software.
  14  *
  15  * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
  16  * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  17  * PURPOSE.
  18  */
  19
  20 /**
  21  * @file
  22  * @brief    Generic hooks for various libFirm functions.
  23  * @author   Michael Beck
  24  * @version  $Id$
  25  */
  26 #include "config.h"
  27
  28 #include <assert.h>
  29
  30 #include "irhooks.h"
  31
  32 /* the hooks */
  33 hook_entry_t *hooks[hook_last];
  34
  35 /* register a hook */
  36 void register_hook(hook_type_t hook, hook_entry_t *entry)
  37 {
  38   /* check if a hook function is specified. It's a union, so no matter which one */
  39   if (! entry->hook._hook_turn_into_id)
  40     return;
  41
  42   /* hook should not be registered yet */
  43   assert(entry->next == NULL && hooks[hook] != entry);
  44
  45   entry->next = hooks[hook];
  46   hooks[hook] = entry;
  47 }
  48
  49 /* unregister a hook */
  50 void unregister_hook(hook_type_t hook, hook_entry_t *entry)
  51 {
  52   hook_entry_t *p;
  53
  54   if (hooks[hook] == entry) {
  55     hooks[hook] = entry->next;
  56     entry->next = NULL;
  57     return;
  58   }
  59
  60   for (p = hooks[hook]; p && p->next != entry; p = p->next) {
  61   }
  62
  63   if (p) {
  64     p->next     = entry->next;
  65     entry->next = NULL;
  66   }
  67 }