WebSVN – tendra.SVN – Diff – /branches/tendra5/src/installers/common/dwarf2/dw2_iface.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
 int dwarf2 = 0;
 long dw_info_start;
 long dw_text_start;
 static long statprog_start;	/* compilation unit level label */
 static long statprog_end;
 static long text_end;
-void dw_out_path
+void
-    PROTO_N ( (f, w) )
-    PROTO_T ( dg_filename f X int w )
+dw_out_path(dg_filename f, int w)
 {
-  char * com;
+	char *com;
-  if (!w && f->file_path[0] && f->file_path[0] != '/')
+	if (!w && f->file_path[0] && f->file_path[0]!= '/') {
-    dw_at_string (f->file_path);
+		dw_at_string(f->file_path);
-  else {
+	} else {
-    size_t n = strlen (f->file_path) + strlen (f->file_host) + 2;
+		size_t n = strlen(f->file_path) + strlen(f->file_host) + 2;
-    if (w)
+		if (w) {
-      n += (strlen (f->file_name) + 1);
+			n += (strlen(f->file_name) + 1);
+		}
-    com = (char *)xmalloc (n);
+		com = (char *)xmalloc(n);
-    IGNORE strcat (strcat (strcpy (com, f->file_host), ":"), f->file_path);
+		IGNORE strcat(strcat(strcpy(com, f->file_host), ":"),
+			      f->file_path);
-    if (w) {
+		if (w) {
-      if (f->file_path[0] != '/')
+			if (f->file_path[0]!= '/') {
-	IGNORE strcpy (com, f->file_path);
+				IGNORE strcpy(com, f->file_path);
+			}
-      IGNORE strcat (strcat (com, "/"), f->file_name);
+			IGNORE strcat(strcat(com, "/"), f->file_name);
-    }
+		}
-    dw_at_string (com);
+		dw_at_string(com);
-    xfree ((void *)com);
+		xfree((void *)com);
-  }
+	}
-  return;
+	return;
 }
-void init_dwarf2
-    PROTO_Z ()
-	/* Prepare to read diag unit information */
+/* Prepare to read diag unit information */
+void
+init_dwarf2(void)
 {
-  init_dw_entries ();
+	init_dw_entries();
-  return;
+	return;
 }
-void dwarf2_prelude
-    PROTO_Z ()
-	/* called from text segment */
+/* called from text segment */
+void
+dwarf2_prelude(void)
 {
-  static int dw_started = 0;
+	static int dw_started = 0;
-  if (dw_started) {
+	if (dw_started) {
-    failer ("DWARF output not compatible with separate units");
+		failer("DWARF output not compatible with separate units");
-  }
+	}
-  dw_started = 1;
+	dw_started = 1;
-  dw_info_start = next_dwarf_label ();
+	dw_info_start = next_dwarf_label();
-  do_compunit_header ();
+	do_compunit_header();
-  statprog_start = next_dwarf_label ();
+	statprog_start = next_dwarf_label();
-  statprog_end = next_dwarf_label ();
+	statprog_end = next_dwarf_label();
-  do_statprog_prologue (statprog_start, statprog_end);
+	do_statprog_prologue(statprog_start, statprog_end);
+	/* we may need to separate these */
-  dw_text_start = set_dw_text_label ();	/* we may need to separate these */
+	dw_text_start = set_dw_text_label();
-  text_end = next_dwarf_label ();	/* for multiple compilation units */
+	/* for multiple compilation units */
+	text_end = next_dwarf_label();
-  init_dw_locdata ();
+	init_dw_locdata();
-  return;
+	return;
 }
