WebSVN – tendra.SVN – Diff – /branches/tendra5/src/installers/common/dwarf/dwarf_loc.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
 /* machine dependent */
 #include "machine.h"
 #include "codermacs.h"
 #include "tags.h"
 /* machine dependent */
 #include "out.h"
 #include "shapemacs.h"
 /* machine dependent */
 #include "expmacs.h"
 #include "basicread.h"
 #include "dwarf_types.h"
 #include "dwarf_out.h"
 #include "dwarf_queue.h"
 #include "dwarf_type.h"
 #include "dwarf_loc.h"
 #include "cross_config.h"
 #ifndef CROSS_INCLUDE
 #include <dwarf.h>
 #else
 #include CROSS_INCLUDE/dwarf.h>
 #endif
-void out_dwarf_const4
+void
-    PROTO_N ( (x) )
-    PROTO_T ( exp x )
+out_dwarf_const4(exp x)
 {
-  if (name(x) != val_tag && name(x) != null_tag)
+	if (name(x) != val_tag && name(x) != null_tag) {
-  {
-    failer("non const exp in out_dwarf_const4");
+		failer("non const exp in out_dwarf_const4");
-    return;
+		return;
-  }
+	}
-  dwarf4n(no(x));
+	dwarf4n(no(x));
 }
-void out_dwarf_const_by8
+void
-    PROTO_N ( (x) )
-    PROTO_T ( exp x )
+out_dwarf_const_by8(exp x)
 {
-  if (name(x) != val_tag)
+	if (name(x) != val_tag) {
-  {
-    failer("non const exp in out_dwarf_const_by8");
+		failer("non const exp in out_dwarf_const_by8");
-    return;
+		return;
-  }
+	}
-  dwarf4n((no(x)/8));
+	dwarf4n((no(x) / 8));
 }
+void
-void out_dwarf_member_loc_attr
+out_dwarf_member_loc_attr(exp e)
-    PROTO_N ( (e) )
-    PROTO_T ( exp e )
 {
-  int o;
+	int o;
-  OUT_DWARF_ATTR(AT_location);
+	OUT_DWARF_ATTR(AT_location);
-  if (name(e) != val_tag)
+	if (name(e) != val_tag) {
-    failer("out_mem_loc_attr");
+		failer("out_mem_loc_attr");
+	}
 #ifdef LOCS_IN_BLKS
-  new_dwarf_blk2();
+	new_dwarf_blk2();
 #else
-  OUT_DWARF_LOC_BLK(6);
+	OUT_DWARF_LOC_BLK(6);
 #endif
-  o = no(e)/8;
+	o = no(e) /8;
-  dwarf1(OP_CONST);
+	dwarf1(OP_CONST);
-  dwarf4n(o);
+	dwarf4n(o);
-  dwarf1(OP_ADD);
+	dwarf1(OP_ADD);
 #ifdef LOCS_IN_BLKS
-  leave_dwarf_blk2();
+	leave_dwarf_blk2();
 #endif
 }
 /* given the bit offset to base of anon object */
+void
-void out_dwarf_bit_member_loc_attr
+out_dwarf_bit_member_loc_attr(int u)
-    PROTO_N ( (u) )
-    PROTO_T ( int u )
 {
-  OUT_DWARF_ATTR(AT_location);
+	OUT_DWARF_ATTR(AT_location);
 #ifdef LOCS_IN_BLKS
-  new_dwarf_blk2();
+	new_dwarf_blk2();
 #else
-  OUT_DWARF_LOC_BLK(6);
+	OUT_DWARF_LOC_BLK(6);
 #endif
-  dwarf1(OP_CONST);
+	dwarf1(OP_CONST);
-  dwarf4n(u/8);
+	dwarf4n(u/8);
-  dwarf1(OP_ADD);
+	dwarf1(OP_ADD);
 #ifdef LOCS_IN_BLKS
-  leave_dwarf_blk2();
+	leave_dwarf_blk2();
 #endif
 }
 #if (is80x86)
