WebSVN – tendra.SVN – Diff – /branches/tendra5/src/installers/80x86/solaris/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
 #include "basicread.h"
 /* PROCEDURES */
-void dot_align
+void
-    PROTO_N ( (n) )
-    PROTO_T ( int n )
+dot_align(int n)
+{
-  outs(".align "); outn((long)n); outnl();
+  outs(".align ");
-  return;
+  outn((long)n);
-}
-void outbyte
-    PROTO_Z ()
-{
-  outs(".byte ");
+  outnl();
   return;
+}
-void outshort
+void
-    PROTO_Z ()
+outbyte(void)
+{
+  outs(".byte ");
+  return;
+}
+void
+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)
 {
   if (is80486 && !is80586 && ptno(jr) != last_jump_label) {
 /* forward jump and continued into
     if (f==0)
       outs(".align 8");
 */
-    if (f == 1)	/* repeat jump */
+    if (f == 1) {	/* repeat jump */
       outs(".align 4");
+    }
-    if (f == 2)	/* preceded by a jmp or ret */
+    if (f == 2) {	/* preceded by a jmp or ret */
       outs(".align 16");
+    }
     outs("\n");
-  };
+  }
   return;
+}
-void eval_postlude
+void
-    PROTO_N ( (s, c) )
-    PROTO_T ( char * s X exp c )
+eval_postlude(char *s, exp c)
+{
     outs(".size ");
-    outs (s);
+    outs(s);
-    outs (",");
+    outs(",");
-    outn((long)(shape_size(sh(c))+7)/8);
+    outn((long)(shape_size(sh(c)) +7) / 8);
     outnl();
     outs(".type ");
-    outs (s);
+    outs(s);
-    outs (",@object");
+    outs(",@object");
     outnl();
     return;
 }
+void
-void out_readonly_section
+out_readonly_section(void)
-    PROTO_Z ()
 {
-  outs (".section .rodata");
+  outs(".section .rodata");
   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(",");
-	outn ((long)((( shape_size(sha)/ 8) + 3) / 4) * 4);
+	outn((long)(((shape_size(sha) / 8) + 3) / 4) * 4);
-	outnl ();
+	outnl();
-  return;
+	return;
 }
+void
+out_dot_lcomm(char *id, shape sha)
+{
-void out_dot_lcomm
+	outs(".lcomm ");
+	outs(id);
+	outs(",");
-    PROTO_N ( (id, sha) )
+	outn((long)(((shape_size(sha) / 8) + 3) / 4) * 4);
+	outnl();
+	return;
+}
+void
-    PROTO_T ( char * id X shape sha )
+out_bss(char *id, shape sha)
 {
-	outs (".lcomm ");
+	outs(".bss ");
-	outs (id);
+	outs(id);
-	outs (",");
+	outs(",");
-	outn ((long)((( shape_size(sha)/ 8) + 3) / 4) * 4);
+	outn((long)(((shape_size(sha) / 8) + 3) / 4) * 4);
-	outnl ();
+	outnl();
-  return;
+	return;
 }
+static long pic_label;
-void out_bss
+void
-    PROTO_N ( (id, sha) )
+pic_prelude(void)
-    PROTO_T ( char * id X shape sha )
+{
+  long n = next_lab();
+  pic_label = n;
+  outs(" call .L");
+  outn(n);
+  outnl();
-	outs (".bss ");
+  outs(".L");
-	outs (id);
+  outn(n);
-	outs (",");
+  outs(":");
+  outnl();
+  outs(" popl %ebx");
+  outnl();
-	outn ((long)((( shape_size(sha)/ 8) + 3) / 4) * 4);
+  outs(" addl $_GLOBAL_OFFSET_TABLE_+ [.-.L");
+  outn(n);
+  outs("],%ebx");
+  outnl();
+  return;
+}
+void
+out_rename(char *oldid, char *newid)
+{
+  UNUSED(oldid);
-	outnl ();
+  UNUSED(newid);
   return;
+}
-static long pic_label;
-void pic_prelude
-    PROTO_Z ()
-{
-  long n = next_lab();
-  pic_label = n;
-  outs(" call .L"); outn(n); outnl();
-  outs(".L"); outn(n); outs(":"); outnl();
-  outs(" popl %ebx"); outnl();
-  outs(" addl $_GLOBAL_OFFSET_TABLE_+[.-.L"); outn(n); outs("],%ebx");
-    outnl();
-  return;
-}
-void out_rename
+void
-    PROTO_N ( (oldid, newid) )
-    PROTO_T ( char * oldid X char * newid )
+out_switch_jump(int tab, where a, int min)
+{
-  UNUSED(oldid); UNUSED(newid);
-  return;
-}
-void out_switch_jump
-    PROTO_N ( (tab, a, min) )
-    PROTO_T ( int tab X where a X int min )
-{
-  if (PIC_code)  {
+  if (PIC_code) {
     outs(" leal ");
     outs(local_prefix);
     outn((long)tab);
     outs("@GOTOFF(%ebx,");
-    operand (32, a, 1, 0);
+    operand(32, a, 1, 0);
     outs(",4),%eax");
     outnl();
     outs(" movl ");
     outs("-");
     outn((long)(4 * min));
-    outs ("(%eax),%eax");
+    outs("(%eax),%eax");
     outnl();
     outs(" addl %ebx,%eax");
     outnl();
-    outs(" subl $_GLOBAL_OFFSET_TABLE_+[.-.L"); outn(pic_label);
+    outs(" subl $_GLOBAL_OFFSET_TABLE_+ [.-.L");
+    outn(pic_label);
-      outs("],%eax"); outnl();
+    outs("],%eax");
+    outnl();
     outs(" jmp *%eax");
     outnl();
     return;
     /* MODIFY FOR NEW CASE !!!!! */
-  }
-  else  {
+  } else {
-    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]);
       if (PIC_code) {
         outs("-");
         outs(local_prefix);
         outn(pic_label);
+      }
-    }
-    else  {
+    } else {
-      if (absent == -1)
+      if (absent == -1) {
 	outn((long)0);
-      else {
+      } else {
         outs(local_prefix);
-        outn ((long)absent);
+        outn((long)absent);
 	if (PIC_code) {
 	  outs("-");
 	  outs(local_prefix);
 	  outn(pic_label);
+	}
-      };
+      }
-    };
+    }
-    outnl ();
+    outnl();
-  };
+  }
 }
-void proc_size
+void
-    PROTO_N ( (s) )
-    PROTO_T ( char * s )
+proc_size(char *s)
 {
   outs(".align 4");
   outnl();
   outs(".size ");
   outs(s);
   outs(", .-");
   outs(s);
   outnl();
+}
-void proc_type
+void
-    PROTO_N ( (s) )
-    PROTO_T ( char * s )
+proc_type(char *s)
+{
   outs(".type ");
   outs(s);
   outs(",@function");
   outnl();
   return;
 }
-void outend
+void
-    PROTO_Z ()
+outend(void)
+{
-  int   st;
+  int st;
   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)
+{
   outs("[");
   return;
 }
-void outclosebr
+void
-    PROTO_Z ()
+outclosebr(void)
+{
   outs("]");
   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\n");
+  outs(".section .init\n");
-  outs (" call ");
+  outs(" call ");
-  outs (id);
+  outs(id);
-  if (PIC_code)
+  if (PIC_code) {
-    outs ("@PLT");
+    outs("@PLT");
+  }
-  outnl ();
+  outnl();
   return;
+}

Subversion Repositories tendra.SVN

(root)/branches/tendra5/src/installers/80x86/solaris/assembler.c – Rev 5 → 6