WebSVN – tendra.SVN – Diff – /trunk/src/installers/80x86/linux/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
 $Date: 1998/01/17 15:55:52 $
 $Revision: 1.1.1.1 $
 $Log: assembler.c,v $
  * Revision 1.1.1.1  1998/01/17  15:55:52  release
  * First version to be checked into rolling release.
  *
  * Revision 1.10  1997/03/24  12:43:22  pwe
  * outn int->long
+ *
  * Revision 1.9  1996/02/16  10:11:01  pwe
  * Linux/ELF struct result and PIC jump table
 /* PROCEDURES */
-void dot_align
+void
-    PROTO_N ( (n) )
-    PROTO_T ( int n )
+dot_align(int n)
+{
   if (linux_elf) {
-    outs(".align "); outn((long)n); outnl();
+    outs(".align ");
+    outn((long)n);
+    outnl();
     return;
+  }
-  if (n == 1)
+  if (n == 1) {
     return;
+  }
   outs(".align ");
   switch (n) {
     case 16:
       n = 4; break;
     case 8:
       n = 3; break;
     case 4:
       n = 2; break;
     default:
       n = 1; break;
   };
-  outn((long)n); outnl();
+  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)
+{
   if (linux_elf) {
     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;
-  }
-  else {
+  } else {
-    if (is80486 && !is80586 && ptno(jr) != last_jump_label)  {
+    if (is80486 && !is80586 && ptno(jr)!= last_jump_label) {
 /* forward jump and continued into
       if (f==0)
         outs(".align 16,7,1");
 */
-      if (f == 1)	/* repeat jump */
+      if (f == 1) {	/* repeat jump */
         outs(".align 3,0x90");
+      }
-      if (f == 2)	/* preceded by a jmp or ret */
+      if (f == 2) {	/* preceded by a jmp or ret */
         outs(".align 4,0x90");
+      }
-      if (f == 3)
+      if (f == 3) {
         outs(".align 2,0x90");
+      }
       outs("\n");
-    };
+    }
-    if (is80586 && ptno(jr) != last_jump_label)  {
+    if (is80586 && ptno(jr)!= last_jump_label) {
-      if (f >= 1 && f <= 3)
+      if (f >= 1 && f <= 3) {
         outs(".align 2,0x90\n");
+      }
-    };
+    }
     return;
   }
 }