-static int item_present
+static int
-    PROTO_N ( (item) )
-    PROTO_T ( dg_name item )
+item_present(dg_name item)
 {
-  UNUSED (item);
+	UNUSED(item);
-  return 1;
+	return 1;
 #if 0
-  exp x;
+	exp x;
-  if (item->key == DGN_OBJECT)
+	if (item->key == DGN_OBJECT)
-    x = item->data.n_obj.obtain_val;
+		x = item->data.n_obj.obtain_val;
-  else
+	else
-  if (item->key == DGN_PROC)
+		if (item->key == DGN_PROC)
-    x = item->data.n_proc.obtain_val;
+			x = item->data.n_proc.obtain_val;
-  else
+		else
-    return 1;
+			return 1;
-  while (x && (name(x) == hold_tag || name(x) == name_tag ||
+	while (x && (name(x) == hold_tag || name(x) == name_tag ||
-	name(x) == cont_tag || name(x) == reff_tag))
+		     name(x) == cont_tag || name(x) == reff_tag))
-    x = son(x);
+		x = son(x);
-  if (x && name(x) == ident_tag)
+	if (x && name(x) == ident_tag)
-    x = son(x);
+		x = son(x);
-  if (x) return 1;
+	if (x) return 1;
-  return 0;
+	return 0;
 #endif
+}
-static char * sep = ", ";
+static char *sep = ", ";
+static void
+out_macros(dg_macro_list macs)
+{
+	int i;
+	for (i = 0; i < macs.len; i++) {
+		dg_macro m;
+		m = macs.array[0];
+		switch (m.key) {
+		case DGM_FN: {
+			int j;
+			out8();
+			outn((long)DW_MACINFO_define);
+			outs(sep);
+			uleb128((unsigned long)m.pos.line);
+			d_outnl();
+			start_string(m.u.d.nam);
+			outs("(");
+			for (j = 0; j < m.u.d.pms.len; j++) {
+				if (j) {
+					outs("'");
+				}
+				outs(m.u.d.pms.array[j]);
+			}
+			outs(") ");
+			outs(m.u.d.defn);
+			end_string();
+			break;
+		}
+		case DGM_OBJ:
+			out8();
+			outn((long)DW_MACINFO_define);
+			outs(sep);
+			uleb128((unsigned long)m.pos.line);
+			d_outnl();
+			start_string(m.u.d.nam);
+			outs(" ");
+			outs(m.u.d.defn);
+			end_string();
+			break;
+		case DGM_UNDEF:
+			out8();
+			outn((long)DW_MACINFO_undef);
+			outs(sep);
+			uleb128((unsigned long)m.pos.line);
+			d_outnl();
+			out_string(m.u.d.nam);
+			break;
+		case DGM_INC:
+			out8();
+			outn((long)DW_MACINFO_start_file);
+			outs(sep);
+			uleb128((unsigned long)m.pos.line);
+			outs(sep);
+			uleb128((unsigned long)(m.u.i.file->index));
+			d_outnl();
+			out_macros(m.u.i.macs);
+			dw_at_data(1, (long)DW_MACINFO_end_file);
+			break;
+		}
+	}
+	return;
+}
-static void out_macros
+/* called from text segment */
-    PROTO_N ( (macs) )
+void
-    PROTO_T ( dg_macro_list macs )
+dwarf2_postlude(void)
+{
-  int i;
+	int inside = 0;
+	long maclab = 0;
+	dg_compilation this_comp;
+	complete_dw_locdata();
+	this_comp = all_comp_units;
+	while (this_comp) {
+		dg_name item = this_comp->dn_list;
+		abbrev_entry comp_dwe = dwe_comp_unit;
-  for (i = 0; i < macs.len; i++) {
+		while (item && !item_present(item)) {
+			item = item->next;
+		}
+		if (item) {
+			if (inside) {
+				/* => in debug_info section */
+				dw_sibling_end();
+				exit_section();
+			}
-    dg_macro m;
+			inside = 1;
+			if (this_comp->macros.len) {
+				/* comp unit has macros */
+				comp_dwe = dwe_cmac_unit;
-    m = macs.array[0];
+				maclab = next_dwarf_label();
+				enter_section("debug_macinfo");
+				out_dwf_label(maclab, 1);
+				out_macros(this_comp->macros);
+				dw_at_data(1, (long)0);
-    switch (m.key) {
+				exit_section();
+			}
+			enter_section("debug_info");
+			IGNORE dw_entry(comp_dwe, (long)0);
+			dw_at_address(dw_text_start);
-      case DGM_FN: {
+			dw_at_address(text_end);
+			if (this_comp->prim_file->file_path[0] &&
+			    strcmp(this_comp->prim_file->file_path,
+				   this_comp->comp_dir->file_path)) {
+				dw_out_path(this_comp->prim_file, 1);
-	int j;
+			} else {
-	out8(); outn ((long)DW_MACINFO_define); outs (sep);
+				dw_at_string(this_comp->prim_file->file_name);
+			}
-	uleb128 ((unsigned long)m.pos.line); d_outnl ();
+			dw_at_udata((unsigned long)(this_comp->language));
+			dw_at_address(statprog_start);
+			if (this_comp->macros.len) {
-	start_string (m.u.d.nam);
+				dw_at_address(maclab);
+			}
+			dw_out_path(this_comp->comp_dir, 0);
+			out_producer(this_comp->producer);
+			dw_at_data(1, (long)(this_comp->id_case));
-	outs ("(");
+			while (item) {
-	for (j = 0; j < m.u.d.pms.len; j++) {
+				if (item_present(item)) {
+					dw2_out_name(item, GLOBAL_NAME);
+				}
-	  if (j) outs ("'");
+				item = item->next;
+			}
+		}
-	  outs (m.u.d.pms.array[j]);
+		this_comp = this_comp->another;
+	}
-	outs (") "); outs (m.u.d.defn);
-	end_string ();
+	if (inside) {
-	break;
-      }
-      case DGM_OBJ: {
-	out8(); outn ((long)DW_MACINFO_define); outs (sep);
-	uleb128 ((unsigned long)m.pos.line); d_outnl ();
-	start_string (m.u.d.nam);
-	outs (" "); outs (m.u.d.defn);
-	end_string ();
-	break;
-      }
-      case DGM_UNDEF: {
-	out8(); outn ((long)DW_MACINFO_undef); outs (sep);
-	uleb128 ((unsigned long)m.pos.line); d_outnl ();
-	out_string (m.u.d.nam);
-	break;
-      }
-      case DGM_INC: {
-	out8(); outn ((long)DW_MACINFO_start_file); outs (sep);
-	uleb128 ((unsigned long)m.pos.line); outs (sep);
-	uleb128 ((unsigned long)(m.u.i.file->index)); d_outnl ();
-	out_macros (m.u.i.macs);
-	dw_at_data (1, (long)DW_MACINFO_end_file);
-	break;
-      }
-    }
-  }
-  return;
-}
-void dwarf2_postlude
-    PROTO_Z ()
-	/* called from text segment */
+		/* back to text section */
-{
-  int inside = 0;
-  long maclab = 0;
-  dg_compilation this_comp;
-  complete_dw_locdata ();
-  this_comp = all_comp_units;
-  while (this_comp) {
-    dg_name item = this_comp->dn_list;
-    abbrev_entry comp_dwe = dwe_comp_unit;
-    while (item && !item_present(item))
-      item = item -> next;
-    if (item) {
-      if (inside) {		/* => in debug_info section */
-	dw_sibling_end ();
-	exit_section ();
-      }
-      inside = 1;
-      if (this_comp->macros.len) {	/* comp unit has macros */
-	comp_dwe = dwe_cmac_unit;
-	maclab = next_dwarf_label ();
-	enter_section ("debug_macinfo");
-	out_dwf_label (maclab, 1);
-	out_macros (this_comp->macros);
-	dw_at_data (1, (long)0);
-	exit_section ();
+		exit_section();
-      }
-      enter_section ("debug_info");
-      IGNORE dw_entry (comp_dwe, (long)0);
-      dw_at_address (dw_text_start);
-      dw_at_address (text_end);
-      if (this_comp->prim_file->file_path[0] &&
-		strcmp (this_comp->prim_file->file_path,
-			this_comp->comp_dir->file_path) )
-	dw_out_path (this_comp->prim_file, 1);
-      else
-        dw_at_string (this_comp->prim_file->file_name);
-      dw_at_udata ((unsigned long)(this_comp->language));
-      dw_at_address (statprog_start);
-      if (this_comp->macros.len)
-	dw_at_address (maclab);
-      dw_out_path (this_comp->comp_dir, 0);
-      out_producer (this_comp->producer);
-      dw_at_data (1, (long)(this_comp->id_case));
-      while (item) {
-	if (item_present(item))
-	  dw2_out_name (item, GLOBAL_NAME);
-	item = item -> next;
-      }
-    }
-    this_comp = this_comp->another;
-  }
+	}
-  if (inside)
-    exit_section ();	/* back to text section */
-  return;
+	return;
+}
-void end_dwarf2
-    PROTO_Z ()
-	/* Output type entries and close info */
+/* Output type entries and close info */
+void
+end_dwarf2(void)
+{
-  enter_section ("debug_info");
+	enter_section("debug_info");
-  dw2_out_all_types ();
+	dw2_out_all_types();
-  complete_defaults ();
+	complete_defaults();
-  dw_sibling_end ();
+	dw_sibling_end();
-  exit_section ();
+	exit_section();
-  out_dwf_label (text_end, 1);
+	out_dwf_label(text_end, 1);
-  close_statprog (statprog_end);
+	close_statprog(statprog_end);
-  enter_section ("debug_aranges");
+	enter_section("debug_aranges");
+	out32();
-  out32 (); out_dwf_label (dw_text_start, 0); d_outnl ();
+	out_dwf_label(dw_text_start, 0);
+	d_outnl();
+	out32();
-  out32 (); out_dwf_labdiff (dw_text_start, text_end); d_outnl ();
+	out_dwf_labdiff(dw_text_start, text_end);
+	d_outnl();
-  exit_section ();
+	exit_section();
-  dw2_data_aranges ();
+	dw2_data_aranges();
-  close_compunit_info ();
+	close_compunit_info();
-  return;
+	return;
+}

Subversion Repositories tendra.SVN

(root)/branches/tendra5/src/installers/common/dwarf2/dw2_iface.c – Rev 5 → 6