X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fexternal%2Fread.c;h=5e601ceb40114e6cc981bac5d1d40b6cc09a9132;hb=40bcf0e300a51c02c1cac9d2d26a45f9cd9585f5;hp=f06873c96349f096b6a6fa0fcb3735eb86374ac1;hpb=863d31d7a5c8210432fef88b30fc3e8353131538;p=libfirm

diff --git a/ir/external/read.c b/ir/external/read.c
index f06873c96..5e601ceb4 100644
--- a/ir/external/read.c
+++ b/ir/external/read.c
@@ -1,33 +1,35 @@
-/* -*- c -*- */
-
-
 /*
- * Project:     libFIRM
- * File name:   ir/external/read.c
- * Purpose:     Read descriptions of external effects
- * Author:      Florian
- * Modified by: Boris Boesler
- * Created:     11.10.2004
- * CVS-ID:      $Id$
- * Copyright:   (c) 1999-2004 Universität Karlsruhe
- * Licence:     This file is protected by GPL -  GNU GENERAL PUBLIC LICENSE.
+ * Copyright (C) 1995-2008 University of Karlsruhe.  All right reserved.
+ *
+ * This file is part of libFirm.
+ *
+ * This file may be distributed and/or modified under the terms of the
+ * GNU General Public License version 2 as published by the Free Software
+ * Foundation and appearing in the file LICENSE.GPL included in the
+ * packaging of this file.
+ *
+ * Licensees holding valid libFirm Professional Edition licenses may use
+ * this file in accordance with the libFirm Commercial License.
+ * Agreement provided with the Software.
+ *
+ * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
+ * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE.
  */
 
+/**
+ * @file
+ * @brief     Read descriptions of external effects
+ * @author    Florian, Boris Boesler
+ * @date      11.10.2004
+ * @version   $Id$
+ */
 #ifdef HAVE_CONFIG_H
 # include "config.h"
 #endif
 
-/* get prototype for alloca somehow */
-#ifdef HAVE_ALLOCA_H
-# include <alloca.h>
-#endif
-#ifdef HAVE_STDLIB_H
-# include <stdlib.h>
-#endif
-#ifdef HAVE_STRING_H
-# include <string.h>
-#endif
-
+#include <stdlib.h>
+#include <string.h>
 #include <assert.h>
 
 #include <libxml/xmlmemory.h>
@@ -43,7 +45,7 @@
 #include "irmode.h"
 #include "irdump.h"
 #include "irvrfy.h"
-#include "type.h"
+#include "typerep.h"
 #include "tv.h"
 #include "xmalloc.h"
 
@@ -294,6 +296,7 @@ parseArg (xmlDocPtr doc, xmlNodePtr argelm)
   int num;
   char *num_str;
   eff_t *arg;
+  (void) doc;
 
   CHECK_NAME (argelm, arg);
   VERBOSE_PRINT ((stdout, "arg node \t0x%08x\n", (int) argelm));
@@ -320,6 +323,7 @@ parseValref (xmlDocPtr doc, xmlNodePtr valelm)
 {
   const char *ref_id;
   eff_t *valref;
+  (void) doc;
 
   CHECK_NAME (valelm, valref);
   VERBOSE_PRINT ((stdout, "valref node \t0x%08x\n", (int) valelm));
@@ -441,6 +445,7 @@ parseAlloc (xmlDocPtr doc, xmlNodePtr allocelm)
   ident *type_id;
   eff_t *alloc = NEW (eff_t); /* ...! */
   alloc->kind = eff_alloc;
+  (void) doc;
 
   CHECK_NAME (allocelm, alloc);
   VERBOSE_PRINT ((stdout, "alloc node \t0x%08x\n", (int) allocelm));
@@ -561,6 +566,7 @@ parseUnknown (xmlDocPtr doc, xmlNodePtr unknownelm)
   ident *id;
   eff_t *unknown = NEW (eff_t);
   unknown->kind = eff_unknown;
+  (void) doc;
 
   CHECK_NAME (unknownelm, unknown);
   VERBOSE_PRINT ((stdout, "unknown node \t0x%08x\n", (int) unknownelm));
@@ -631,6 +637,7 @@ parseType (xmlDocPtr doc, xmlNodePtr typeelm)
   const char *tp_id = getNodeId (typeelm);
   VERBOSE_PRINT ((stdout, "type node \t0x%08x (%s)\n", (int) typeelm, tp_id));
   VERBOSE_PRINT ((stdout, "type = \"%s\"\n", getNodeTypeStr (typeelm)));
+  (void) doc;
 
   type = (type_t*) xmalloc (sizeof (type_t));
   type -> type_ident = new_id_from_str(getNodeTypeStr (typeelm));
@@ -645,6 +652,7 @@ static void
 parseEntity (xmlDocPtr doc, xmlNodePtr entelm)
 {
   entity_t *ent = NEW (entity_t);
+  (void) doc;
 
   /* parse it */
   const char *ent_id = getNodeId (entelm);
@@ -809,7 +817,6 @@ void freeArg (eff_t *arg)
 {
   VERBOSE_PRINT ((stdout, "free arg node \t0x%08x\n", (int) arg));
   free(arg);
-  return;
 }
 
 static
@@ -817,7 +824,6 @@ void freeValref (eff_t *valref)
 {
   VERBOSE_PRINT ((stdout, "free valref node \t0x%08x\n", (int) valref));
   free(valref);
-  return;
 }
 
 static
@@ -825,7 +831,6 @@ void freeSelect (eff_t *sel)
 {
   VERBOSE_PRINT ((stdout, "free select node \t0x%08x\n", (int) sel));
   free(sel);
-  return;
 }
 
 static
@@ -833,7 +838,6 @@ void freeLoad (eff_t *load)
 {
   VERBOSE_PRINT ((stdout, "free load node \t0x%08x\n", (int) load));
   free (load);
-  return;
 }
 
 static
@@ -841,7 +845,6 @@ void freeStore (eff_t *store)
 {
   VERBOSE_PRINT ((stdout, "free store node \t0x%08x\n", (int) store));
   free (store);
-  return;
 }
 
 static
@@ -849,7 +852,6 @@ void freeAlloc (eff_t *alloc)
 {
   VERBOSE_PRINT ((stdout, "free alloc node \t0x%08x\n", (int) alloc));
   free(alloc);
-  return;
 }
 
 static
@@ -858,7 +860,6 @@ void freeCall (eff_t *call)
   VERBOSE_PRINT ((stdout, "free call node \t0x%08x\n", (int) call));
   free(call -> effect.call.args);
   free(call);
-  return;
 }
 
 static
@@ -867,7 +868,6 @@ void freeJoin (eff_t *join)
   VERBOSE_PRINT ((stdout, "free join node \t0x%08x\n", (int) join));
   free(join -> effect.join.ins);
   free(join);
-  return;
 }
 
 static