-static int ok_reg_no
+static int
+ok_reg_no(int x)
+{
-    PROTO_N ( (x) )
+	switch (x) {
+	case 1:
+	case 2:
+	case 4:
+	case 8:
+	case 16:
+	case 0x20:
+	case 0x40:
+		return 1;
+	default:
+		return 0;
+	}
+}
+static char *
-    PROTO_T ( int x )
+dwarf_reg_str(int x)
+{
-  switch (x)
+	switch (x) {
-  {
-   case 1:
-   case 2:
-   case 4:
-   case 8:
-   case 16:
-   case 0x20:
-   case 0x40:
-    return 1;
-   default:
-    return 0;
-  }
-}
-static char *dwarf_reg_str
-    PROTO_N ( (x) )
-    PROTO_T ( int x )
-{
-  switch (x)
-  {
-   case 1:
+	case 1:
-    return("0\t#\teax");
+		return("0\t#\teax");
-   case 2:
+	case 2:
-    return("2\t#\tedx");
+		return("2\t#\tedx");
-   case 4:
+	case 4:
-    return("1\t#\tecx");
+		return("1\t#\tecx");
-   case 8:
+	case 8:
-    return("3\t#\tebx");	/* 4 is esp */
+		return("3\t#\tebx");	/* 4 is esp */
-   case 0x10:
+	case 0x10:
-    return("7\t#\tedi");
+		return("7\t#\tedi");
-   case 0x20:
+	case 0x20:
-    return("6\t#\tesi");
+		return("6\t#\tesi");
-   case 0x40:
+	case 0x40:
-    return("5\t#\tebp");
+		return("5\t#\tebp");
-				/* 8 eip 9 eflags 10 fpsw 11 fpcw
+		/* 8 eip 9 eflags 10 fpsw 11 fpcw
 fpip 13 fpdp 14 st0....*/
-   default:
+	default:
-    failer("Illegal reg no in dwarf_reg_str");
+		failer("Illegal reg no in dwarf_reg_str");
-    exit(EXIT_FAILURE);
+		exit(EXIT_FAILURE);
-  }
+	}
+}
 #define DWARF_FP "5\t# ebp"
 #else
 #if (issparc)
