WebSVN – tendra.SVN – Diff – /trunk/src/installers/80x86/sco/assembler.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 sco_gas = 0;
 /* PROCEDURES */
-void dot_align
+void
-    PROTO_N ( (n) )
-    PROTO_T ( int n )
+dot_align(int n)
+{
-  if (!sco_gas && n> 4)
+  if (!sco_gas && n> 4) {
     n = 4;
+  }
-  outs(".align "); outn((long)n); outnl();
+  outs(".align ");
+  outn((long)n);
+  outnl();
   return;
 }
-void outbyte
+void
-    PROTO_Z ()
+outbyte(void)
+{
   outs(".byte ");
   return;
 }
-void outshort
+void
-    PROTO_Z ()
+outshort(void)
+{
   outs(".value ");
   return;
+}
-void outlong
+void
-    PROTO_Z ()
+outlong(void)
 {
   outs(".long ");
   return;
 }
-void align_label
+void
-    PROTO_N ( (f, jr) )
-    PROTO_T ( int f X exp jr )
+align_label(int f, exp jr)
 {
   UNUSED(f);
   UNUSED(jr);
   if (is80486 && !is80586) {
     outs(".align 4\n");
-  };
+  }
   return;
 }
-void eval_postlude
+void
-    PROTO_N ( (s, c) )
-    PROTO_T ( char * s X exp c )
+eval_postlude(char *s, exp c)
 {
+  UNUSED(s);
-  UNUSED(s); UNUSED(c);
+  UNUSED(c);
-    return;
+  return;
 }
+void
-void out_readonly_section
+out_readonly_section(void)
-    PROTO_Z ()
 {
-  outs (".text");
+  outs(".text");
   return;
 }
-void out_dot_comm
+void
-    PROTO_N ( (id, sha) )
-    PROTO_T ( char * id X shape sha )
+out_dot_comm(char *id, shape sha)
 {
-	outs (".comm ");
+	outs(".comm ");
-	outs (id);
+	outs(id);
-	outs (",");
+	outs(",");
-	if (sco_gas)
+	if (sco_gas) {
-	  outn ((long)((( shape_size(sha)/ 8) + 3) / 4) * 4);
+	  outn((long)(((shape_size(sha) / 8) + 3) / 4) * 4);
-	else
+	} else {
-	  outn ((long)((( shape_size(sha)/ 8) + 7) / 8) * 8);
+	  outn((long)(((shape_size(sha) / 8) + 7) / 8) * 8);
+	}
-	outnl ();
+	outnl();
   return;
 }
-void out_dot_lcomm
+void
-    PROTO_N ( (id, sha) )
-    PROTO_T ( char * id X shape sha )
+out_dot_lcomm(char *id, shape sha)
 {
-	outs (".lcomm ");
+	outs(".lcomm ");
-	outs (id);
+	outs(id);
-	outs (",");
+	outs(",");
-	if (sco_gas)
+	if (sco_gas) {
-	  outn ((long)((( shape_size(sha)/ 8) + 3) / 4) * 4);
+	  outn((long)(((shape_size(sha) / 8) + 3) / 4) * 4);
-	else
+	} else {
-	  outn ((long)((( shape_size(sha)/ 8) + 7) / 8) * 8);
+	  outn((long)(((shape_size(sha) / 8) + 7) / 8) * 8);
+	}
-	outnl ();
+	outnl();
   return;
 }
-void out_bss
+void
-    PROTO_N ( (id, sha) )
-    PROTO_T ( char * id X shape sha )
+out_bss(char *id, shape sha)
 {
-	outs (".bss ");
+	outs(".bss ");
-	outs (id);
+	outs(id);
-	outs (",");
+	outs(",");
-	if (sco_gas)
+	if (sco_gas) {
-	  outn ((long)((( shape_size(sha)/ 8) + 3) / 4) * 4);
+	  outn((long)(((shape_size(sha) / 8) + 3) / 4) * 4);
-	else
+	} else {
-	  outn ((long)((( shape_size(sha)/ 8) + 7) / 8) * 8);
+	  outn((long)(((shape_size(sha) / 8) + 7) / 8) * 8);
+	}
-	outnl ();
+	outnl();
   return;
 }
