X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=libffi%2Fsrc%2Falpha%2Fosf.S;h=aba6782e7947a4fbed887a3d389d3543d5cc17fe;hp=b3dc477fec043222df3f99260c7c30405fed6dd5;hb=ea4d299a259d8cc08aefa91e797ec4a6e5bf4053;hpb=c8fdcc07b876c816bf9e48bfcba21a2a6e34e7bf

diff --git a/libffi/src/alpha/osf.S b/libffi/src/alpha/osf.S
index b3dc477fec0..aba6782e794 100644
--- a/libffi/src/alpha/osf.S
+++ b/libffi/src/alpha/osf.S
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------
-   osf.S - Copyright (c) 1998 Cygnus Solutions
+   osf.S - Copyright (c) 1998, 2001, 2007 Red Hat
    
    Alpha/OSF Foreign Function Interface 
 
@@ -24,6 +24,7 @@
    ----------------------------------------------------------------------- */
 
 #define LIBFFI_ASM	
+#include <fficonfig.h>
 #include <ffi.h>
 
 	.arch ev6
@@ -39,15 +40,19 @@
 	.align	3
 	.globl	ffi_call_osf
 	.ent	ffi_call_osf
+	FFI_HIDDEN(ffi_call_osf)
+
 ffi_call_osf:
 	.frame	$15, 32, $26, 0
 	.mask   0x4008000, -32
+$LFB1:
 	addq	$16,$17,$1
 	mov	$16, $30
 	stq	$26, 0($1)
 	stq	$15, 8($1)
 	stq	$18, 16($1)
 	mov	$1, $15
+$LCFI1:
 	.prologue 0
 
 	stq	$19, 24($1)
@@ -77,6 +82,7 @@ ffi_call_osf:
 	ldq	$19, 24($15)
 	ldq	$18, 16($15)
 	ldq	$26, 0($15)
+$LCFI2:
 	beq	$19, $noretval
 
 	# Store the return value out in the proper type.
@@ -87,27 +93,32 @@ ffi_call_osf:
 	cmpeq	$18, FFI_TYPE_DOUBLE, $3
 	bne	$3, $retdouble
 
+	.align	3
 $noretval:
 	ldq	$15, 8($15)
 	ret
 
+	.align	4
 $retint:
 	stq	$0, 0($19)
 	nop
 	ldq	$15, 8($15)
 	ret
 
+	.align	4
 $retfloat:
 	sts	$f0, 0($19)
 	nop
 	ldq	$15, 8($15)
 	ret
 
+	.align	4
 $retdouble:
 	stt	$f0, 0($19)
 	nop
 	ldq	$15, 8($15)
 	ret
+$LFE1:
 
 	.end	ffi_call_osf
 
@@ -118,12 +129,17 @@ $retdouble:
 	.align	3
 	.globl	ffi_closure_osf
 	.ent	ffi_closure_osf
+	FFI_HIDDEN(ffi_closure_osf)
+
 ffi_closure_osf:
 	.frame	$30, 16*8, $26, 0
 	.mask	0x4000000, -16*8
+$LFB2:
 	ldgp	$29, 0($27)
 	subq	$30, 16*8, $30
+$LCFI5:
 	stq	$26, 0($30)
+$LCFI6:
 	.prologue 1
 
 	# Store all of the potential argument registers in va_list format.
@@ -237,16 +253,21 @@ $load_64:
 	nop
 	addq	$30, 16*8, $30
 	ret
+$LFE2:
 
 	.end	ffi_closure_osf
 
+#ifdef __ELF__
 .section .rodata
+#else
+.rdata
+#endif
 $load_table:
 	.gprel32 $load_none	# FFI_TYPE_VOID
 	.gprel32 $load_32	# FFI_TYPE_INT
 	.gprel32 $load_float	# FFI_TYPE_FLOAT
 	.gprel32 $load_double	# FFI_TYPE_DOUBLE
-	.gprel32 $load_double	# FFI_TYPE_LONGDOUBLE
+	.gprel32 $load_none	# FFI_TYPE_LONGDOUBLE
 	.gprel32 $load_u8	# FFI_TYPE_UINT8
 	.gprel32 $load_s8	# FFI_TYPE_SINT8
 	.gprel32 $load_u16	# FFI_TYPE_UINT16
@@ -275,3 +296,66 @@ $load_table:
 	|| FFI_TYPE_LAST != 14
 #error "osf.S out of sync with ffi.h"
 #endif
+
+#ifdef __ELF__
+	.section	.eh_frame,EH_FRAME_FLAGS,@progbits
+__FRAME_BEGIN__:
+	.4byte	$LECIE1-$LSCIE1	# Length of Common Information Entry
+$LSCIE1:
+	.4byte	0x0		# CIE Identifier Tag
+	.byte	0x1		# CIE Version
+	.ascii "zR\0"		# CIE Augmentation
+	.byte	0x1		# uleb128 0x1; CIE Code Alignment Factor
+	.byte	0x78		# sleb128 -8; CIE Data Alignment Factor
+	.byte	26		# CIE RA Column
+	.byte	0x1		# uleb128 0x1; Augmentation size
+	.byte	0x1b		# FDE Encoding (pcrel sdata4)
+	.byte	0xc		# DW_CFA_def_cfa
+	.byte	30		# uleb128 column 30
+	.byte	0		# uleb128 offset 0
+	.align 3
+$LECIE1:
+$LSFDE1:
+	.4byte	$LEFDE1-$LASFDE1		# FDE Length
+$LASFDE1:
+	.4byte	$LASFDE1-__FRAME_BEGIN__	# FDE CIE offset
+	.4byte	$LFB1-.		# FDE initial location
+	.4byte	$LFE1-$LFB1	# FDE address range
+	.byte	0x0		# uleb128 0x0; Augmentation size
+
+	.byte	0x4		# DW_CFA_advance_loc4
+	.4byte	$LCFI1-$LFB1
+	.byte	0x9a		# DW_CFA_offset, column 26
+	.byte	4		# uleb128 4*-8
+	.byte	0x8f		# DW_CFA_offset, column 15
+	.byte	0x3		# uleb128 3*-8
+	.byte	0xc		# DW_CFA_def_cfa
+	.byte	15		# uleb128 column 15
+	.byte	32		# uleb128 offset 32
+
+	.byte	0x4		# DW_CFA_advance_loc4
+	.4byte	$LCFI2-$LCFI1
+	.byte	0xda		# DW_CFA_restore, column 26
+	.align 3
+$LEFDE1:
+
+$LSFDE3:
+	.4byte	$LEFDE3-$LASFDE3		# FDE Length
+$LASFDE3:
+	.4byte	$LASFDE3-__FRAME_BEGIN__	# FDE CIE offset
+	.4byte	$LFB2-.		# FDE initial location
+	.4byte	$LFE2-$LFB2	# FDE address range
+	.byte	0x0		# uleb128 0x0; Augmentation size
+
+	.byte	0x4		# DW_CFA_advance_loc4
+	.4byte	$LCFI5-$LFB2
+	.byte	0xe		# DW_CFA_def_cfa_offset
+	.byte	0x80,0x1	# uleb128 128
+
+	.byte	0x4		# DW_CFA_advance_loc4
+	.4byte	$LCFI6-$LCFI5
+	.byte	0x9a		# DW_CFA_offset, column 26
+	.byte	16		# uleb128 offset 16*-8
+	.align 3
+$LEFDE3:
+#endif