-static char *dwarf_reg_str
+static char *
-    PROTO_N ( ( x ) )
-    PROTO_T ( long x )
+dwarf_reg_str(long x)
+{
-    int i ;
+	int i;
-    for ( i = 0 ; i < 32 ; i++ ) {
+	for (i = 0; i < 32; i++) {
-	if ( x & 1 ) {
+		if (x & 1) {
-	    static char buff [10] ;
+			static char buff[10];
-	    sprintf ( buff, "%d", i ) ;
+			sprintf(buff, "%d", i);
+		}
+		x >>= 1;
+	}
-	x >>= 1 ;
-    }
-    failer ( "Illegal register number in dwarf_reg_str" ) ;
+	failer("Illegal register number in dwarf_reg_str");
-    return ( "???" ) ;
+	return("???");
+}
 #else
 error need internal to dwarf register number routines
 #endif
 #endif
-int out_dwarf_loc_attr
+int
-    PROTO_N ( (t,proc_no) )
-    PROTO_T ( exp t X int proc_no )
+out_dwarf_loc_attr(exp t, int proc_no)
+{
-  int rval = 1;
+	int rval = 1;
-  if (name(t) != name_tag) {
+	if (name(t) != name_tag) {
-    OUT_DWARF_ATTR(AT_const_value);
+		OUT_DWARF_ATTR(AT_const_value);
-    out_dwarf_const4(t);
+		out_dwarf_const4(t);
-    return rval;
+		return rval;
-  }
+	}
 #ifdef NEWDIAGS
-  if (isdiscarded(t))
+	if (isdiscarded(t)) {
-    return rval;	/* no location */
+		/* no location */
+		return rval;
+	}
 #endif
-  OUT_DWARF_ATTR(AT_location);
+	OUT_DWARF_ATTR(AT_location);
 #ifdef LOCS_IN_BLKS
-  new_dwarf_blk2();
+	new_dwarf_blk2();
 #endif
-  {
-    exp s = son(t);
-    if (isglob(s))
-    {
-#ifndef LOCS_IN_BLKS
-      OUT_DWARF_LOC_BLK(5);
-#endif
-      dwarf1(OP_ADDR);
-      dwarf4(brog(s) -> dec_u.dec_val.dec_id);
-    }
-    else
-#if (is80x86)
-    {
-      int p = ptno(s);
-      switch (p)
-      {
-       case local_pl:
+	{
-	  char expr_buf[100];
+		exp s = son(t);
-	  sprintf(expr_buf,"%d - %sdisp%d # local var",(no(s)+no(t))/8,
-		  local_prefix,proc_no);
+		if (isglob(s)) {
 #ifndef LOCS_IN_BLKS
-	  OUT_DWARF_LOC_BLK(11);
+			OUT_DWARF_LOC_BLK(5);
 #endif
-	  dwarf1(OP_CONST);
+			dwarf1(OP_ADDR);
-	  dwarf4(expr_buf);
+			dwarf4(brog(s) -> dec_u.dec_val.dec_id);
-	}
+		} else {
-	dwarf1(OP_BASEREG);
+#if (is80x86)
-	dwarf4(DWARF_FP);
+			int p = ptno(s);
-	dwarf1(OP_ADD);
+			switch (p) {
-	break;
+			case local_pl: {
+				char expr_buf[100];
+				sprintf(expr_buf, "%d - %sdisp%d # local var",
+					(no(s) + no(t)) / 8,
-       case par_pl:
+					local_prefix,proc_no);
 #ifndef LOCS_IN_BLKS
-	OUT_DWARF_LOC_BLK(11);
+				OUT_DWARF_LOC_BLK(11);
 #endif
-	dwarf1(OP_CONST);
+				dwarf1(OP_CONST);
+				dwarf4(expr_buf);
+			}
+				dwarf1(OP_BASEREG);
+				dwarf4(DWARF_FP);
+				dwarf1(OP_ADD);
+				break;
+			case par_pl:
+#ifndef LOCS_IN_BLKS
+				OUT_DWARF_LOC_BLK(11);
+#endif
+				dwarf1(OP_CONST);
-	dwarf4n((no(s)+no(t))/8 + 8);
+				dwarf4n((no(s) +no(t)) /8 + 8);
-	dwarf1(OP_BASEREG);
+				dwarf1(OP_BASEREG);
-	dwarf4(DWARF_FP);
+				dwarf4(DWARF_FP);
-	dwarf1(OP_ADD);
+				dwarf1(OP_ADD);
-	break;
+				break;
-       case reg_pl:
+			case reg_pl:
+				if (!ok_reg_no(no(s))) {
-	if (!ok_reg_no(no(s)))	/* fails for fp regs, so put out no atoms */
+					/* fails for fp regs, so put out no
+					 * atoms */
-	  rval = 0;
+					rval = 0;
+				} else {
+#ifndef LOCS_IN_BLKS
+					OUT_DWARF_LOC_BLK(5);
+#endif
+					dwarf1(OP_REG);
+					dwarf4(dwarf_reg_str(no(s)));
-	else
+				}
+				break;
+			default:
+				failer("illegal ptno in out_loc_attr");
+				exit(EXIT_FAILURE);
-	{
+			}
+#else
+#if (issparc)
+			if (props(s) & defer_bit) {
+				failer("Deferred expression in out_loc_attr");
+				rval = 0;
+			} else if (props(s) & inreg_bits) {
 #ifndef LOCS_IN_BLKS
-	  OUT_DWARF_LOC_BLK(5);
+				OUT_DWARF_LOC_BLK(5);
 #endif
-	  dwarf1(OP_REG);
+				dwarf1(OP_REG);
-	  dwarf4(dwarf_reg_str(no(s)));
-	}
-	break;
-       default:
-	failer("illegal ptno in out_loc_attr");
-	exit(EXIT_FAILURE);
-      }
-    }
-#else
-#if (issparc)
-    {
-	if ( props ( s ) & defer_bit ) {
-	    failer ( "Deferred expression in out_loc_attr" ) ;
-	    rval = 0 ;
-	} else if ( props ( s ) & inreg_bits ) {
-#ifndef LOCS_IN_BLKS
-	    OUT_DWARF_LOC_BLK(5);
-#endif
-	    dwarf1 ( OP_REG ) ;
-	    dwarf4n ( no ( s ) ) ;
+				dwarf4n(no(s));
-	} else if ( props ( s ) & infreg_bits ) {
+			} else if (props(s) & infreg_bits) {
-	    failer ( "Floating register expression in out_loc_attr" ) ;
+				failer("Floating register expression in out_loc_attr");
-	    rval = 0 ;
+				rval = 0;
-	} else {
+			} else {
-	    baseoff b ;
+				baseoff b;
-	    b = boff ( s ) ;
+				b = boff(s);
 #ifndef LOCS_IN_BLKS
-	    OUT_DWARF_LOC_BLK(11);
+				OUT_DWARF_LOC_BLK(11);
 #endif
-	    dwarf1 ( OP_CONST ) ;
+				dwarf1(OP_CONST);
-	    dwarf4n ( ( int ) b.offset ) ;
+				dwarf4n((int)b.offset);
-	    dwarf1 ( OP_BASEREG ) ;
+				dwarf1(OP_BASEREG);
-	    dwarf4n ( ( int ) b.base ) ;
+				dwarf4n((int)b.base);
-	    dwarf1 ( OP_ADD ) ;
+				dwarf1(OP_ADD);
-	}
+			}
-    }
 #else
-error need machine specific non-global location description code
+		error need machine specific non-global location description code
 #endif
+		}
 #endif
-  }
+	}
 #ifdef LOCS_IN_BLKS
-  leave_dwarf_blk2();
+	leave_dwarf_blk2();
 #endif
-  return rval;
+	return rval;
+}

Subversion Repositories tendra.SVN

(root)/branches/tendra5/src/installers/common/dwarf/dwarf_loc.c – Rev 5 → 6