@@ -875,7 +875,6 @@ void freeUnknown (eff_t *unknown)
 {
   VERBOSE_PRINT ((stdout, "free unknown node \t0x%08x\n", (int) unknown));
   free(unknown);
-  return;
 }
 
 static
@@ -883,7 +882,6 @@ void freeReturn (eff_t *ret)
 {
   VERBOSE_PRINT ((stdout, "free ret node \t0x%08x\n", (int) ret));
   free(ret);
-  return;
 }
 
 static
@@ -891,7 +889,6 @@ void freeRaise (eff_t *raise)
 {
   VERBOSE_PRINT ((stdout, "free raise node \t0x%08x\n", (int) raise));
   free (raise);
-  return;
 }
 
 
@@ -1085,6 +1082,7 @@ static void create_abstract_load(ir_graph *irg, proc_t *proc, eff_t *eff)
   ir_entity *ent;
   ir_mode *mode;
   eff_t *addr;
+  (void) irg;
 
   VERBOSE_PRINT((stdout, "create load in %s\n",
          get_id_str(proc -> proc_ident)));
@@ -1126,6 +1124,7 @@ static void create_abstract_store(ir_graph *irg, proc_t *proc, eff_t *eff)
   ir_node *sel, *store;
   ir_entity *ent;
   eff_t *addr, *val;
+  (void) irg;
 
   VERBOSE_PRINT((stdout, "create store in %s\n",
          get_id_str(proc -> proc_ident)));
@@ -1171,6 +1170,7 @@ static void create_abstract_alloc(ir_graph *irg, proc_t *proc, eff_t *eff)
   ir_node *alloc;
   type_t *xtype;
   symconst_symbol sym;
+  (void) irg;
 
   VERBOSE_PRINT((stdout, "create alloc in %s\n",
          get_id_str(proc -> proc_ident)));
@@ -1180,7 +1180,7 @@ static void create_abstract_alloc(ir_graph *irg, proc_t *proc, eff_t *eff)
   ftype = xtype -> f_tp;
 
   sym.type_p = ftype;
-  alloc = new_Alloc(get_store(), new_SymConst(sym, symconst_type_size), ftype,
+  alloc = new_Alloc(get_store(), new_SymConst(mode_Is, sym, symconst_type_size), ftype,
             heap_alloc);
   set_store(new_Proj(alloc, mode_M, 0));
   eff -> firmnode = new_Proj(alloc, mode_P, 2);
@@ -1192,6 +1192,7 @@ static void create_abstract_alloc(ir_graph *irg, proc_t *proc, eff_t *eff)
 static void create_abstract_unknown(ir_graph *irg, proc_t *proc, eff_t *eff)
 {
   ir_node *unknown;
+  (void) irg;
 
   VERBOSE_PRINT((stdout, "create unknown in %s\n",
          get_id_str(proc -> proc_ident)));
@@ -1212,6 +1213,7 @@ static void create_abstract_call(ir_graph *irg, proc_t *proc, eff_t *eff)
   int i, num;
   ir_type *mtype;
   int mik; /* is method somehow known? */
+  (void) irg;
 
   VERBOSE_PRINT((stdout, "create call in %s\n",
          get_id_str(proc -> proc_ident)));
@@ -1291,6 +1293,7 @@ static void create_abstract_join (ir_graph *irg, proc_t *proc, eff_t *eff)
   ir_mode *join_md = mode_ANY;
   int n_ins = -1;
   int i;
+  (void) irg;
 
   VERBOSE_PRINT((stdout, "create join in %s\n",
          get_id_str(proc -> proc_ident)));
@@ -1406,6 +1409,7 @@ static void create_abstract_firm(module_t *module, proc_t *proc, ir_entity *fent
   eff_t *eff;
   ir_graph *irg;
   int i, num;
+  (void) module;
 
   /* test ir_entity */
   assert(visibility_external_allocated == get_entity_visibility(fent)