-void eval_postlude
+void
-    PROTO_N ( (s, c) )
-    PROTO_T ( char * s X exp c )
+eval_postlude(char *s, exp c)
 {
-  if (!linux_elf)
+  if (!linux_elf) {
     return;
+  }
   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 ()
 {
-  if (linux_elf)
+  if (linux_elf) {
-    outs (".section .rodata");
+    outs(".section .rodata");
-  else
+  } else {
-    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(",");
-	outn ((long)((( shape_size(sha)/ 8) + 3) / 4) * 4);
+	outn((long)(((shape_size(sha) / 8) + 3) / 4) * 4);
-	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(",");
-	outn ((long)((( shape_size(sha)/ 8) + 3) / 4) * 4);
+	outn((long)(((shape_size(sha) / 8) + 3) / 4) * 4);
-	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(",");
-	outn ((long)((( shape_size(sha)/ 8) + 3) / 4) * 4);
+	outn((long)(((shape_size(sha) / 8) + 3) / 4) * 4);
-	outnl ();
+	outnl();
   return;
+}
 static int pic_label;
-void pic_prelude
+void
-    PROTO_Z ()
+pic_prelude(void)
+{
   int n = next_lab();
   pic_label = n;
+  outs(" call ");
-  outs(" call "); outs(local_prefix); outn((long)n); outnl();
+  outs(local_prefix);
+  outn((long)n);
+  outnl();
-  outs(local_prefix); outn((long)n); outs(":"); outnl();
+  outs(local_prefix);
+  outn((long)n);
+  outs(":");
+  outnl();
-  outs(" popl %ebx"); outnl();
+  outs(" popl %ebx");
+  outnl();
-  outs(" addl $_GLOBAL_OFFSET_TABLE_+[.-"); outs(local_prefix); outn((long)n); outs("],%ebx");
+  outs(" addl $_GLOBAL_OFFSET_TABLE_+ [.-");
+  outs(local_prefix);
+  outn((long)n);
+  outs("],%ebx");
-    outnl();
+  outnl();
   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)
+{
-  if (PIC_code)  {
+  if (PIC_code) {
     if (min != 0) {
-      sub (slongsh, mw(zeroe,min), a, reg0);
+      sub(slongsh, mw(zeroe,min), a, reg0);
       a = reg0;
+    }
-    if (eq_where (a, reg0)) {
+    if (eq_where(a, reg0)) {
-      outs (" movl ");
+      outs(" movl ");
-    }
-    else {
+    } else {
-      outs (" movl %ebx,%eax");
+      outs(" movl %ebx,%eax");
       outnl();
-      outs (" subl ");
+      outs(" subl ");
+    }
     outs(local_prefix);
     outn((long)tab);
     outs("@GOTOFF(%ebx,");
-    operand (32, a, 1, 0);
+    operand(32, a, 1, 0);
     outs(",4),%eax");
     outnl();
-    if (eq_where (a, reg0)) {
+    if (eq_where(a, reg0)) {
-      outs (" subl %ebx,%eax");
+      outs(" subl %ebx,%eax");
       outnl();
-      outs (" negl %eax");
+      outs(" negl %eax");
       outnl();
+    }
     outs(" jmp *%eax");
     outnl();
     return;
-  }
-  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) {
       if (PIC_code) {
-	outs(" _GLOBAL_OFFSET_TABLE_+[.-");
+	outs(" _GLOBAL_OFFSET_TABLE_+ [.-");
 	outs(local_prefix);
-	outn ((long)v[i - min]);
+	outn((long)v[i - min]);
 	outs("]");
-      }
-      else {
+      } else {
 	outs(local_prefix);
-	outn ((long)v[i - min]);
+	outn((long)v[i - min]);
       }
-    }
-    else  {
+    } else {
-      if (absent == -1)
+      if (absent == -1) {
-        outn ((long)0);
+        outn((long)0);
-      else {
+      } else {
 	if (PIC_code) {
-	  outs(" _GLOBAL_OFFSET_TABLE_+[.-");
+	  outs(" _GLOBAL_OFFSET_TABLE_+ [.-");
 	  outs(local_prefix);
-	  outn ((long)absent);
+	  outn((long)absent);
 	  outs("]");
-	}
-	else {
+	} else {
 	  outs(local_prefix);
-	  outn ((long)absent);
+	  outn((long)absent);
+	}
-      };
+      }
-    };
+    }
-    outnl ();
+    outnl();
-  };
+  }
   outnl();
   return;
 }
-void proc_size
+void
-    PROTO_N ( (s) )
-    PROTO_T ( char * s )
+proc_size(char *s)
+{
   outs(".align 4");
   outnl();
   outs(".size ");
   outs(s);
   outs(s);
   outnl();
   return;
+}
-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)
 {		/* close the output */
-  int   st;
+  int st;
   outs(".text");
   outnl();
   dot_align(16);
   outnl();
   outs("___tdf_end:");
   outnl();
-  st = fclose (fpout);
+  st = fclose(fpout);
   if (st == EOF) {
-    failer ("failed to close file");
+    failer("failed to close file");
     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)
+{
   if (!linux_elf) {
     outs(".stabs \"___TDFI_LIST__\",22,0,0,");
-    outs (id);
+    outs(id);
-    outnl ();
+    outnl();
-    outnl ();
+    outnl();
     return;
+  }
-  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();
-  outnl ();
+  outnl();
   return;
+}
+void
-void out_main_prelude
+out_main_prelude(void)
-    PROTO_Z ()		/* if (!linux_elf) */
+{
+  /* if (!linux_elf) */
-  int nl1 = next_lab ();
+  int nl1 = next_lab();
-  int nl2 = next_lab ();
+  int nl2 = next_lab();
   min_rfree |= 0x8;
-  outs (" movl $___TDFI_LIST__+4, %ebx\n");
+  outs(" movl $___TDFI_LIST__+4, %ebx\n");
-  outs (local_prefix);
+  outs(local_prefix);
-  outn ((long)nl1);
+  outn((long)nl1);
-  outs (":\n");
+  outs(":\n");
-  outs (" movl (%ebx),%eax\n");
+  outs(" movl (%ebx),%eax\n");
-  outs (" cmpl $0,%eax\n");
+  outs(" cmpl $0,%eax\n");
-  simple_branch ("je", nl2);
+  simple_branch("je", nl2);
-  outs (" call *%eax\n");
+  outs(" call *%eax\n");
-  outs (" addl $4,%ebx\n");
+  outs(" addl $4,%ebx\n");
-  simple_branch ("jmp", nl1);
+  simple_branch("jmp", nl1);
-  outs (local_prefix);
+  outs(local_prefix);
-  outn ((long)nl2);
+  outn((long)nl2);
-  outs (":\n");
+  outs(":\n");
   return;
+}
+void
-void out_main_postlude
+out_main_postlude(void)
-    PROTO_Z ()	/* if (!linux_elf) */
+{
+  /* if (!linux_elf) */
-  char * sdummy = "Idummy";
+  char *sdummy = "Idummy";
-  char * pdummy = (char *) xcalloc (((int)strlen(local_prefix) +
+  char *pdummy = (char *)xcalloc(((int)strlen(local_prefix) +
-				(int)strlen(sdummy) + 1), sizeof (char));
+				  (int)strlen(sdummy) + 1), sizeof(char));
-  strcpy (pdummy, local_prefix);
+  strcpy(pdummy, local_prefix);
-  strcat (pdummy, sdummy);
+  strcat(pdummy, sdummy);
-  outs (".text\n");
+  outs(".text\n");
-  outs (pdummy);
+  outs(pdummy);
-  outs (":\n");
+  outs(":\n");
-  outs (" ret\n");
+  outs(" ret\n");
   out_initialiser(pdummy);
   return;
+}

Subversion Repositories tendra.SVN

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