WebSVN – tendra.SVN – Diff – /trunk/src/installers/80x86/solaris/dw2_config.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
 $Date: 1998/03/17 16:54:15 $
 $Revision: 1.4 $
 $Log: dw2_config.c,v $
  * Revision 1.4  1998/03/17  16:54:15  release
  * Couple of minor fixes.
  *
  * Revision 1.3  1998/03/11  11:03:13  pwe
  * DWARF optimisation info
+ *
  * Revision 1.2  1998/01/21  10:30:02  pwe
  * labdiff change
 #include "basicread.h"
 #include "target_v.h"
 long dwarf_lab_num = 0;
-void out_string
-    PROTO_N ( (s) )
-    PROTO_T ( char * s )
-{
-  outs (".string \"");
-  outs (s);
-  outs ("\"");
-  d_outnl ();
-  return;
-}
-void start_string
-    PROTO_N ( (s) )
-    PROTO_T ( char * s )
-{
-  outs (".string \"");
-  outs (s);
-  return;
-}
-void end_string
-    PROTO_Z ()
-{
-  outs ("\"");
-  d_outnl ();
-  return;
-}
-void enter_section
-    PROTO_N ( (s) )
-    PROTO_T ( char * s )
-{
-  outs (".section .");
-  outs (s);
-  d_outnl ();
-  return;
-}
-void exit_section
-    PROTO_Z ()
-{
-  outs (".previous");
-  d_outnl ();
-  return;
-}
+void
-void outnl_comment
-    PROTO_N ( (s) )
-    PROTO_T ( char * s )
+out_string(char *s)
+{
-  outs ("\t/");
+  outs(".string \"");
-  outs (s);
+  outs(s);
+  outs("\"");
-  d_outnl ();
+  d_outnl();
   return;
 }
+void
-void outnl_comment_i
+start_string(char *s)
+{
-    PROTO_N ( (s, i) )
+  outs(".string \"");
+  outs(s);
+  return;
+}
+void
-    PROTO_T ( char * s X long i )
+end_string(void)
 {
-  outs ("\t/");
+  outs("\"");
+  d_outnl();
+  return;
+}
+void
+enter_section(char *s)
+{
+  outs(".section .");
-  outs (s);
+  outs(s);
+  d_outnl();
+  return;
+}
+void
+exit_section(void)
+{
+  outs(".previous");
+  d_outnl();
+  return;
+}
+void
+outnl_comment(char *s)
+{
-  outs (" ");
+  outs("\t/");
-  outn (i);
+  outs(s);
-  d_outnl ();
+  d_outnl();
   return;
 }
-void out_dwf_label
+void
-    PROTO_N ( (l, set) )
+outnl_comment_i(char *s, long i)
-    PROTO_T ( long l X int set )
+{
-  if (!l)
-    failer ("unknown label");
-  outs (".Ldw");
+  outs("\t/");
-  outn (l);
+  outs(s);
-  if (set) {
+  outs(" ");
-    outs (":");
+  outn(i);
-    d_outnl ();
+  d_outnl();
-  }
   return;
+}
-void out_code_label
+void
-    PROTO_N ( (l) )
-    PROTO_T ( long l )
+out_dwf_label(long l, int set)
+{
+  if (!l) {
+    failer("unknown label");
+  }
-  outs (local_prefix);
+  outs(".Ldw");
-  outn (l);
+  outn(l);
+  if (set) {
+    outs(":");
+    d_outnl();
+  }
   return;
 }
+void
-void out_dwf_dist_to_label
+out_code_label(long l)
+{
-    PROTO_N ( (l) )
+  outs(local_prefix);
+  outn(l);
+  return;
+}
+void
-    PROTO_T ( long l )
+out_dwf_dist_to_label(long l)
 {
-  out_dwf_label (l, 0);
+  out_dwf_label(l, 0);
-  outs (" - . - 4");
+  outs(" - . - 4");
   return;
 }