-void pic_prelude
+void
-    PROTO_Z ()
+pic_prelude(void)
 {
   return;
 }
-void out_rename
+void
-    PROTO_N ( (oldid, newid) )
-    PROTO_T ( char * oldid X char * newid )
+out_rename(char *oldid, char *newid)
+{
+  UNUSED(oldid);
-  UNUSED(oldid); UNUSED(newid);
+  UNUSED(newid);
   return;
+}
-void out_switch_jump
+void
-    PROTO_N ( (tab, a, min) )
-    PROTO_T ( int tab X where a X int min )
+out_switch_jump(int tab, where a, int min)
+{
-    outs (" jmp *");
+    outs(" jmp *");
     outs(local_prefix);
     outn((long)tab);
     outs("-");
     outn((long)(4 * min));
-    outs ("(,");
+    outs("(,");
-    operand (32, a, 1, 0);
+    operand(32, a, 1, 0);
-    outs (",4)");
+    outs(",4)");
-    outnl ();
+    outnl();
     return;
 }
-void out_switch_table
+void
-    PROTO_N ( (tab, min, max, v, absent) )
-    PROTO_T ( int tab X int min X int max X int * v X int absent )
+out_switch_table(int tab, int min, int max, int *v, int absent)
 {
   int i;
   dot_align(4);
   outnl();
   outs(local_prefix);
-  outn ((long)tab);
+  outn((long)tab);
-  outs (":");
+  outs(":");
-  outnl ();
+  outnl();
   for (i = min; i <= max; ++i) {
-    outs (".long ");
+    outs(".long ");
-    if (v[i - min] != -1)  {
+    if (v[i - min]!= -1) {
       outs(local_prefix);
-      outn ((long)v[i - min]);
+      outn((long)v[i - min]);
-    }
-    else  {
+    } else {
-      if (absent == -1)
+      if (absent == -1) {
 	outn((long)0);
-      else {
+      } else {
         outs(local_prefix);
-        outn ((long)absent);
+        outn((long)absent);
-      };
+      }
-    };
+    }
-    outnl ();
+    outnl();
-  };
+  }
 }
-void proc_size
+void
-    PROTO_N ( (s) )
-    PROTO_T ( char * s )
+proc_size(char *s)
 {
   UNUSED(s);
   return;
 }
-void proc_type
+void
-    PROTO_N ( (s) )
-    PROTO_T ( char * s )
+proc_type(char *s)
 {
   UNUSED(s);
   return;
 }
-void outend
+void
-    PROTO_Z ()
+outend(void)
+{
-  int   st;
+  int st;
   if (sco_gas) {
     outs(".text");
     outnl();
     dot_align(16);
-  };
+  }
-  st = fclose (fpout);
+  st = fclose(fpout);
   if (st == EOF) {
-    failer ("failed to close file");
+    failer("failed to close file");
-    exit (EXIT_FAILURE);
+    exit(EXIT_FAILURE);
-  };
+  }
 }
-void outopenbr
+void
-    PROTO_Z ()
+outopenbr(void)
 {
   return;
 }
-void outclosebr
+void
-    PROTO_Z ()
+outclosebr(void)
 {
   return;
 }
-void outdivsym
+void
-    PROTO_Z ()
+outdivsym(void)
+{
   outs("/");
   return;
+}
-void out_initialiser
+void
-    PROTO_N ( (id) )
-    PROTO_T ( char* id )
+out_initialiser(char *id)
+{
-  outs (".section .init,\"x\"\n");
+  outs(".section .init,\"x\"\n");
-  outs (" call ");
+  outs(" call ");
-  outs (id);
+  outs(id);
-  outnl ();
+  outnl();
-  outnl ();
+  outnl();
   return;
+}

Subversion Repositories tendra.SVN

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