WebSVN – tendra.SVN – Diff – /trunk/src/installers/80x86/freebsd/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 "coder.h"
 /* PROCEDURES */
-void dot_align
+void
-    PROTO_N ( (n) )
-    PROTO_T ( int n )
+dot_align(int n)
+{
+  if (freebsd_elf) {
+    outs(".align ");
+    outn((long)n);
-  if (n == 1)
+    outnl();
     return;
+  }
+  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 (freebsd_elf) {
+    if (is80486 && !is80586 && ptno(jr) != last_jump_label) {
+      if (f == 1) {	/* repeat jump */
+        outs(".align 4");
+      }
+      if (f == 2) {	/* preceded by a jmp or ret */
+        outs(".align 16");
+      }
+      outs("\n");
+      return;
+    }
+  }
-  if (is80486 && !is80586 && ptno(jr) != last_jump_label) {
+  if (is80486 && !is80586 && ptno(jr)!= last_jump_label) {
-    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)
 {
+  UNUSED(s);
-  UNUSED(s); UNUSED(c);
+  UNUSED(c);
   return;
 }
+void
-void out_readonly_section
+out_readonly_section(void)
-    PROTO_Z ()
 {
+  if (freebsd_elf) {
+    outs(".section .rodata");
+  } 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;
 }
-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);
+        outn((long)0);
-      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)
 {
-  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
-void out_initialiser
+out_initialiser(char *id)
+{
-    PROTO_N ( (id) )
+  if (freebsd_elf) {
+    outs(".section .init");
+    outnl();
-    PROTO_T ( char* id )
+    outs(" call ");
+    outs(id);
-{
+  } else {
-  outs(".stabs \"___TDFI_LIST__\",22,0,0,");
+    outs(".stabs \"___TDFI_LIST__\",22,0,0,");
-  outs (id);
+    outs(id);
-  outnl ();
+    outnl();
-  outnl ();
+    outnl();
+  }
   return;
 }
+void
-void out_main_prelude
+out_main_prelude(void)
-    PROTO_Z ()
+{
-  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 ()
+{
-  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/freebsd/assembler.c – Rev 2 → 7