WebSVN – tendra.SVN – Diff – /branches/tendra5/src/installers/common/dwarf2/dw2_lines.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
 #include "szs_als.h"
 #include "dw2_codes.h"
 #include "dw2_basic.h"
 #include "dw2_iface.h"
 /* values used in statement program prologue */
 #define n_statprog_ops 9
-static short statprog_op_args [n_statprog_ops] = {
+static short statprog_op_args[n_statprog_ops] = {
 , 1, 1, 1, 1, 0, 0, 0, 1
 };
 #define default_is_stmt 0
-#define opcode_base (n_statprog_ops + 1)
+#define opcode_base	(n_statprog_ops + 1)
 /* VARIABLES */
 static long current_ad_label = -1;
 static long current_ad_count = -1;
 static long prev_file = 1;
 static long prev_line = 1;
 static long prev_col = 0;
 static long prev_is_stmt = default_is_stmt;
-static char * sep = ", ";
+static char *sep = ", ";
-void do_statprog_prologue
+void
-    PROTO_N ( (l_start, l_end) )
-    PROTO_T ( long l_start X long l_end )
+do_statprog_prologue(long l_start, long l_end)
+{
-  dg_filename f_list = all_files;
+	dg_filename f_list = all_files;
-  dg_filename f_trace;
+	dg_filename f_trace;
-  int i;
+	int i;
-  long prologue_end = next_dwarf_label();
+	long prologue_end = next_dwarf_label();
-  enter_section ("debug_line");
+	enter_section("debug_line");
-  outnl_comment ("Statement Program Prologue");
+	outnl_comment("Statement Program Prologue");
-  out_dwf_label (l_start, 1);
+	out_dwf_label(l_start, 1);
+	out32();
-  out32 (); out_dwf_dist_to_label (l_end); d_outnl ();
+	out_dwf_dist_to_label(l_end);
+	d_outnl();
+	out16();
-  out16 (); outn ((long)DWARF_MOD_VERSION); d_outnl ();
+	outn((long)DWARF_MOD_VERSION);
+	d_outnl();
+	out32();
-  out32 (); out_dwf_dist_to_label (prologue_end); d_outnl ();
+	out_dwf_dist_to_label(prologue_end);
+	d_outnl();
+	out8();
-  out8 (); outn ((long)min_instr_size); d_outnl ();
+	outn((long)min_instr_size);
+	d_outnl();
+	out8();
-  out8 (); outn ((long)default_is_stmt); d_outnl ();
+	outn((long)default_is_stmt);
+	d_outnl();
+	out8();
-  out8 (); outn ((long)dw_line_base); d_outnl ();
+	outn((long)dw_line_base);
+	d_outnl();
+	out8();
-  out8 (); outn ((long)dw_line_range); d_outnl ();
+	outn((long)dw_line_range);
+	d_outnl();
+	out8();
-  out8 (); outn ((long)opcode_base); d_outnl ();
+	outn((long)opcode_base);
+	d_outnl();
-  out8 ();
+	out8();
-  for (i=1 ;; i++) {
+	for (i = 1 ;; i++) {
-    outn ((long)statprog_op_args[i-1]);
+		outn((long)statprog_op_args[i-1]);
-    if (i == n_statprog_ops)
+		if (i == n_statprog_ops) {
-      break;
+			break;
+		}
-    outs (sep);
+		outs(sep);
-  }
+	}
-  d_outnl ();
+	d_outnl();
-  f_list = all_files;
+	f_list = all_files;
-  i = 0;
+	i = 0;
+	while (f_list) {
-  while (f_list) {	/* output directories */
+		/* output directories */
-    f_trace = all_files;
+		f_trace = all_files;
-    while (f_trace != f_list) {
+		while (f_trace != f_list) {
-      if (!strcmp (f_list->file_path, f_trace->file_path) &&
+			if (!strcmp(f_list->file_path, f_trace->file_path) &&
-	  !strcmp (f_list->file_host, f_trace->file_host))
+			    !strcmp(f_list->file_host, f_trace->file_host)) {
-	break;
+				break;
+			}
-      f_trace = f_trace->another;
+			f_trace = f_trace->another;
-    }
+		}
-    if (f_trace == f_list) {
+		if (f_trace == f_list) {
-      if (f_list->file_path[0] || f_list->file_host[0]) {
+			if (f_list->file_path[0] || f_list->file_host[0]) {
-	dw_out_path (f_list, 0);
+				dw_out_path(f_list, 0);
-	f_list->index = ++i;
+				f_list->index = ++i;
-      }
-      else
+			} else {
-	f_list->index = 0;
+				f_list->index = 0;
-    }
+			}
-    else
+		} else {
-      f_list->index = f_trace->index;
+			f_list->index = f_trace->index;
+		}
-    f_list = f_list->another;
+		f_list = f_list->another;
-  }
+	}
-  out_string ("");	/* end of directories */
+	/* end of directories */
+	out_string ("");
-  f_list = all_files;
+	f_list = all_files;
-  i = 0;
+	i = 0;
+	while (f_list) {
-  while (f_list) {	/* output file names */
+		/* output file names */
-    if (f_list->file_name[0]) {
+		if (f_list->file_name[0]) {
-      time_t t = (time_t) f_list->file_dat;
+			time_t t = (time_t)f_list->file_dat;
-      out_string (f_list->file_name);
+			out_string(f_list->file_name);
+			out8();
-      out8 (); uleb128 ((unsigned long)f_list->index);	/* directory */
+			uleb128((unsigned long)f_list->index);	/* directory */
-      d_outnl ();
+			d_outnl();
+			out8();
-      out8 (); uleb128 ((unsigned long)(f_list->file_dat));
+			uleb128((unsigned long)(f_list->file_dat));
-      outnl_comment (ctime (&t));
+			outnl_comment(ctime(&t));
+			out8();
-      out8 (); uleb128 ((unsigned long)0);	/* unknown length */
+			uleb128((unsigned long)0);	/* unknown length */
-      d_outnl ();
+			d_outnl();
-      f_list->index = ++i;
+			f_list->index = ++i;
-    }
-    else
+		} else {
-      f_list->index = 0;
+			f_list->index = 0;
+		}
-    f_list = f_list->another;
+		f_list = f_list->another;
-  }
+	}
-  out_string ("");	/* end of file names */
+	/* end of file names */
+	out_string ("");
-  out_dwf_label (prologue_end, 1);
+	out_dwf_label(prologue_end, 1);
-  exit_section ();
+	exit_section();
-  dw2_cie ();
+	dw2_cie();
-  return;
+	return;
+}
-static void ext_opcode
+static void
-    PROTO_N ( (op, arg_length, align_lab) )
-    PROTO_T ( int op X long arg_length X long align_lab )
+ext_opcode(int op, long arg_length, long align_lab)
+{
+	out8();
+	outn((long)0);
+	outs(sep);
+#ifdef NEEDS_DEBUG_ALIGN
+	if (align_lab) {
+		out_dwf_label(align_lab, 0);
+		outs (" - . - 1");		/* OK for arg_length < 127 */
+	} else
+#endif
-  out8 (); outn ((long)0); outs (sep);
+		uleb128((unsigned long)arg_length + 1);
+	outs(sep);
+	outn((long)op);
+	d_outnl();
+	UNUSED(align_lab);
+}
+static void
+update_statprog(void)
+{
+	long lineinc = current_line - prev_line;
+	long ad_inc = 0;
+	long special;
+	if (current_ad_label < 0)
+		return;
+	enter_section("debug_line");
+	if (prev_ad_label < 0) {
+		long align_lab = 0;
 #ifdef NEEDS_DEBUG_ALIGN
-  if (align_lab) {
-    out_dwf_label (align_lab, 0);
+		align_lab = next_dwarf_label();
-    outs (" - . - 1");		/* OK for arg_length < 127 */
-  }
-  else
 #endif
-    uleb128 ((unsigned long)arg_length + 1);
-  outs (sep); outn ((long)op); d_outnl ();
+		ext_opcode(DW_LNE_set_address, (long)PTR_SZ / 8, align_lab);
-  UNUSED (align_lab);
-}
-static void update_statprog
-    PROTO_Z ()
-{
-  long lineinc = current_line - prev_line;
-  long ad_inc = 0;
-  long special;
-  if (current_ad_label < 0)
-    return;
+		out32();
-  enter_section ("debug_line");
-  if (prev_ad_label < 0) {
-    long align_lab = 0;
-#ifdef NEEDS_DEBUG_ALIGN
-    align_lab = next_dwarf_label();
-#endif
-    ext_opcode (DW_LNE_set_address, (long)PTR_SZ/8, align_lab);
-    out32 (); out_dwf_label (current_ad_label, 0);
+		out_dwf_label(current_ad_label, 0);
-    if (current_ad_count) {
+		if (current_ad_count) {
+			outs(" + ");
-      outs (" + "); outn (current_ad_count * min_instr_size);
+			outn(current_ad_count * min_instr_size);
-    }
+		}
-    d_outnl ();
+		d_outnl();
 #ifdef NEEDS_DEBUG_ALIGN
-    out_dwf_label (align_lab, 1);
+		out_dwf_label(align_lab, 1);
 #endif
-  }
-  else
-  if (prev_ad_label != current_ad_label) {
+	} else if (prev_ad_label != current_ad_label) {
+		out8();
-    out8 (); outn ((long)DW_LNS_fixed_advance_pc); d_outnl ();
+		outn((long)DW_LNS_fixed_advance_pc);
+		d_outnl();
+		out16();
-    out16 (); out_dwf_label (current_ad_label, 0); outs (" - ");
+		out_dwf_label(current_ad_label, 0);
+		outs(" - ");
-	out_dwf_label (prev_ad_label, 0);
+		out_dwf_label(prev_ad_label, 0);
-    if (current_ad_count != prev_ad_count) {
+		if (current_ad_count != prev_ad_count) {
+			outs(" + ");
-      outs (" + "); outn ((current_ad_count - prev_ad_count) * min_instr_size);
+			outn((current_ad_count - prev_ad_count) *
+			     min_instr_size);
-    }
+		}
-    d_outnl ();
+		d_outnl();
-  }
-  else
+	} else {
-    ad_inc = current_ad_count - prev_ad_count;
+		ad_inc = current_ad_count - prev_ad_count;
+	}
-  prev_ad_label = current_ad_label;
+	prev_ad_label = current_ad_label;
-  prev_ad_count = current_ad_count;
+	prev_ad_count = current_ad_count;
-  if (current_file != prev_file) {
+	if (current_file != prev_file) {
+		out8();
-    out8 (); outn ((long)DW_LNS_set_file);  outs (sep);
+		outn((long)DW_LNS_set_file);
+		outs(sep);
-      uleb128 ((unsigned long)current_file); d_outnl ();
+		uleb128((unsigned long)current_file);
+		d_outnl();
-    prev_file = current_file;
+		prev_file = current_file;
-  }
+	}
-  if (current_is_stmt != prev_is_stmt) {
+	if (current_is_stmt != prev_is_stmt) {
+		out8();
-    out8 (); outn ((long)DW_LNS_negate_stmt); d_outnl ();
+		outn((long)DW_LNS_negate_stmt);
+		d_outnl();
-    prev_is_stmt = current_is_stmt;
+		prev_is_stmt = current_is_stmt;
-  }
+	}
-  if (current_col != prev_col) {
+	if (current_col != prev_col) {
+		out8();
-    out8 (); outn ((long)DW_LNS_set_column);  outs (sep);
+		outn((long)DW_LNS_set_column);
+		outs(sep);
-      uleb128 ((unsigned long)current_col); d_outnl ();
+		uleb128((unsigned long)current_col);
+		d_outnl();
-    prev_col = current_col;
+		prev_col = current_col;
-  }
+	}
+	if (lineinc < dw_line_base ||
-  if (lineinc < dw_line_base || lineinc >= (dw_line_base + dw_line_range)) {
+	    lineinc >= (dw_line_base + dw_line_range)) {
+		out8();
-    out8 (); outn ((long)DW_LNS_advance_line);  outs (sep);
+		outn((long)DW_LNS_advance_line);
+		outs(sep);
-      sleb128 (lineinc); d_outnl ();
+		sleb128(lineinc);
+		d_outnl();
-    lineinc = 0;
+		lineinc = 0;
-  }
+	}
-  special = (lineinc - dw_line_base) + (dw_line_range * ad_inc) + opcode_base;
+	special = (lineinc - dw_line_base) + (dw_line_range * ad_inc) +
+	    opcode_base;
-  if (special > 255) {
+	if (special > 255) {
+		out8();
-    out8 (); outn ((long)DW_LNS_advance_pc); outs (sep);
+		outn((long)DW_LNS_advance_pc);
+		outs(sep);
-      uleb128 ((unsigned long)ad_inc); d_outnl ();
+		uleb128((unsigned long)ad_inc);
+		d_outnl();
-    special = (lineinc - dw_line_base) + opcode_base;
+		special = (lineinc - dw_line_base) + opcode_base;
-  }
+	}
-  out8 ();
+	out8();
-  if (special == (opcode_base - dw_line_base))
+	if (special == (opcode_base - dw_line_base)) {
-    outn ((long)DW_LNS_copy);
+		outn((long)DW_LNS_copy);
-  else
+	} else {
-    outn (special);
+		outn(special);
+	}
-  outnl_comment_i ("Line", current_line);
+	outnl_comment_i("Line", current_line);
-  prev_line = current_line;
+	prev_line = current_line;
-  exit_section ();
+	exit_section();
-  return;
+	return;
 }
+void
-void dw2_source_mark
-    PROTO_N ( (pos, is_stmt) )
-    PROTO_T ( short_sourcepos pos X int is_stmt )
+dw2_source_mark(short_sourcepos pos, int is_stmt)
+{
-  /* must be within text segment */
+	/* must be within text segment */
-  long newlab = 0;
+	long newlab = 0;
-  if (current_ad_label < 0 || current_ad_label != last_text_label || instr_count < 0)
+	if (current_ad_label < 0 || current_ad_label != last_text_label ||
+	    instr_count < 0) {
-    newlab = set_dw_text_label ();
+		newlab = set_dw_text_label();
+	}
-  if (newlab || instr_count != current_ad_count || pos.file->index != current_file)
+	if (newlab || instr_count != current_ad_count ||
+	    pos.file->index != current_file) {
-    update_statprog ();
+		update_statprog();
+	}
-  if (newlab)
+	if (newlab) {
-    current_ad_label = newlab;
+		current_ad_label = newlab;
+	}
-  current_ad_count = instr_count;
+	current_ad_count = instr_count;
-  current_file = pos.file->index;
+	current_file = pos.file->index;
-  current_line = pos.line;
+	current_line = pos.line;
-  current_col = (long)pos.column;
+	current_col = (long)pos.column;
-  current_is_stmt = (long)is_stmt;
+	current_is_stmt = (long)is_stmt;
-  return;
+	return;
+}
+void
-void dw2_start_basic_block
+dw2_start_basic_block(void)
-    PROTO_Z ()
+{
-  /* must be within text segment */
+	/* must be within text segment */
-  long newlab = 0;
+	long newlab = 0;
-  if (current_ad_label < 0 || current_ad_label != last_text_label || instr_count < 0)
+	if (current_ad_label < 0 || current_ad_label != last_text_label ||
+	    instr_count < 0) {
-    newlab = set_dw_text_label ();
+		newlab = set_dw_text_label();
+	}
-  if (newlab || instr_count)
+	if (newlab || instr_count) {
-    update_statprog ();
+		update_statprog();
+	}
-  if (newlab)
+	if (newlab) {
-    current_ad_label = newlab;
+		current_ad_label = newlab;
+	}
-  current_ad_count = instr_count;
+	current_ad_count = instr_count;
-  enter_section ("debug_line");
+	enter_section("debug_line");
+	out8();
-  out8 (); outn ((long)DW_LNS_set_basic_block); d_outnl ();
+	outn((long)DW_LNS_set_basic_block);
+	d_outnl();
-  exit_section ();
+	exit_section();
-  return;
+	return;
+}
-void close_statprog
+void
-    PROTO_N ( (l_end) )
-    PROTO_T ( long l_end )
+close_statprog(long l_end)
+{
-  if (current_ad_label < 0 || current_ad_label != last_text_label || instr_count < 0)
+	if (current_ad_label < 0 || current_ad_label != last_text_label ||
+	    instr_count < 0) {
-    current_ad_label = set_dw_text_label ();
+		current_ad_label = set_dw_text_label();
+	}
-  current_ad_count = instr_count;
+	current_ad_count = instr_count;
-  update_statprog ();
+	update_statprog();
-  enter_section ("debug_line");
+	enter_section("debug_line");
-  ext_opcode (DW_LNE_end_sequence, (long)0, (long)0);
+	ext_opcode(DW_LNE_end_sequence, (long)0, (long)0);
-  out_dwf_label (l_end, 1);
+	out_dwf_label(l_end, 1);
-  exit_section ();
+	exit_section();
-  return;
+	return;
+}

Subversion Repositories tendra.SVN

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