WebSVN – tendra.SVN – Diff – /trunk/src/installers/common/dwarf2/dw2_common.c

+/*
+ * Copyright (c) 2002-2005 The TenDRA Project <http://www.tendra.org/>.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions are met:
+ *
+ * 1. Redistributions of source code must retain the above copyright notice,
+ *    this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright notice,
+ *    this list of conditions and the following disclaimer in the documentation
+ *    and/or other materials provided with the distribution.
+ * 3. Neither the name of The TenDRA Project nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific, prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS
+ * IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
+ * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
+ * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
+ * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+ * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
+ * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
+ * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ *
+ * $Id$
+ */
 /*
     		 Crown Copyright (c) 1997
     This TenDRA(r) Computer Program is subject to Copyright
     owned by the United Kingdom Secretary of State for Defence
 static dg_name_list capnames;
 static int cni = 0;
-static void make_bastype
+static void
-    PROTO_N ( (s, t) )
-    PROTO_T ( char * s X dg_type t )
+make_bastype(char *s, dg_type t)
+{
-  dg_name this_name;
+	dg_name this_name;
-  dg_tag ans = (dgtag_struct *) xmalloc (sizeof(dgtag_struct));
+	dg_tag ans = (dgtag_struct *)xmalloc(sizeof(dgtag_struct));
-  init_dgtag (ans);
+	init_dgtag(ans);
-  ans->outref.k = LAB_STR;
+	ans->outref.k = LAB_STR;
-  ans->outref.u.s = s;
+	ans->outref.u.s = s;
-  this_name = f_dg_tag_name (ans, f_dg_type_name (
+	this_name = f_dg_tag_name(ans,
-	no_dg_idname_option,
+				  f_dg_type_name(no_dg_idname_option,
-	f_dg_null_sourcepos,
+						 f_dg_null_sourcepos,
-	no_dg_accessibility_option,
+						 no_dg_accessibility_option,
-	yes_dg_type_option (t),
+						 yes_dg_type_option(t), f_false,
-	f_false,
-	no_bool_option,
+						 no_bool_option,
-	no_dg_constraint_list_option));
+						 no_dg_constraint_list_option));
-  capnames = add_dg_name_list (capnames, this_name, cni++);
+	capnames = add_dg_name_list(capnames, this_name, cni++);
+}
-static dg_idname m_id
+static dg_idname
-    PROTO_N ( (s) )
-    PROTO_T ( char * s )
+m_id(char *s)
+{
-  dg_idname ans;
+	dg_idname ans;
-  ans.id_key = DG_ID_SRC;
+	ans.id_key = DG_ID_SRC;
-  ans.idd.nam = s;
+	ans.idd.nam = s;
-  return ans;
+	return ans;
+}
-static void make_basic_types
+static void
-    PROTO_Z ()
+make_basic_types(void)
+{
-  make_bastype ("__D_void_star", f_dg_address_type (
+	make_bastype("__D_void_star",
+		     f_dg_address_type(m_id("void *"),
-		m_id ("void *"), f_pointer (f_alignment (scharsh))));
+				       f_pointer(f_alignment(scharsh))));
-  make_bastype ("__D_signed_char", f_dg_char_type (
+	make_bastype("__D_signed_char", f_dg_char_type(m_id("signed char"),
-		m_id ("signed char"), scharsh));
+						       scharsh));
-  make_bastype ("__D_unsigned_char", f_dg_char_type (
+	make_bastype("__D_unsigned_char", f_dg_char_type(m_id("unsigned char"),
-		m_id ("unsigned char"), ucharsh));
+							 ucharsh));
-  make_bastype ("__D_short", f_dg_integer_type (
+	make_bastype("__D_short", f_dg_integer_type(m_id("short"), swordsh));
-		m_id ("short"), swordsh));
-  make_bastype ("__D_unsigned_short", f_dg_integer_type (
+	make_bastype("__D_unsigned_short",
-		m_id ("unsigned short"), uwordsh));
+		     f_dg_integer_type(m_id("unsigned short"), uwordsh));
-  make_bastype ("__D_int", f_dg_integer_type (
+	make_bastype("__D_int", f_dg_integer_type(m_id("int"), slongsh));
-		m_id ("int"), slongsh));
-  make_bastype ("__D_unsigned_int", f_dg_integer_type (
+	make_bastype("__D_unsigned_int", f_dg_integer_type(m_id("unsigned int"),
-		m_id ("unsigned int"), ulongsh));
+							   ulongsh));
-  make_bastype ("__D_long", f_dg_integer_type (
+	make_bastype("__D_long", f_dg_integer_type(m_id("long"), slongsh));
-		m_id ("long"), slongsh));
-  make_bastype ("__D_unsigned_long", f_dg_integer_type (
+	make_bastype("__D_unsigned_long",
-		m_id ("unsigned long"), ulongsh));
+		     f_dg_integer_type(m_id("unsigned long"), ulongsh));
-  make_bastype ("__D_long_long", f_dg_integer_type (
+	make_bastype("__D_long_long", f_dg_integer_type(m_id("long long"),
-		m_id ("long long"), s64sh));
+							s64sh));
-  make_bastype ("__D_unsigned_long_long", f_dg_integer_type (
+	make_bastype("__D_unsigned_long_long",
-		m_id ("unsigned long long"), u64sh));
+		     f_dg_integer_type(m_id("unsigned long long"), u64sh));
-  make_bastype ("__D_float", f_dg_float_type (
+	make_bastype("__D_float", f_dg_float_type(m_id("float"), shrealfv));
-		m_id ("float"), shrealfv));
-  make_bastype ("__D_double", f_dg_float_type (
+	make_bastype("__D_double", f_dg_float_type(m_id("double"), realfv));
-		m_id ("double"), realfv));
-  make_bastype ("__D_long_double", f_dg_float_type (
+	make_bastype("__D_long_double", f_dg_float_type(m_id("long double"),
-		m_id ("long double"), doublefv));
+							doublefv));
-  make_bastype ("__D_complex", f_dg_complex_float_type (
+	make_bastype("__D_complex", f_dg_complex_float_type(m_id("complex"),
-		m_id ("complex"), shcomplexfv));
+							    shcomplexfv));
-  make_bastype ("__D_double_complex", f_dg_complex_float_type (
+	make_bastype("__D_double_complex",
+		     f_dg_complex_float_type(m_id("double complex"),
-		m_id ("double complex"), complexfv));
+					     complexfv));
-  make_bastype ("__D_long_double_complex", f_dg_complex_float_type (
+	make_bastype("__D_long_double_complex",
+		     f_dg_complex_float_type(m_id("long double complex"),
-		m_id ("long double complex"), complexdoublefv));
+					     complexdoublefv));
+}
+void
-void make_dwarf_common
+make_dwarf_common(void)
-    PROTO_Z ()
+{
-  dg_compilation ans;
+	dg_compilation ans;
-  capnames = new_dg_name_list (15);
+	capnames = new_dg_name_list(15);
-  make_basic_types ();
+	make_basic_types();
-  ans = (dg_compilation) xmalloc (sizeof (struct dg_comp_t));
+	ans = (dg_compilation)xmalloc(sizeof(struct dg_comp_t));
-  ans->prim_file = get_filename ((long)0, "", "", "");
+	ans->prim_file = get_filename((long)0, "", "", "");
-  ans->comp_deps = new_string_list (0);
+	ans->comp_deps = new_string_list(0);
-  ans->date = 0;
+	ans->date = 0;
-  ans->language = 1;	/* assume ANSI C */
+	ans->language = 1;	/* assume ANSI C */
-  ans->id_case = 0;	/* case sensitive */
+	ans->id_case = 0;	/* case sensitive */
-  ans->producer = "TenDRA";
+	ans->producer = "TenDRA";
-  ans->comp_dir = get_filename ((long)0, "", "", "");
+	ans->comp_dir = get_filename((long)0, "", "", "");
-  ans->options = new_string_list (0);
+	ans->options = new_string_list(0);
-  ans->dn_list = capnames;
+	ans->dn_list = capnames;
-  ans->macros = new_dg_macro_list (0);
+	ans->macros = new_dg_macro_list(0);
-  ans->another = (dg_compilation)0;
+	ans->another = (dg_compilation)0;
-  all_comp_units = ans;
+	all_comp_units = ans;
+}

Subversion Repositories tendra.SVN

(root)/trunk/src/installers/common/dwarf2/dw2_common.c – Rev 2 → 7