-void out_dwf_labdiff
+void
-    PROTO_N ( (lo, hi) )
-    PROTO_T ( long lo X long hi )
+out_dwf_labdiff(long lo, long hi)
+{
-  if (hi == lo)
+  if (hi == lo) {
-    outn ((long)0);
+    outn((long)0);
-  else {
+  } else {
-    out_dwf_label (hi, 0);
+    out_dwf_label(hi, 0);
-    outs (" - ");
+    outs(" - ");
-    out_dwf_label (lo, 0);
+    out_dwf_label(lo, 0);
+  }
   return;
+}
-void out_ext_label
+void
-    PROTO_N ( (s) )
-    PROTO_T ( char * s )
+out_ext_label(char *s)
+{
-  outs (".globl ");
+  outs(".globl ");
-  outs (s);
+  outs(s);
-  d_outnl ();
+  d_outnl();
-  outs (s);
+  outs(s);
   outs(":");
-  d_outnl ();
+  d_outnl();
   return;
 }
-void out_producer
+void
-    PROTO_N ( (s) )
-    PROTO_T ( char * s )
+out_producer(char *s)
 {
-  outs (".string \"");
+  outs(".string \"");
-  outs (s);
+  outs(s);
-  outs ("   with TenDRA 80x86/Solaris installer ");
+  outs("   with TenDRA 80x86/Solaris installer ");
-  outn ((long)target_version) ;
+  outn((long)target_version);
-  outs (".") ;
+  outs(".");
-  outn ((long)target_revision) ;
+  outn((long)target_revision);
-  outs ("\"");
+  outs("\"");
-  d_outnl ();
+  d_outnl();
-  return;
-}
-static char * first_data = NULL;
-static char * first_ro = NULL;
-void note_data
-    PROTO_N ( (s) )
-    PROTO_T ( char * s )
-{
-  if (!first_data)
-    first_data = s;
   return;
 }
+static char *first_data = NULL;
+static char *first_ro = NULL;
-void note_ro
+void
+note_data(char *s)
+{
+  if (!first_data) {
-    PROTO_N ( (s) )
+    first_data = s;
+  }
+  return;
+}
+void
-    PROTO_T ( char * s )
+note_ro(char *s)
+{
-  if (!first_ro)
+  if (!first_ro) {
     first_ro = s;
+  }
   return;
+}
+void
-void dw2_data_aranges
+dw2_data_aranges(void)
-    PROTO_Z ()
+{
   long lab_data = 0, lab_ro = 0;
   if (first_data) {
-    lab_data = next_dwarf_label ();
+    lab_data = next_dwarf_label();
     if (do_prom) {
-      outs (".bss ");
+      outs(".bss ");
-      out_dwf_label (lab_data, 0);
+      out_dwf_label(lab_data, 0);
-      outs (", 0");
+      outs(", 0");
       d_outnl();
-    }
-    else {
+    } else {
       outs(".data");
       d_outnl();
-      out_dwf_label (lab_data, 1);
+      out_dwf_label(lab_data, 1);
+    }
+  }
   if (first_ro) {
-    lab_ro = next_dwarf_label ();
+    lab_ro = next_dwarf_label();
     out_readonly_section();
     d_outnl();
-    out_dwf_label (lab_ro, 1);
+    out_dwf_label(lab_ro, 1);
+  }
   outs(".text");
   d_outnl();
-  enter_section ("debug_aranges");
+  enter_section("debug_aranges");
   if (first_data) {
-    out32 (); outs (first_data); d_outnl ();
+    out32(); outs(first_data); d_outnl();
-    out32 (); out_dwf_label (lab_data, 0); outs (" - ");
+    out32(); out_dwf_label(lab_data, 0); outs(" - ");
-	outs (first_data); d_outnl ();
+    outs(first_data); d_outnl();
+  }
   if (first_ro) {
-    out32 (); outs (first_ro); d_outnl ();
+    out32(); outs(first_ro); d_outnl();
-    out32 (); out_dwf_label (lab_ro, 0); outs (" - ");
+    out32(); out_dwf_label(lab_ro, 0); outs(" - ");
-	outs (first_ro); d_outnl ();
+    outs(first_ro); d_outnl();
+  }
-  exit_section ();
+  exit_section();
   return;
+}

Subversion Repositories tendra.SVN

(root)/trunk/src/installers/80x86/solaris/dw2_config.c – Rev 2 → 7