File ffcall-1.10+2.43.dif of Package clisp

Overview Repositories Revisions Requests Users Attributes Meta

File ffcall-1.10+2.43.dif of Package clisp (Revision 2272944893091548f6d195b29ad3d9ce)

Currently displaying revision 2272944893091548f6d195b29ad3d9ce , Show latest

--- ffcall-1.10+2.43/avcall/Makefile.in
+++ ffcall-1.10+2.43/avcall/Makefile.in	2008-02-25 14:49:20.095314920 +0100
@@ -155,34 +155,34 @@ libavcall.la : $(OBJECTS)
 # Installs the library and include files only. Typically called with only
 # $(libdir) and $(includedir) - don't use $(prefix) and $(exec_prefix) here.
 install-lib : all force
-	if [ ! -d $(libdir) ] ; then mkdir $(libdir) ; fi
-	$(LIBTOOL_INSTALL) $(INSTALL_DATA) libavcall.la $(libdir)/libavcall.la
-	if [ ! -d $(includedir) ] ; then mkdir $(includedir) ; fi
-	$(INSTALL_DATA) avcall.h $(includedir)/avcall.h
+	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir -p $(DESTDIR)$(libdir) ; fi
+	$(LIBTOOL_INSTALL) $(INSTALL_DATA) libavcall.la $(DESTDIR)$(libdir)/libavcall.la
+	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir -p $(DESTDIR)$(includedir) ; fi
+	$(INSTALL_DATA) avcall.h $(DESTDIR)$(includedir)/avcall.h
 
 install : all force
-	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir $(DESTDIR)$(prefix) ; fi
-	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir $(DESTDIR)$(exec_prefix) ; fi
-	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir $(DESTDIR)$(libdir) ; fi
+	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir -p $(DESTDIR)$(prefix) ; fi
+	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir -p $(DESTDIR)$(exec_prefix) ; fi
+	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir -p $(DESTDIR)$(libdir) ; fi
 	$(LIBTOOL_INSTALL) $(INSTALL_DATA) libavcall.la $(DESTDIR)$(libdir)/libavcall.la
-	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir $(DESTDIR)$(includedir) ; fi
+	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir -p $(DESTDIR)$(includedir) ; fi
 	$(INSTALL_DATA) avcall.h $(DESTDIR)$(includedir)/avcall.h
-	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir $(DESTDIR)$(mandir) ; fi
-	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir $(DESTDIR)$(mandir)/man3 ; fi
+	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir -p $(DESTDIR)$(mandir) ; fi
+	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir -p $(DESTDIR)$(mandir)/man3 ; fi
 	$(INSTALL_DATA) $(srcdir)/avcall.3 $(DESTDIR)$(mandir)/man3/avcall.3
-	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir $(DESTDIR)$(datadir) ; fi
-	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir $(DESTDIR)$(htmldir) ; fi
+	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir -p $(DESTDIR)$(datadir) ; fi
+	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir -p $(DESTDIR)$(htmldir) ; fi
 	$(INSTALL_DATA) $(srcdir)/avcall.html $(DESTDIR)$(htmldir)/avcall.html
 
 installdirs : force
-	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir $(DESTDIR)$(prefix) ; fi
-	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir $(DESTDIR)$(exec_prefix) ; fi
-	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir $(DESTDIR)$(libdir) ; fi
-	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir $(DESTDIR)$(includedir) ; fi
-	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir $(DESTDIR)$(mandir) ; fi
-	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir $(DESTDIR)$(mandir)/man3 ; fi
-	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir $(DESTDIR)$(datadir) ; fi
-	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir $(DESTDIR)$(htmldir) ; fi
+	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir -p $(DESTDIR)$(prefix) ; fi
+	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir -p $(DESTDIR)$(exec_prefix) ; fi
+	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir -p $(DESTDIR)$(libdir) ; fi
+	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir -p $(DESTDIR)$(includedir) ; fi
+	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir -p $(DESTDIR)$(mandir) ; fi
+	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir -p $(DESTDIR)$(mandir)/man3 ; fi
+	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir -p $(DESTDIR)$(datadir) ; fi
+	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir -p $(DESTDIR)$(htmldir) ; fi
 
 uninstall : force
 	$(LIBTOOL_UNINSTALL) $(RM) $(DESTDIR)$(libdir)/libavcall.la
--- ffcall-1.10+2.43/avcall/avcall-mips.S
+++ ffcall-1.10+2.43/avcall/avcall-mips.S	2008-02-25 14:49:16.398841723 +0100
@@ -1,418 +1,406 @@
-#include "asmmips.h"
 	.file	1 "avcall-mips.c"
-	.set	nobopt
+	.section .mdebug.abi32
+	.previous
+	.abicalls
 	.text
 	.align	2
 	.globl	__builtin_avcall
-	DECLARE_FUNCTION(__builtin_avcall)
-
-	.text
-	.text
 	.ent	__builtin_avcall
+	.type	__builtin_avcall, @function
 __builtin_avcall:
-	.frame	$fp,32,$31		
-	.mask	0xc0010000,-8
+	.frame	$fp,96,$31		# vars= 56, regs= 3/0, args= 16, extra= 8
+	.mask	0xd0000000,-8
 	.fmask	0x00000000,0
-	subu	$sp,$sp,32
-	sw	$fp,20($sp)
+	.set	noreorder
+	.cpload	$25
+	.set	reorder
+	subu	$sp,$sp,96
+	.cprestore 16
+	sw	$31,88($sp)
+	sw	$fp,84($sp)
+	sw	$28,80($sp)
 	move	$fp,$sp
-	sw	$31,24($sp)
-	sw	$16,16($sp)
+	sw	$4,96($fp)
 	addu	$sp,$sp,-1024
-	move	$16,$4
-	move	$4,$sp
-	lw	$3,20($16)
-	lw	$2,4($16)
-	addu	$3,$3,-48
-	subu	$3,$3,$16
+	addu	$2,$sp,16
+	sw	$2,24($fp)
+	sw	$sp,28($fp)
+	lw	$2,96($fp)
+	lw	$3,20($2)
+	lw	$2,96($fp)
+	subu	$2,$3,$2
+	addu	$2,$2,-56
+	sra	$2,$2,2
+	sw	$2,32($fp)
+	lw	$2,96($fp)
+	lw	$2,4($2)
 	andi	$2,$2,0x400
-	.set	noreorder
-	.set	nomacro
+	beq	$2,$0,$L2
+	lw	$2,96($fp)
+#APP
+	l.s $f12,28($2)
+#NO_APP
+$L2:
+	lw	$2,96($fp)
+	lw	$2,4($2)
+	andi	$2,$2,0x1000
 	beq	$2,$0,$L3
-	sra	$3,$3,2
-	.set	macro
-	.set	reorder
-
- 
-	l.d $f12,32($16)
- 
-	lw	$2,4($16)
-	
-	andi	$2,$2,0x800
-	.set	noreorder
-	.set	nomacro
-	beq	$2,$0,$L65
-	li	$6,4			
-	.set	macro
-	.set	reorder
-
- 
-	l.d $f14,40($16)
- 
+	lw	$2,96($fp)
+#APP
+	l.d $f12,40($2)
+#NO_APP
 $L3:
-	li	$6,4			
-$L65:
-	slt	$2,$6,$3
-	.set	noreorder
-	.set	nomacro
-	beq	$2,$0,$L6
-	addu	$5,$4,16
-	.set	macro
-	.set	reorder
-
-	addu	$4,$16,64
-	addu	$6,$3,-4
-$L8:
-	lw	$2,0($4)
-	addu	$4,$4,4
-	addu	$6,$6,-1
-	sw	$2,0($5)
-	.set	noreorder
-	.set	nomacro
-	bne	$6,$0,$L8
-	addu	$5,$5,4
-	.set	macro
-	.set	reorder
-
+	lw	$2,96($fp)
+	lw	$2,4($2)
+	andi	$2,$2,0x800
+	beq	$2,$0,$L4
+	lw	$2,96($fp)
+	lw	$2,4($2)
+	andi	$2,$2,0x1400
+	beq	$2,$0,$L4
+	lw	$2,96($fp)
+#APP
+	l.s $f14,32($2)
+#NO_APP
+$L4:
+	lw	$2,96($fp)
+	lw	$2,4($2)
+	andi	$2,$2,0x2000
+	beq	$2,$0,$L5
+	lw	$2,96($fp)
+	lw	$2,4($2)
+	andi	$2,$2,0x1400
+	beq	$2,$0,$L5
+	lw	$2,96($fp)
+#APP
+	l.d $f14,48($2)
+#NO_APP
+$L5:
+	li	$2,4			# 0x4
+	sw	$2,36($fp)
 $L6:
-	lw	$25,0($16)
-	lw	$4,48($16)
-	lw	$5,52($16)
-	lw	$6,56($16)
-	lw	$7,60($16)
+	lw	$2,36($fp)
+	lw	$3,32($fp)
+	slt	$2,$2,$3
+	bne	$2,$0,$L9
+	b	$L7
+$L9:
+	lw	$2,36($fp)
+	sll	$3,$2,2
+	lw	$2,28($fp)
+	addu	$4,$3,$2
+	lw	$3,96($fp)
+	lw	$2,36($fp)
+	sll	$2,$2,2
+	addu	$2,$2,$3
+	addu	$2,$2,56
+	lw	$2,0($2)
+	sw	$2,0($4)
+	lw	$2,36($fp)
+	addu	$2,$2,1
+	sw	$2,36($fp)
+	b	$L6
+$L7:
+	lw	$2,96($fp)
+	lw	$25,0($2)
+	lw	$2,96($fp)
+	lw	$3,96($fp)
+	lw	$6,96($fp)
+	lw	$7,96($fp)
+	lw	$4,56($2)
+	lw	$5,60($3)
+	lw	$6,64($6)
+	lw	$7,68($7)
 	jal	$31,$25
-	move	$6,$2
-	lw	$4,12($16)
-	li	$2,1			
-	.set	noreorder
-	.set	nomacro
-	beq	$4,$2,$L64
-	move	$2,$0
-	.set	macro
-	.set	reorder
-
-	.set	noreorder
-	.set	nomacro
-	beq	$4,$0,$L61
-	li	$2,2			
-	.set	macro
-	.set	reorder
-
-	.set	noreorder
-	.set	nomacro
-	beq	$4,$2,$L62
-	li	$2,3			
-	.set	macro
-	.set	reorder
-
-	.set	noreorder
-	.set	nomacro
-	beq	$4,$2,$L62
-	li	$2,4			
-	.set	macro
-	.set	reorder
-
-	.set	noreorder
-	.set	nomacro
-	beq	$4,$2,$L62
-	li	$2,5			
-	.set	macro
-	.set	reorder
-
-	.set	noreorder
-	.set	nomacro
-	beq	$4,$2,$L63
-	li	$2,6			
-	.set	macro
-	.set	reorder
-
-	.set	noreorder
-	.set	nomacro
-	beq	$4,$2,$L63
-	li	$2,7			
-	.set	macro
-	.set	reorder
-
-	.set	noreorder
-	.set	nomacro
-	beq	$4,$2,$L61
-	li	$2,8			
-	.set	macro
-	.set	reorder
-
-	.set	noreorder
-	.set	nomacro
-	beq	$4,$2,$L61
-	li	$2,9			
-	.set	macro
-	.set	reorder
-
-	.set	noreorder
-	.set	nomacro
-	beq	$4,$2,$L61
-	li	$2,10			
-	.set	macro
-	.set	reorder
-
-	.set	noreorder
-	.set	nomacro
-	beq	$4,$2,$L61
-	addu	$2,$4,-11
-	.set	macro
-	.set	reorder
-
-	sltu	$2,$2,2
-	.set	noreorder
-	.set	nomacro
-	beq	$2,$0,$L32
-	li	$2,13			
-	.set	macro
-	.set	reorder
-
-	lw	$2,8($16)
-	
-	sw	$6,0($2)
-	lw	$4,8($16)
-	.set	noreorder
-	.set	nomacro
-	j	$L11
-	sw	$3,4($4)
-	.set	macro
-	.set	reorder
-
-$L32:
-	.set	noreorder
-	.set	nomacro
-	bne	$4,$2,$L34
-	li	$2,14			
-	.set	macro
-	.set	reorder
-
-	lw	$2,8($16)
-	.set	noreorder
-	.set	nomacro
-	j	$L11
+	sw	$2,40($fp)
+#ifdef _MIPSEB
+	sw	$3,52($fp)
+#else
+	sw	$3,48($fp)
+#endif
+	sra	$2,$3,31
+#ifdef _MIPSEB
+	sw	$2,48($fp)
+#else
+	sw	$2,52($fp)
+#endif
+	s.s	$f0,56($fp)
+	s.d	$f0,64($fp)
+	lw	$2,96($fp)
+	sw	$2,76($fp)
+	lw	$3,76($fp)
+	lw	$2,12($3)
+	sltu	$2,$2,17
+	beq	$2,$0,$L10
+	lw	$3,76($fp)
+	lw	$2,12($3)
+	sll	$3,$2,2
+	la	$2,$L48
+	addu	$2,$3,$2
+	lw	$2,0($2)
+	.cpadd	$2
+	j	$2
+	.rdata
+	.align	2
+$L48:
+	.gpword	$L13
+	.gpword	$L10
+	.gpword	$L14
+	.gpword	$L15
+	.gpword	$L16
+	.gpword	$L17
+	.gpword	$L18
+	.gpword	$L19
+	.gpword	$L20
+	.gpword	$L21
+	.gpword	$L22
+	.gpword	$L24
+	.gpword	$L24
+	.gpword	$L25
+	.gpword	$L26
+	.gpword	$L27
+	.gpword	$L28
+	.text
+$L13:
+	lw	$2,96($fp)
+	lw	$3,8($2)
+	lw	$2,40($fp)
+	sw	$2,0($3)
+	b	$L10
+$L14:
+	lw	$2,96($fp)
+	lw	$3,8($2)
+#ifdef _MIPSEB
+	lbu	$2,43($fp)
+#else
+	lbu	$2,40($fp)
+#endif
+	sb	$2,0($3)
+	b	$L10
+$L15:
+	lw	$2,96($fp)
+	lw	$3,8($2)
+#ifdef _MIPSEB
+	lbu	$2,43($fp)
+#else
+	lbu	$2,40($fp)
+#endif
+	sb	$2,0($3)
+	b	$L10
+$L16:
+	lw	$2,96($fp)
+	lw	$3,8($2)
+#ifdef _MIPSEB
+	lbu	$2,43($fp)
+#else
+	lbu	$2,40($fp)
+#endif
+	sb	$2,0($3)
+	b	$L10
+$L17:
+	lw	$2,96($fp)
+	lw	$3,8($2)
+#ifdef _MIPSEB
+	lhu	$2,42($fp)
+#else
+	lhu	$2,40($fp)
+#endif
+	sh	$2,0($3)
+	b	$L10
+$L18:
+	lw	$2,96($fp)
+	lw	$3,8($2)
+#ifdef _MIPSEB
+	lhu	$2,42($fp)
+#else
+	lhu	$2,40($fp)
+#endif
+	sh	$2,0($3)
+	b	$L10
+$L19:
+	lw	$2,96($fp)
+	lw	$3,8($2)
+	lw	$2,40($fp)
+	sw	$2,0($3)
+	b	$L10
+$L20:
+	lw	$2,96($fp)
+	lw	$3,8($2)
+	lw	$2,40($fp)
+	sw	$2,0($3)
+	b	$L10
+$L21:
+	lw	$2,96($fp)
+	lw	$3,8($2)
+	lw	$2,40($fp)
+	sw	$2,0($3)
+	b	$L10
+$L22:
+	lw	$2,96($fp)
+	lw	$3,8($2)
+	lw	$2,40($fp)
+	sw	$2,0($3)
+	b	$L10
+$L24:
+	lw	$2,96($fp)
+	lw	$3,8($2)
+	lw	$2,40($fp)
+	sw	$2,0($3)
+	lw	$2,96($fp)
+	lw	$2,8($2)
+	addu	$3,$2,4
+#ifdef _MIPSEB
+	lw	$2,52($fp)
+#else
+	lw	$2,48($fp)
+#endif
+	sw	$2,0($3)
+	b	$L10
+$L25:
+	lw	$2,96($fp)
+	lw	$2,8($2)
+	l.s	$f0,56($fp)
 	s.s	$f0,0($2)
-	.set	macro
-	.set	reorder
-
-$L34:
-	.set	noreorder
-	.set	nomacro
-	bne	$4,$2,$L36
-	li	$2,15			
-	.set	macro
-	.set	reorder
-
-	lw	$2,8($16)
-	
+	b	$L10
+$L26:
+	lw	$2,96($fp)
+	lw	$2,8($2)
+	l.d	$f0,64($fp)
 	s.d	$f0,0($2)
-	.set	noreorder
-	.set	nomacro
-	j	$L64
-	move	$2,$0
-	.set	macro
-	.set	reorder
-
-$L36:
-	.set	noreorder
-	.set	nomacro
-	beq	$4,$2,$L61
-	li	$2,16			
-	.set	macro
-	.set	reorder
-
-	.set	noreorder
-	.set	nomacro
-	bne	$4,$2,$L64
-	move	$2,$0
-	.set	macro
-	.set	reorder
-
-	lw	$3,4($16)
-	
-	andi	$2,$3,0x1
-	.set	noreorder
-	.set	nomacro
-	beq	$2,$0,$L41
-	li	$2,1			
-	.set	macro
-	.set	reorder
-
-	lw	$3,16($16)
-	
-	.set	noreorder
-	.set	nomacro
-	bne	$3,$2,$L42
-	li	$2,2			
-	.set	macro
-	.set	reorder
-
-	lw	$3,8($16)
-	lbu	$2,0($6)
-	.set	noreorder
-	.set	nomacro
-	j	$L11
+	b	$L10
+$L27:
+	lw	$2,96($fp)
+	lw	$3,8($2)
+	lw	$2,40($fp)
+	sw	$2,0($3)
+	b	$L10
+$L28:
+	lw	$2,96($fp)
+	lw	$2,4($2)
+	andi	$2,$2,0x1
+	beq	$2,$0,$L29
+	lw	$2,96($fp)
+	lw	$3,16($2)
+	li	$2,1			# 0x1
+	bne	$3,$2,$L30
+	lw	$2,96($fp)
+	lw	$3,8($2)
+	lw	$2,40($fp)
+	lbu	$2,0($2)
 	sb	$2,0($3)
-	.set	macro
-	.set	reorder
-
-$L42:
-	.set	noreorder
-	.set	nomacro
-	bne	$3,$2,$L44
-	li	$2,4			
-	.set	macro
-	.set	reorder
-
-	lw	$3,8($16)
-	lhu	$2,0($6)
-	.set	noreorder
-	.set	nomacro
-	j	$L11
+	b	$L10
+$L30:
+	lw	$2,96($fp)
+	lw	$3,16($2)
+	li	$2,2			# 0x2
+	bne	$3,$2,$L32
+	lw	$2,96($fp)
+	lw	$3,8($2)
+	lw	$2,40($fp)
+	lhu	$2,0($2)
 	sh	$2,0($3)
-	.set	macro
-	.set	reorder
-
-$L44:
-	.set	noreorder
-	.set	nomacro
-	bne	$3,$2,$L46
-	li	$2,8			
-	.set	macro
-	.set	reorder
-
-	lw	$3,8($16)
-	lw	$2,0($6)
-	.set	noreorder
-	.set	nomacro
-	j	$L11
+	b	$L10
+$L32:
+	lw	$2,96($fp)
+	lw	$3,16($2)
+	li	$2,4			# 0x4
+	bne	$3,$2,$L34
+	lw	$2,96($fp)
+	lw	$3,8($2)
+	lw	$2,40($fp)
+	lw	$2,0($2)
 	sw	$2,0($3)
-	.set	macro
-	.set	reorder
-
-$L46:
-	.set	noreorder
-	.set	nomacro
-	bne	$3,$2,$L48
-	addu	$2,$3,3
-	.set	macro
-	.set	reorder
-
-	lw	$3,8($16)
-	lw	$2,0($6)
-	
+	b	$L10
+$L34:
+	lw	$2,96($fp)
+	lw	$3,16($2)
+	li	$2,8			# 0x8
+	bne	$3,$2,$L36
+	lw	$2,96($fp)
+	lw	$3,8($2)
+	lw	$2,40($fp)
+	lw	$2,0($2)
 	sw	$2,0($3)
-	lw	$4,8($16)
-	lw	$2,4($6)
-	.set	noreorder
-	.set	nomacro
-	j	$L11
-	sw	$2,4($4)
-	.set	macro
-	.set	reorder
-
-$L48:
-	srl	$5,$2,2
-	addu	$5,$5,-1
-	.set	noreorder
-	.set	nomacro
-	bltz	$5,$L11
-	sll	$2,$5,2
-	.set	macro
-	.set	reorder
-
-	addu	$6,$2,$6
-$L52:
-	lw	$2,0($6)
-	addu	$6,$6,-4
-	sll	$3,$5,2
-	lw	$4,8($16)
-	addu	$5,$5,-1
-	addu	$3,$3,$4
-	.set	noreorder
-	.set	nomacro
-	bgez	$5,$L52
+	lw	$2,96($fp)
+	lw	$2,8($2)
+	addu	$3,$2,4
+	lw	$2,40($fp)
+	addu	$2,$2,4
+	lw	$2,0($2)
 	sw	$2,0($3)
-	.set	macro
-	.set	reorder
-
-	.set	noreorder
-	.set	nomacro
-	j	$L64
-	move	$2,$0
-	.set	macro
-	.set	reorder
-
-$L41:
-	andi	$2,$3,0x2
-	.set	noreorder
-	.set	nomacro
-	beq	$2,$0,$L11
-	li	$2,1			
-	.set	macro
-	.set	reorder
-
-	lw	$3,16($16)
-	
-	.set	noreorder
-	.set	nomacro
-	bne	$3,$2,$L56
-	li	$2,2			
-	.set	macro
-	.set	reorder
-
-$L62:
-	lw	$2,8($16)
-	.set	noreorder
-	.set	nomacro
-	j	$L11
-	sb	$6,0($2)
-	.set	macro
-	.set	reorder
-
-$L56:
-	.set	noreorder
-	.set	nomacro
-	bne	$3,$2,$L58
-	li	$2,4			
-	.set	macro
-	.set	reorder
-
-$L63:
-	lw	$2,8($16)
-	.set	noreorder
-	.set	nomacro
-	j	$L11
-	sh	$6,0($2)
-	.set	macro
-	.set	reorder
-
-$L58:
-	.set	noreorder
-	.set	nomacro
-	bne	$3,$2,$L64
-	move	$2,$0
-	.set	macro
-	.set	reorder
-
-$L61:
-	lw	$2,8($16)
-	
-	sw	$6,0($2)
-$L11:
+	b	$L10
+$L36:
+	lw	$2,96($fp)
+	lw	$2,16($2)
+	addu	$2,$2,3
+	srl	$2,$2,2
+	sw	$2,72($fp)
+$L38:
+	lw	$2,72($fp)
+	addu	$2,$2,-1
+	sw	$2,72($fp)
+	bgez	$2,$L40
+	b	$L10
+$L40:
+	lw	$4,96($fp)
+	lw	$2,72($fp)
+	sll	$3,$2,2
+	lw	$2,8($4)
+	addu	$4,$3,$2
+	lw	$2,72($fp)
+	sll	$3,$2,2
+	lw	$2,40($fp)
+	addu	$2,$3,$2
+	lw	$2,0($2)
+	sw	$2,0($4)
+	b	$L38
+$L29:
+	lw	$2,96($fp)
+	lw	$2,4($2)
+	andi	$2,$2,0x2
+	beq	$2,$0,$L10
+	lw	$2,96($fp)
+	lw	$3,16($2)
+	li	$2,1			# 0x1
+	bne	$3,$2,$L43
+	lw	$2,96($fp)
+	lw	$3,8($2)
+#ifdef _MIPSEB
+	lbu	$2,43($fp)
+#else
+	lbu	$2,40($fp)
+#endif
+	sb	$2,0($3)
+	b	$L10
+$L43:
+	lw	$2,96($fp)
+	lw	$3,16($2)
+	li	$2,2			# 0x2
+	bne	$3,$2,$L45
+	lw	$2,96($fp)
+	lw	$3,8($2)
+#ifdef _MIPSEB
+	lhu	$2,42($fp)
+#else
+	lhu	$2,40($fp)
+#endif
+	sh	$2,0($3)
+	b	$L10
+$L45:
+	lw	$2,96($fp)
+	lw	$3,16($2)
+	li	$2,4			# 0x4
+	bne	$3,$2,$L10
+	lw	$2,96($fp)
+	lw	$3,8($2)
+	lw	$2,40($fp)
+	sw	$2,0($3)
+$L10:
 	move	$2,$0
-$L64:
 	move	$sp,$fp
-	lw	$31,24($sp)
-	lw	$fp,20($sp)
-	lw	$16,16($sp)
-	
-	.set	noreorder
-	.set	nomacro
+	lw	$31,88($sp)
+	lw	$fp,84($sp)
+	addu	$sp,$sp,96
 	j	$31
-	addu	$sp,$sp,32
-	.set	macro
-	.set	reorder
-
 	.end	__builtin_avcall
+	.ident	"GCC: (GNU) 3.3.5 (Debian 1:3.3.5-8)"
--- ffcall-1.10+2.43/avcall/avcall-mips.c
+++ ffcall-1.10+2.43/avcall/avcall-mips.c	2008-02-25 14:49:16.418844285 +0100
@@ -3,6 +3,7 @@
 /**
   Copyright 1993 Bill Triggs, <Bill.Triggs@inrialpes.fr>
   Copyright 1995-1999 Bruno Haible, <bruno@clisp.org>
+  Copyright 2005 Thiemo Seufer  <ths@debian.org>
 
   This is free software distributed under the GNU General Public
   Licence described in the file COPYING. Contact the author if
@@ -49,108 +50,122 @@ register func_pointer	t9	__asm__("$25");
 int
 __builtin_avcall(av_alist* l)
 {
-  register __avword*	sp	__asm__("$sp");  /* C names for registers */
-  register __avword	iret2	__asm__("$3");
-  register float	fret	__asm__("$f0");
-  register double	dret	__asm__("$f0");
+  register __avword*	sp __asm__("$sp");  /* C names for registers */
+  register __avword	iret2_tmp __asm__("$3");
+  register float	fret_tmp __asm__("$f0");
+  register double	dret_tmp __asm__("$f0");
   __avword *space = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword));	/* big space for child's stack frame */
   __avword *argframe = (__avword*)sp;	/* stack offset for argument list is 0 */
   int arglen = l->aptr - l->args;
-  __avword i;
-
-  if (l->flags & __AV_FLOAT_1)		/* push leading float args */
-  {
-    __asm__("l.d $f12,%1(%0)" : : "p" (l), "i" OFFSETOF(av_alist,floatarg[0]));
-    if (l->flags & __AV_FLOAT_2)
-      __asm__("l.d $f14,%1(%0)" : : "p" (l), "i" OFFSETOF(av_alist,floatarg[1]));
-  }
+  int i;
+  __avword iret;
+  long long iret2;
+  float fret;
+  double dret;
+
+  /* load leading float args */	
+  if (l->flags & __AV_FLOAT_1)
+    __asm__("l.s $f12,%1(%0)" : : "p" (l), "i" OFFSETOF(av_alist,floatarg[0]));
+  if (l->flags & __AV_DOUBLE_1)
+    __asm__("l.d $f12,%1(%0)" : : "p" (l), "i" OFFSETOF(av_alist,doublearg[0]));
+  if ((l->flags & __AV_FLOAT_2) && (l->flags & (__AV_FLOAT_1 | __AV_DOUBLE_1)))
+    __asm__("l.s $f14,%1(%0)" : : "p" (l), "i" OFFSETOF(av_alist,floatarg[1]));
+  if ((l->flags & __AV_DOUBLE_2) && (l->flags & (__AV_FLOAT_1 | __AV_DOUBLE_1)))
+    __asm__("l.d $f14,%1(%0)" : : "p" (l), "i" OFFSETOF(av_alist,doublearg[1]));
 
   for (i = 4; i < arglen; i++)		/* push excess function args */
     argframe[i] = l->args[i];
 
-  i = (*(t9 = l->func))(l->args[0], l->args[1],  /* call function with 1st 4 args */
-			l->args[2], l->args[3]);
+  iret = (*(t9 = l->func))(l->args[0], l->args[1],  /* call function with 1st 4 args */
+			   l->args[2], l->args[3]);
+  iret2 = iret2_tmp;
+  fret = fret_tmp;
+  dret = dret_tmp;
 
   /* save return value */
-  if (l->rtype == __AVvoid) {
-  } else
-  if (l->rtype == __AVword) {
-    RETURN(__avword, i);
-  } else
-  if (l->rtype == __AVchar) {
-    RETURN(char, i);
-  } else
-  if (l->rtype == __AVschar) {
-    RETURN(signed char, i);
-  } else
-  if (l->rtype == __AVuchar) {
-    RETURN(unsigned char, i);
-  } else
-  if (l->rtype == __AVshort) {
-    RETURN(short, i);
-  } else
-  if (l->rtype == __AVushort) {
-    RETURN(unsigned short, i);
-  } else
-  if (l->rtype == __AVint) {
-    RETURN(int, i);
-  } else
-  if (l->rtype == __AVuint) {
-    RETURN(unsigned int, i);
-  } else
-  if (l->rtype == __AVlong) {
-    RETURN(long, i);
-  } else
-  if (l->rtype == __AVulong) {
-    RETURN(unsigned long, i);
-  } else
-  if (l->rtype == __AVlonglong || l->rtype == __AVulonglong) {
-    ((__avword*)l->raddr)[0] = i;
+  switch (l->rtype) {
+  default:
+  case __AVvoid:
+    break;
+  case __AVword:
+    RETURN(__avword, iret);
+    break;
+  case __AVchar:
+    RETURN(char, iret);
+    break;
+  case __AVschar:
+    RETURN(signed char, iret);
+    break;
+  case __AVuchar:
+    RETURN(unsigned char, iret);
+    break;
+  case __AVshort:
+    RETURN(short, iret);
+    break;
+  case __AVushort:
+    RETURN(unsigned short, iret);
+    break;
+  case __AVint:
+    RETURN(int, iret);
+    break;
+  case __AVuint:
+    RETURN(unsigned int, iret);
+    break;
+  case __AVlong:
+    RETURN(long, iret);
+    break;
+  case __AVulong:
+    RETURN(unsigned long, iret);
+    break;
+  case __AVlonglong:
+  case __AVulonglong:
+    ((__avword*)l->raddr)[0] = (__avword)(iret);
     ((__avword*)l->raddr)[1] = iret2;
-  } else
-  if (l->rtype == __AVfloat) {
+    break;
+  case __AVfloat:
     RETURN(float, fret);
-  } else
-  if (l->rtype == __AVdouble) {
+    break;
+  case __AVdouble:
     RETURN(double, dret);
-  } else
-  if (l->rtype == __AVvoidp) {
-    RETURN(void*, i);
-  } else
-  if (l->rtype == __AVstruct) {
+    break;
+  case __AVvoidp:
+    RETURN(void*, (__avword)iret);
+    break;
+  case __AVstruct:
     if (l->flags & __AV_PCC_STRUCT_RETURN) {
       /* pcc struct return convention: need a  *(TYPE*)l->raddr = *(TYPE*)i;  */
       if (l->rsize == sizeof(char)) {
-        RETURN(char, *(char*)i);
+        RETURN(char, *(char*)(__avword)iret);
       } else
       if (l->rsize == sizeof(short)) {
-        RETURN(short, *(short*)i);
+        RETURN(short, *(short*)(__avword)iret);
       } else
       if (l->rsize == sizeof(int)) {
-        RETURN(int, *(int*)i);
+        RETURN(int, *(int*)(__avword)iret);
       } else
       if (l->rsize == sizeof(double)) {
-        ((int*)l->raddr)[0] = ((int*)i)[0];
-        ((int*)l->raddr)[1] = ((int*)i)[1];
+        ((int*)l->raddr)[0] = ((int*)(__avword)iret)[0];
+        ((int*)l->raddr)[1] = ((int*)(__avword)iret)[1];
       } else {
         int n = (l->rsize + sizeof(__avword)-1)/sizeof(__avword);
         while (--n >= 0)
-          ((__avword*)l->raddr)[n] = ((__avword*)i)[n];
+          ((__avword*)l->raddr)[n] = ((__avword*)(__avword)iret)[n];
       }
     } else {
       /* normal struct return convention */
       if (l->flags & __AV_SMALL_STRUCT_RETURN) {
         if (l->rsize == sizeof(char)) {
-          RETURN(char, i);
+          RETURN(char, iret);
         } else
         if (l->rsize == sizeof(short)) {
-          RETURN(short, i);
+          RETURN(short, iret);
         } else
         if (l->rsize == sizeof(int)) {
-          RETURN(int, i);
+          RETURN(int, iret);
         }
       }
     }
+    break;
   }
   return 0;
 }
--- ffcall-1.10+2.43/avcall/avcall.h.in
+++ ffcall-1.10+2.43/avcall/avcall.h.in	2008-02-25 14:49:16.398841723 +0100
@@ -286,9 +286,11 @@ enum __AV_alist_flags
 #if defined(__i386__) || defined(__m68k__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__alpha__) || defined(__arm__) || (defined(__powerpc__) && !defined(__powerpc64__)) || defined(__convex__) || defined(__ia64__) || defined(__x86_64__) || defined(__s390__)
   __AV_REGISTER_STRUCT_RETURN	= 1<<9,
 #endif
-#if defined(__mips__) && !defined(__mipsn32__)
+#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)
   __AV_FLOAT_1			= 1<<10,
   __AV_FLOAT_2			= 1<<11,
+  __AV_DOUBLE_1			= 1<<12,
+  __AV_DOUBLE_2			= 1<<13,
 #endif
 
   __AV_flag_for_broken_compilers_that_dont_like_trailing_commas
@@ -330,10 +332,11 @@ typedef struct
   __avword*		iaptr;
   __avword		iargs[6];
 #endif
-#if defined(__mips__) && !defined(__mipsn32__)
+#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)
   /* store the floating-point arguments in an extra array */
   int			anum;
-  double		floatarg[2];
+  float			floatarg[2];
+  double		doublearg[2];
 #endif
 #if defined(__mipsn32__) || defined(__mips64__)
   /* store the floating-point arguments in an extra array */
@@ -410,7 +413,7 @@ typedef struct
 #define __av_start1(LIST)						\
    (LIST).aptr = &(LIST).args[0],
 #endif
-#if defined(__mips__) && !defined(__mipsn32__)
+#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)
 #define __av_start1(LIST)						\
    (LIST).anum = 0,							\
    (LIST).aptr = &(LIST).args[0],
@@ -569,7 +572,7 @@ typedef struct
 #define __av_start_struct3(LIST)  \
   0
 #endif
-#if defined(__mips__) && !defined(__mipsn32__)
+#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)
 #define __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE)  \
   ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4)
 /* Test __AV_SMALL_STRUCT_RETURN instead of __AV_REGISTER_STRUCT_RETURN. */
@@ -737,7 +740,7 @@ typedef struct
 /* `long long' fits in __avword. */
 #define av_longlong		__av_word
 #define av_ulonglong(LIST,VAL)	__av_word(LIST,(unsigned long long)(VAL))
-#elif defined(__i386__) || defined(__m68k__) || defined(__mips__) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__hppa__) || defined(__arm__) || defined(__powerpc__) || defined(__m88k__) || defined(__convex__) || defined(__s390__)
+#elif defined(__i386__) || defined(__m68k__) || (defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__hppa__) || defined(__arm__) || defined(__powerpc__) || defined(__m88k__) || defined(__convex__) || defined(__s390__)
 /* `long long's are passed embedded on the arg stack. */
 #define av_longlong(LIST,VAL)	__av_longlong(LIST,long long,VAL)
 #define av_ulonglong(LIST,VAL)	__av_longlong(LIST,unsigned long long,VAL)
@@ -804,7 +807,7 @@ typedef struct
 
 #endif
 
-#if defined(__mips__) && !defined(__mipsn32__)
+#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)
 
 /* Up to 2 leading float or double non-varargs args can be passed in
  * float registers, but we also push them into the corresponding int
@@ -815,22 +818,22 @@ typedef struct
   (++(LIST).aptr > __av_eptr(LIST)					\
    ? -1 : ((++(LIST).anum == 1						\
 	    ? ((LIST).flags |= __AV_FLOAT_1,				\
-	       ((float*)(LIST).floatarg)[1] = ((float*)(LIST).aptr)[-1] = (float)(VAL))\
-	    : (LIST).anum == 2 && ((LIST).flags & __AV_FLOAT_1)		\
+	       (LIST).floatarg[0] = ((float*)(LIST).aptr)[-1] = (float)(VAL))\
+	    : (LIST).anum == 2 && (((LIST).flags & __AV_FLOAT_1) || ((LIST).flags & __AV_DOUBLE_1))\
 	    ? ((LIST).flags |= __AV_FLOAT_2,				\
-	       ((float*)(LIST).floatarg)[3] = ((float*)(LIST).aptr)[-1] = (float)(VAL))\
-	    : (*(float*)&(LIST).aptr[-1] = (float)(VAL))),		\
+	       (LIST).floatarg[1] = ((float*)(LIST).aptr)[-1] = (float)(VAL))\
+	    : (((float*)(LIST).aptr)[-1] = (float)(VAL))),		\
 	   0))
 
 #define av_double(LIST,VAL)						\
   (((LIST).aptr = (__avword*)(((__avword)(LIST).aptr+15)&-8))		\
    > __av_eptr(LIST)							\
    ? -1 : ((++(LIST).anum == 1						\
-	    ? ((LIST).flags |= __AV_FLOAT_1,				\
-	       (LIST).floatarg[0] = ((double*)(LIST).aptr)[-1] = (double)(VAL))\
-	    : (LIST).anum == 2 && ((LIST).flags & __AV_FLOAT_1)		\
-	    ? ((LIST).flags |= __AV_FLOAT_2,				\
-	       (LIST).floatarg[1] = ((double*)(LIST).aptr)[-1] = (double)(VAL))\
+	    ? ((LIST).flags |= __AV_DOUBLE_1,				\
+	       (LIST).doublearg[0] = ((double*)(LIST).aptr)[-1] = (double)(VAL))\
+	    : (LIST).anum == 2 && (((LIST).flags & __AV_FLOAT_1) || ((LIST).flags & __AV_DOUBLE_1))\
+	    ? ((LIST).flags |= __AV_DOUBLE_2,				\
+	       (LIST).doublearg[1] = ((double*)(LIST).aptr)[-1] = (double)(VAL))\
 	    : (((double*)(LIST).aptr)[-1] = (double)(VAL))),		\
 	   0))
 
@@ -1132,7 +1135,7 @@ typedef struct
 	    0)))
 #endif
 /* small structures < 1 word are adjusted depending on compiler */
-#if defined(__mips__) && !defined(__mipsn32__)
+#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)
 #define __av_struct_leftadjusted(LIST,TYPE,TYPE_SIZE,TYPE_ALIGN,ASSIGN,VAL) \
   (((LIST).aptr =							\
     (__avword*)(((__avword)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(long)(TYPE_ALIGN)))\
--- ffcall-1.10+2.43/callback/Makefile.in
+++ ffcall-1.10+2.43/callback/Makefile.in	2008-02-25 14:49:20.095314920 +0100
@@ -67,36 +67,36 @@ libcallback.la : vacall_r/libvacall.la t
 # $(libdir) and $(includedir) - don't use $(prefix) and $(exec_prefix) here.
 install-lib : all force
 	cd @subdir@; $(MAKE) install-lib libdir='$(libdir)' includedir='$(includedir)'
-	if [ ! -d $(libdir) ] ; then mkdir $(libdir) ; fi
-	$(LIBTOOL_INSTALL) $(INSTALL_DATA) libcallback.la $(libdir)/libcallback.la
-	if [ ! -d $(includedir) ] ; then mkdir $(includedir) ; fi
-	$(INSTALL_DATA) callback.h $(includedir)/callback.h
+	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir -p $(DESTDIR)$(libdir) ; fi
+	$(LIBTOOL_INSTALL) $(INSTALL_DATA) libcallback.la $(DESTDIR)$(libdir)/libcallback.la
+	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir -p $(DESTDIR)$(includedir) ; fi
+	$(INSTALL_DATA) callback.h $(DESTDIR)$(includedir)/callback.h
 
 install : force
 	cd @subdir@; $(MAKE) install
-	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir $(DESTDIR)$(prefix) ; fi
-	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir $(DESTDIR)$(exec_prefix) ; fi
-	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir $(DESTDIR)$(libdir) ; fi
+	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir -p $(DESTDIR)$(prefix) ; fi
+	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir -p $(DESTDIR)$(exec_prefix) ; fi
+	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir -p $(DESTDIR)$(libdir) ; fi
 	$(LIBTOOL_INSTALL) $(INSTALL_DATA) libcallback.la $(DESTDIR)$(libdir)/libcallback.la
-	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir $(DESTDIR)$(includedir) ; fi
+	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir -p $(DESTDIR)$(includedir) ; fi
 	$(INSTALL_DATA) callback.h $(DESTDIR)$(includedir)/callback.h
-	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir $(DESTDIR)$(mandir) ; fi
-	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir $(DESTDIR)$(mandir)/man3 ; fi
+	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir -p $(DESTDIR)$(mandir) ; fi
+	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir -p $(DESTDIR)$(mandir)/man3 ; fi
 	$(INSTALL_DATA) $(srcdir)/callback.3 $(DESTDIR)$(mandir)/man3/callback.3
-	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir $(DESTDIR)$(datadir) ; fi
-	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir $(DESTDIR)$(htmldir) ; fi
+	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir -p $(DESTDIR)$(datadir) ; fi
+	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir -p $(DESTDIR)$(htmldir) ; fi
 	$(INSTALL_DATA) $(srcdir)/callback.html $(DESTDIR)$(htmldir)/callback.html
 
 installdirs : force
 	cd @subdir@; $(MAKE) installdirs
-	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir $(DESTDIR)$(prefix) ; fi
-	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir $(DESTDIR)$(exec_prefix) ; fi
-	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir $(DESTDIR)$(libdir) ; fi
-	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir $(DESTDIR)$(includedir) ; fi
-	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir $(DESTDIR)$(mandir) ; fi
-	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir $(DESTDIR)$(mandir)/man3 ; fi
-	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir $(DESTDIR)$(datadir) ; fi
-	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir $(DESTDIR)$(htmldir) ; fi
+	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir -p $(DESTDIR)$(prefix) ; fi
+	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir -p $(DESTDIR)$(exec_prefix) ; fi
+	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir -p $(DESTDIR)$(libdir) ; fi
+	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir -p $(DESTDIR)$(includedir) ; fi
+	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir -p $(DESTDIR)$(mandir) ; fi
+	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir -p $(DESTDIR)$(mandir)/man3 ; fi
+	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir -p $(DESTDIR)$(datadir) ; fi
+	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir -p $(DESTDIR)$(htmldir) ; fi
 
 uninstall : force
 	cd @subdir@; $(MAKE) uninstall
--- ffcall-1.10+2.43/callback/trampoline_r/Makefile.in
+++ ffcall-1.10+2.43/callback/trampoline_r/Makefile.in	2008-02-25 14:49:20.119317993 +0100
@@ -126,32 +126,32 @@ libtrampoline.la : $(OBJECTS)
 # Installs the library and include files only. Typically called with only
 # $(libdir) and $(includedir) - don't use $(prefix) and $(exec_prefix) here.
 install-lib : all force
-	if [ ! -d $(includedir) ] ; then mkdir $(includedir) ; fi
-	$(INSTALL_DATA) trampoline_r.h $(includedir)/trampoline_r.h
+	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir -p $(DESTDIR)$(includedir) ; fi
+	$(INSTALL_DATA) trampoline_r.h $(DESTDIR)$(includedir)/trampoline_r.h
 
 install : all force
-	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir $(DESTDIR)$(prefix) ; fi
-	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir $(DESTDIR)$(exec_prefix) ; fi
-#	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir $(DESTDIR)$(libdir) ; fi
+	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir -p $(DESTDIR)$(prefix) ; fi
+	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir -p $(DESTDIR)$(exec_prefix) ; fi
+#	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir -p $(DESTDIR)$(libdir) ; fi
 #	$(LIBTOOL_INSTALL) $(INSTALL_DATA) libtrampoline.la $(DESTDIR)$(libdir)/libtrampoline.la
-	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir $(DESTDIR)$(includedir) ; fi
+	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir -p $(DESTDIR)$(includedir) ; fi
 	$(INSTALL_DATA) trampoline_r.h $(DESTDIR)$(includedir)/trampoline_r.h
-	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir $(DESTDIR)$(mandir) ; fi
-	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir $(DESTDIR)$(mandir)/man3 ; fi
+	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir -p $(DESTDIR)$(mandir) ; fi
+	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir -p $(DESTDIR)$(mandir)/man3 ; fi
 	$(INSTALL_DATA) $(srcdir)/trampoline_r.3 $(DESTDIR)$(mandir)/man3/trampoline_r.3
-	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir $(DESTDIR)$(datadir) ; fi
-	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir $(DESTDIR)$(htmldir) ; fi
+	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir -p $(DESTDIR)$(datadir) ; fi
+	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir -p $(DESTDIR)$(htmldir) ; fi
 	$(INSTALL_DATA) $(srcdir)/trampoline_r.html $(DESTDIR)$(htmldir)/trampoline_r.html
 
 installdirs : force
-	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir $(DESTDIR)$(prefix) ; fi
-	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir $(DESTDIR)$(exec_prefix) ; fi
-#	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir $(DESTDIR)$(libdir) ; fi
-	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir $(DESTDIR)$(includedir) ; fi
-	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir $(DESTDIR)$(mandir) ; fi
-	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir $(DESTDIR)$(mandir)/man3 ; fi
-	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir $(DESTDIR)$(datadir) ; fi
-	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir $(DESTDIR)$(htmldir) ; fi
+	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir -p $(DESTDIR)$(prefix) ; fi
+	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir -p $(DESTDIR)$(exec_prefix) ; fi
+#	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir -p $(DESTDIR)$(libdir) ; fi
+	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir -p $(DESTDIR)$(includedir) ; fi
+	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir -p $(DESTDIR)$(mandir) ; fi
+	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir -p $(DESTDIR)$(mandir)/man3 ; fi
+	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir -p $(DESTDIR)$(datadir) ; fi
+	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir -p $(DESTDIR)$(htmldir) ; fi
 
 uninstall : force
 #	$(LIBTOOL_UNINSTALL) $(RM) $(DESTDIR)$(libdir)/libtrampoline.la
--- ffcall-1.10+2.43/callback/trampoline_r/cache-arm.c
+++ ffcall-1.10+2.43/callback/trampoline_r/cache-arm.c	2008-02-25 14:49:16.506855549 +0100
@@ -0,0 +1,16 @@
+/* Instruction cache flushing for arm */
+
+/*
+ * Copyright 1997 Bruno Haible, <bruno@clisp.org>
+ *
+ * This is free software distributed under the GNU General Public Licence
+ * described in the file COPYING. Contact the author if you don't have this
+ * or can't live with it. There is ABSOLUTELY NO WARRANTY, explicit or implied,
+ * on this software.
+ */
+#include <linux/unistd.h>
+
+void __TR_clear_cache (char *first_addr, char *last_addr)
+{
+  asm volatile ("swi %0" : : "i" (__ARM_NR_cacheflush));
+}
--- ffcall-1.10+2.43/callback/trampoline_r/cache-arm.s
+++ ffcall-1.10+2.43/callback/trampoline_r/cache-arm.s	2008-02-25 14:49:16.566863234 +0100
@@ -0,0 +1,15 @@
+	.file	"cache-arm.c"
+	.text
+	.align	2
+	.global	__TR_clear_cache
+	.type	__TR_clear_cache, %function
+__TR_clear_cache:
+	@ args = 0, pretend = 0, frame = 0
+	@ frame_needed = 0, uses_anonymous_args = 0
+	@ link register save eliminated.
+	@ lr needed for prologue
+#APP
+	swi #10420226
+	mov	pc, lr
+	.size	__TR_clear_cache, .-__TR_clear_cache
+	.ident	"GCC: (GNU) 3.4.0 (Debian 20040516)"
--- ffcall-1.10+2.43/callback/trampoline_r/configure.in
+++ ffcall-1.10+2.43/callback/trampoline_r/configure.in	2008-02-25 14:49:16.474851452 +0100
@@ -30,7 +30,7 @@ if test ${host_cpu_abi} = powerpc; then
     *) ;;
   esac
 fi
-if test ${host_cpu_abi} = sparc -o ${host_cpu_abi} = sparc64 -o ${host_cpu_abi} = alpha -o ${host_cpu_abi} = hppa -o ${host_cpu_abi} = convex; then
+if test ${host_cpu_abi} = sparc -o ${host_cpu_abi} = sparc64 -o ${host_cpu_abi} = alpha -o ${host_cpu_abi} = hppa -o ${host_cpu_abi} = convex -o ${host_cpu_abi} = arm; then
   CPU_OBJECTS="$CPU_OBJECTS "'cache-$(CPU).lo'
 fi
 if test ${host_cpu_abi} = powerpc; then
--- ffcall-1.10+2.43/callback/trampoline_r/tramp-arm.s
+++ ffcall-1.10+2.43/callback/trampoline_r/tramp-arm.s	2008-02-25 14:49:16.598867330 +0100
@@ -22,19 +22,15 @@ pc	.req	r15
 _tramp:
 	@ Immediate constants are a problem. I take the indirect load approach
 	@ because I don't want 4 instructions for each constant.
-	ldr	ip,[pc,#_function-.-8]
-	ldr	ip,[ip,#0]
-	stmfd	sp!,{ip}
-	ldr	ip,[pc,#_data-.-8]
-	ldr	ip,[ip,#0]
-	ldmfd	sp!,{pc}^
+	add	ip,pc,#8
+	ldr	pc,[pc]
 
 	.global	_data
 	.align	0
 _data:
 	.word	0x73554711
 
-	.global	_function
 	.align	0
 _function:
 	.word	0xbabebec0
+	.global	_function
--- ffcall-1.10+2.43/callback/trampoline_r/tramp-mips.s
+++ ffcall-1.10+2.43/callback/trampoline_r/tramp-mips.s	2008-02-25 14:49:16.634871936 +0100
@@ -17,12 +17,12 @@
 	.globl	tramp
 	.ent	tramp
 tramp:
-	li	$2,0x73550000
-	ori	$2,$2,0x4711
-	li	$25,0xbabe0000
-	ori	$25,$25,0xbec0
+	/* We can assume that our own address (=tramp) is in $25. */
+	lw	$2,$LC0-tramp($25)
+	lw	$25,$LC1-tramp($25)
 	/* The called function expects to see its own address in $25. */
 	j	$25
-	/* Some Mips hardware running Irix-4.0.5 needs this nop. */
-	nop
+	 nop
+$LC0:	.word	0x73554711
+$LC1:	.word	0xbabebec0
 	.end	tramp
--- ffcall-1.10+2.43/callback/trampoline_r/trampoline.c
+++ ffcall-1.10+2.43/callback/trampoline_r/trampoline.c	2008-02-25 14:49:16.538859649 +0100
@@ -240,11 +240,7 @@ extern void __TR_clear_cache();
 #define TRAMP_LENGTH 14
 #define TRAMP_ALIGN 16
 #endif
-#if defined(__mips__) && !defined(__mipsn32__)
-#define TRAMP_LENGTH 24
-#define TRAMP_ALIGN 4
-#endif
-#ifdef __mipsn32__
+#if defined(__mips__) || defined(__mipsn32__) && !defined(__mips64__)
 #define TRAMP_LENGTH 24
 #define TRAMP_ALIGN 4
 #endif
@@ -278,7 +274,7 @@ extern void __TR_clear_cache();
 #define TRAMP_BIAS 2
 #endif
 #ifdef __arm__
-#define TRAMP_LENGTH 32
+#define TRAMP_LENGTH 16
 #define TRAMP_ALIGN 4
 #endif
 #ifdef __powerpcsysv4__
@@ -467,41 +463,7 @@ __TR_function alloc_trampoline_r (__TR_f
 #define tramp_data(function)  \
   *(long *)  (function + 2)
 #endif
-#if defined(__mips__) && !defined(__mipsn32__)
-  /* function:
-   *    li $2,<data>&0xffff0000		3C 02 hi16(<data>)
-   *    ori $2,$2,<data>&0xffff		34 42 lo16(<data>)
-   *    li $25,<address>&0xffff0000	3C 19 hi16(<address>)
-   *    ori $25,$25,<address>&0xffff	37 39 lo16(<address>)
-   *    j $25				03 20 00 08
-   *    nop				00 00 00 00
-   */
-  /* What about big endian / little endian ?? */
-  *(short *) (function + 0) = 0x3C02;
-  *(short *) (function + 2) = (unsigned long) data >> 16;
-  *(short *) (function + 4) = 0x3442;
-  *(short *) (function + 6) = (unsigned long) data & 0xffff;
-  *(short *) (function + 8) = 0x3C19;
-  *(short *) (function +10) = (unsigned long) address >> 16;
-  *(short *) (function +12) = 0x3739;
-  *(short *) (function +14) = (unsigned long) address & 0xffff;
-  *(long *)  (function +16) = 0x03200008;
-  *(long *)  (function +20) = 0x00000000;
-#define is_tramp(function)  \
-  *(unsigned short *) (function + 0) == 0x3C02 && \
-  *(unsigned short *) (function + 4) == 0x3442 && \
-  *(unsigned short *) (function + 8) == 0x3C19 && \
-  *(unsigned short *) (function +12) == 0x3739 && \
-  *(unsigned long *)  (function +16) == 0x03200008 && \
-  *(unsigned long *)  (function +20) == 0x00000000
-#define hilo(hiword,loword)  \
-  (((unsigned long) (hiword) << 16) | (unsigned long) (loword))
-#define tramp_address(function)  \
-  hilo(*(unsigned short *) (function +10), *(unsigned short *) (function +14))
-#define tramp_data(function)  \
-  hilo(*(unsigned short *) (function + 2), *(unsigned short *) (function + 6))
-#endif
-#ifdef __mipsn32__
+#if defined(__mips__) || defined(__mipsn32__) && !defined(__mips64__)
   /* function:
    *    lw $2,16($25)			8F 22 00 10
    *    lw $25,20($25)			8F 39 00 14
@@ -510,7 +472,6 @@ __TR_function alloc_trampoline_r (__TR_f
    *    .word <data>			<data>
    *    .word <address>			<address>
    */
-  /* What about big endian / little endian ?? */
   *(unsigned int *) (function + 0) = 0x8F220010;
   *(unsigned int *) (function + 4) = 0x8F390014;
   *(unsigned int *) (function + 8) = 0x03200008;
@@ -518,10 +479,10 @@ __TR_function alloc_trampoline_r (__TR_f
   *(unsigned int *) (function +16) = (unsigned int) data;
   *(unsigned int *) (function +20) = (unsigned int) address;
 #define is_tramp(function)  \
-  *(int *)          (function + 0) == 0x8F220010 && \
-  *(int *)          (function + 4) == 0x8F390014 && \
-  *(int *)          (function + 8) == 0x03200008 && \
-  *(int *)          (function +12) == 0x00000000
+  *(unsigned int *) (function + 0) == 0x8F220010 && \
+  *(unsigned int *) (function + 4) == 0x8F390014 && \
+  *(unsigned int *) (function + 8) == 0x03200008 && \
+  *(unsigned int *) (function +12) == 0x00000000
 #define tramp_address(function)  \
   *(unsigned int *) (function +20)
 #define tramp_data(function)  \
@@ -605,14 +566,17 @@ __TR_function alloc_trampoline_r (__TR_f
    *    .dword <data>			<data>
    *    .dword <address>		<address>
    */
-  /* What about big endian / little endian ?? */
-  *(long *)          (function + 0) = 0xDF220010DF390018L;
-  *(long *)          (function + 8) = 0x0320000800000000L;
+  *(unsigned int *)  (function + 0) = 0xDF220010;
+  *(unsigned int *)  (function + 4) = 0xDF390018;
+  *(unsigned int *)  (function + 8) = 0x03200008;
+  *(unsigned int *)  (function +12) = 0x00000000;
   *(unsigned long *) (function +16) = (unsigned long) data;
   *(unsigned long *) (function +24) = (unsigned long) address;
 #define is_tramp(function)  \
-  *(long *)          (function + 0) == 0xDF220010DF390018L && \
-  *(long *)          (function + 8) == 0x0320000800000000L
+  *(unsigned int *)  (function + 0) == 0xDF220010 && \
+  *(unsigned int *)  (function + 4) == 0xDF390018 && \
+  *(unsigned int *)  (function + 8) == 0x03200008 && \
+  *(unsigned int *)  (function +12) == 0x00000000
 #define tramp_address(function)  \
   *(unsigned long *) (function +24)
 #define tramp_data(function)  \
@@ -788,37 +752,26 @@ __TR_function alloc_trampoline_r (__TR_f
 #endif
 #ifdef __arm__
   /* function:
-   *    ldr     ip,[pc,#_function-.-8]		E59FC014
-   *    ldr     ip,[ip,#0]			E59CC000  ??Is this correct??
-   *    stmfd   sp!,{ip}			E92D1000
-   *    ldr     ip,[pc,#_data-.-8]		E59FC004
-   *    ldr     ip,[ip,#0]			E59CC000  ??Is this correct??
-   *    ldmfd   sp!,{pc}^			E8FD8000
+   *	add	r12,pc,#8			E28FC008
+   *	ldr	pc,[pc]				E59FF000
    * _data:
-   *    .word   <data>				<data>
+   *	.word	<data>
    * _function:
-   *    .word   <address>			<address>
+   *	.word	<address>
    */
-  { static long code [6] =
-      { 0xE59FC014, 0xE59CC000, 0xE92D1000, 0xE59FC004,
-        0xE59CC000, 0xE8FD8000
-      };
-    int i;
-    for (i=0; i<6; i++) { ((long *) function)[i] = code[i]; }
-    ((long *) function)[6] = (long) data;
-    ((long *) function)[7] = (long) address;
+  {
+    ((long *) function)[0] = 0xE28FC008;
+    ((long *) function)[1] = 0xE59FF000;
+    ((long *) function)[2] = (long) data;
+    ((long *) function)[3] = (long) address;
   }
 #define is_tramp(function)  \
-  ((long *) function)[0] == 0xE59FC014 && \
-  ((long *) function)[1] == 0xE59CC000 && \
-  ((long *) function)[2] == 0xE92D1000 && \
-  ((long *) function)[3] == 0xE59FC004 && \
-  ((long *) function)[4] == 0xE59CC000 && \
-  ((long *) function)[5] == 0xE8FD8000
+  ((long *) function)[0] == 0xE28FC004 && \
+  ((long *) function)[1] == 0xE51FF004
 #define tramp_address(function)  \
-  ((long *) function)[7]
+  ((long *) function)[3]
 #define tramp_data(function)  \
-  ((long *) function)[6]
+  ((long *) function)[2]
 #endif
 #ifdef __powerpcsysv4__
 #ifdef __NetBSD__
@@ -1175,7 +1128,7 @@ __TR_function alloc_trampoline_r (__TR_f
   __TR_clear_cache(function,function+TRAMP_LENGTH-1);
 #endif
 #ifdef __arm__
-  /* This CPU does not have a separate instruction cache. (I think.) */
+  __TR_clear_cache(function,function+TRAMP_LENGTH);
 #endif
 #if defined(__powerpc__) && !defined(__powerpc64__)
   __TR_clear_cache(function);
--- ffcall-1.10+2.43/callback/vacall_r/Makefile.in
+++ ffcall-1.10+2.43/callback/vacall_r/Makefile.in	2008-02-25 14:49:20.155322601 +0100
@@ -163,32 +163,32 @@ libvacall.la : $(OBJECTS)
 # Installs the library and include files only. Typically called with only
 # $(libdir) and $(includedir) - don't use $(prefix) and $(exec_prefix) here.
 install-lib : all force
-	if [ ! -d $(includedir) ] ; then mkdir $(includedir) ; fi
-	$(INSTALL_DATA) vacall_r.h $(includedir)/vacall_r.h
+	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir -p $(DESTDIR)$(includedir) ; fi
+	$(INSTALL_DATA) vacall_r.h $(DESTDIR)$(includedir)/vacall_r.h
 
 install : all force
-	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir $(DESTDIR)$(prefix) ; fi
-#	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir $(DESTDIR)$(exec_prefix) ; fi
-#	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir $(DESTDIR)$(libdir) ; fi
+	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir -p $(DESTDIR)$(prefix) ; fi
+#	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir -p $(DESTDIR)$(exec_prefix) ; fi
+#	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir -p $(DESTDIR)$(libdir) ; fi
 #	$(LIBTOOL_INSTALL) $(INSTALL_DATA) libvacall.la $(DESTDIR)$(libdir)/libvacall.la
-	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir $(DESTDIR)$(includedir) ; fi
+	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir -p $(DESTDIR)$(includedir) ; fi
 	$(INSTALL_DATA) vacall_r.h $(DESTDIR)$(includedir)/vacall_r.h
-#	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir $(DESTDIR)$(mandir) ; fi
-#	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir $(DESTDIR)$(mandir)/man3 ; fi
+#	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir -p $(DESTDIR)$(mandir) ; fi
+#	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir -p $(DESTDIR)$(mandir)/man3 ; fi
 #	$(INSTALL_DATA) $(srcdir)/vacall_r.3 $(DESTDIR)$(mandir)/man3/vacall_r.3
-#	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir $(DESTDIR)$(datadir) ; fi
-#	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir $(DESTDIR)$(htmldir) ; fi
+#	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir -p $(DESTDIR)$(datadir) ; fi
+#	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir -p $(DESTDIR)$(htmldir) ; fi
 #	$(INSTALL_DATA) $(srcdir)/vacall_r.html $(DESTDIR)$(htmldir)/vacall_r.html
 
 installdirs : force
-	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir $(DESTDIR)$(prefix) ; fi
-#	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir $(DESTDIR)$(exec_prefix) ; fi
-#	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir $(DESTDIR)$(libdir) ; fi
-	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir $(DESTDIR)$(includedir) ; fi
-#	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir $(DESTDIR)$(mandir) ; fi
-#	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir $(DESTDIR)$(mandir)/man3 ; fi
-#	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir $(DESTDIR)$(datadir) ; fi
-#	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir $(DESTDIR)$(htmldir) ; fi
+	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir -p $(DESTDIR)$(prefix) ; fi
+#	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir -p $(DESTDIR)$(exec_prefix) ; fi
+#	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir -p $(DESTDIR)$(libdir) ; fi
+	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir -p $(DESTDIR)$(includedir) ; fi
+#	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir -p $(DESTDIR)$(mandir) ; fi
+#	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir -p $(DESTDIR)$(mandir)/man3 ; fi
+#	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir -p $(DESTDIR)$(datadir) ; fi
+#	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir -p $(DESTDIR)$(htmldir) ; fi
 
 uninstall : force
 #	$(LIBTOOL_UNINSTALL) $(RM) $(DESTDIR)$(libdir)/libvacall.la
--- ffcall-1.10+2.43/callback/vacall_r/vacall_r.h.in
+++ ffcall-1.10+2.43/callback/vacall_r/vacall_r.h.in	2008-02-25 14:49:16.662875524 +0100
@@ -288,7 +288,7 @@ enum __VA_alist_flags
 #if defined(__i386__) || defined(__m68k__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__alpha__) || defined(__arm__) || (defined(__powerpc__) && !defined(__powerpc64__)) || defined(__convex__) || defined(__ia64__) || defined(__x86_64__) || defined(__s390__)
   __VA_REGISTER_STRUCT_RETURN	= 1<<10,
 #endif
-#if defined(__mips__) && !defined(__mipsn32__)
+#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)
   __VA_FLOAT_1			= 1<<11,
   __VA_FLOAT_2			= 1<<12,
 #endif
@@ -352,7 +352,7 @@ typedef struct
   float          farg[4];
   double         darg[2];
 #endif
-#if defined(__mips__) && !defined(__mipsn32__)
+#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)
   int            anum;
   float          farg[2];
   double         darg[2];
@@ -502,11 +502,11 @@ typedef __va_alist* va_alist;
 #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE)  \
   0
 #endif
-#if defined(__mips__) && !defined(__mipsn32__) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__m88k__)
+#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__m88k__)
 #define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE)  \
   ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4)
 /* Test __VA_SMALL_STRUCT_RETURN instead of __VA_REGISTER_STRUCT_RETURN. */
-#if defined(__mips__) && !defined(__mipsn32__)
+#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)
 #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE)  \
   ((LIST)->anum++,							\
    0									\
@@ -614,7 +614,7 @@ typedef __va_alist* va_alist;
 /* Padding of non-struct arguments. */
 #define __va_argsize(TYPE_SIZE)  \
   (((TYPE_SIZE) + sizeof(__vaword)-1) & -(long)sizeof(__vaword))
-#if defined(__i386__) || defined(__m68k__) || defined(__mips__) && !defined(__mipsn32__) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__alpha__) || defined(__arm__) || (defined(__powerpc__) && !defined(__powerpc64__) && (defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)))) || defined(__powerpc64__) || defined(__m88k__) || defined(__convex__) || defined(__ia64__) || defined(__x86_64__)
+#if defined(__i386__) || defined(__m68k__) || defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__alpha__) || defined(__arm__) || (defined(__powerpc__) && !defined(__powerpc64__) && (defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)))) || defined(__powerpc64__) || defined(__m88k__) || defined(__convex__) || defined(__ia64__) || defined(__x86_64__)
 /* args grow up */
 /* small structures < 1 word are adjusted depending on compiler */
 #define __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN)  \
@@ -700,20 +700,26 @@ typedef __va_alist* va_alist;
    (LIST)->aptr + ((-(TYPE_SIZE)) & 3)					\
   )
 #endif
-#if defined(__i386__) || defined(__alpha__) || defined(__ia64__)
+#if defined(__i386__) || defined(__alpha__) || defined(__ia64__) || ((defined(__mipsn32__) || defined(__mips64__)) && defined(_MIPSEL))
 /* little endian -> small args < 1 word are adjusted to the left */
 #define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN)  \
   __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN)
 #endif
-#if defined(__m68k__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc__) || defined(__sparc64__) || defined(__hppa__) || defined(__arm__) || defined(__powerpc__) || defined(__powerpc64__) || defined(__m88k__) || defined(__convex__) || defined(__s390__)
+#if defined(__m68k__) || ((defined(__mipsn32__) || defined(__mips64__)) && defined(_MIPSEB)) || defined(__sparc__) || defined(__sparc64__) || defined(__hppa__) || defined(__arm__) || defined(__powerpc__) || defined(__powerpc64__) || defined(__m88k__) || defined(__convex__) || defined(__s390__)
 /* big endian -> small args < 1 word are adjusted to the right */
 #define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN)  \
   __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN)
 #endif
-#if defined(__mips__) && !defined(__mipsn32__)
+#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)
+#ifdef _MIPSEB
 /* big endian -> small args < 1 word are adjusted to the right */
 #define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN)  \
   ((LIST)->anum++, __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN))
+#else /* _MIPSEL */
+/* little endian -> small args < 1 word are adjusted to the left */
+#define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN)  \
+  ((LIST)->anum++, __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN))
+#endif
 #endif
 #if defined(__x86_64__)
 /* the first 6 argument words are passed in registers */
@@ -785,7 +791,7 @@ typedef __va_alist* va_alist;
 #if defined(__i386__) || defined(__m68k__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc__) || defined(__sparc64__) || defined(__alpha__) || defined(__arm__) || defined(__powerpc__) || defined(__powerpc64__) || defined(__convex__) || defined(__ia64__) || defined(__x86_64__) || defined(__s390__)
 #define __va_align_double(LIST)
 #endif
-#if defined(__mips__) && !defined(__mipsn32__) || defined(__m88k__)
+#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) || defined(__m88k__)
 /* __VA_alignof(double) > sizeof(__vaword) */
 #define __va_align_double(LIST)  \
   (LIST)->aptr = ((LIST)->aptr + sizeof(double)-1) & -(long)sizeof(double),
@@ -850,7 +856,7 @@ typedef __va_alist* va_alist;
   ))
 #endif
 #endif
-#if defined(__mips__) && !defined(__mipsn32__)
+#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)
 /* The first 0,1,2 registers are stored elsewhere if they are floating-point
  * parameters.
  */
@@ -1065,7 +1071,7 @@ typedef __va_alist* va_alist;
    __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN)				\
   )
 #endif
-#if defined(__mips__) && !defined(__mipsn32__)
+#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)
 /* small structures < 1 word are adjusted depending on compiler */
 #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN)  \
   (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN)				\
--- ffcall-1.10+2.43/m4/general.m4
+++ ffcall-1.10+2.43/m4/general.m4	2008-02-25 14:49:16.686878594 +0100
@@ -149,7 +149,7 @@ changequote(,)dnl
     host_cpu_instructionset=arm
     ;;
 changequote([,])dnl
-  mips )
+  mips* )
     AC_CACHE_CHECK([for 64-bit MIPS], cl_cv_host_mips64, [
 AC_EGREP_CPP(yes,
 [#if defined(_MIPS_SZLONG)
@@ -162,6 +162,8 @@ AC_EGREP_CPP(yes,
 ])
 if test $cl_cv_host_mips64 = yes; then
   host_cpu_instructionset=mips64
+else
+  host_cpu_instructionset=mips
 fi
     ;;
 dnl On powerpc64 systems, the C compiler may still be generating 32-bit code.
@@ -245,7 +247,7 @@ changequote(,)dnl
     host_cpu_abi=arm
     ;;
 changequote([,])dnl
-  mips )
+  mips* )
     AC_CACHE_CHECK([for 64-bit MIPS], cl_cv_host_mips64, [
 AC_EGREP_CPP(yes,
 [#if defined(_MIPS_SZLONG)
--- ffcall-1.10+2.43/trampoline/Makefile.in
+++ ffcall-1.10+2.43/trampoline/Makefile.in	2008-02-25 14:49:20.179325674 +0100
@@ -110,28 +110,28 @@ libtrampoline.a : $(OBJECTS)
 	$(RANLIB) libtrampoline.a
 
 install : all force
-	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir $(DESTDIR)$(prefix) ; fi
-	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir $(DESTDIR)$(exec_prefix) ; fi
-	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir $(DESTDIR)$(libdir) ; fi
+	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir -p $(DESTDIR)$(prefix) ; fi
+	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir -p $(DESTDIR)$(exec_prefix) ; fi
+	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir -p $(DESTDIR)$(libdir) ; fi
 	$(INSTALL_DATA) libtrampoline.a $(DESTDIR)$(libdir)/libtrampoline.a
-	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir $(DESTDIR)$(includedir) ; fi
+	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir -p $(DESTDIR)$(includedir) ; fi
 	$(INSTALL_DATA) trampoline.h $(DESTDIR)$(includedir)/trampoline.h
-	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir $(DESTDIR)$(mandir) ; fi
-	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir $(DESTDIR)$(mandir)/man3 ; fi
+	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir -p $(DESTDIR)$(mandir) ; fi
+	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir -p $(DESTDIR)$(mandir)/man3 ; fi
 	$(INSTALL_DATA) $(srcdir)/trampoline.3 $(DESTDIR)$(mandir)/man3/trampoline.3
-	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir $(DESTDIR)$(datadir) ; fi
-	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir $(DESTDIR)$(htmldir) ; fi
+	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir -p $(DESTDIR)$(datadir) ; fi
+	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir -p $(DESTDIR)$(htmldir) ; fi
 	$(INSTALL_DATA) $(srcdir)/trampoline.html $(DESTDIR)$(htmldir)/trampoline.html
 
 installdirs : force
-	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir $(DESTDIR)$(prefix) ; fi
-	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir $(DESTDIR)$(exec_prefix) ; fi
-	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir $(DESTDIR)$(libdir) ; fi
-	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir $(DESTDIR)$(includedir) ; fi
-	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir $(DESTDIR)$(mandir) ; fi
-	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir $(DESTDIR)$(mandir)/man3 ; fi
-	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir $(DESTDIR)$(datadir) ; fi
-	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir $(DESTDIR)$(htmldir) ; fi
+	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir -p $(DESTDIR)$(prefix) ; fi
+	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir -p $(DESTDIR)$(exec_prefix) ; fi
+	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir -p $(DESTDIR)$(libdir) ; fi
+	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir -p $(DESTDIR)$(includedir) ; fi
+	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir -p $(DESTDIR)$(mandir) ; fi
+	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir -p $(DESTDIR)$(mandir)/man3 ; fi
+	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir -p $(DESTDIR)$(datadir) ; fi
+	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir -p $(DESTDIR)$(htmldir) ; fi
 
 uninstall : force
 	$(RM) $(DESTDIR)$(libdir)/libtrampoline.a
--- ffcall-1.10+2.43/trampoline/cache-arm.c
+++ ffcall-1.10+2.43/trampoline/cache-arm.c	2008-02-25 14:49:16.750886790 +0100
@@ -0,0 +1,16 @@
+/* Instruction cache flushing for arm */
+
+/*
+ * Copyright 1997 Bruno Haible, <bruno@clisp.org>
+ *
+ * This is free software distributed under the GNU General Public Licence
+ * described in the file COPYING. Contact the author if you don't have this
+ * or can't live with it. There is ABSOLUTELY NO WARRANTY, explicit or implied,
+ * on this software.
+ */
+#include <linux/unistd.h>
+
+void __TR_clear_cache (char *first_addr, char *last_addr)
+{
+  asm volatile ("swi %0" : : "i" (__ARM_NR_cacheflush));
+}
--- ffcall-1.10+2.43/trampoline/cache-arm.s
+++ ffcall-1.10+2.43/trampoline/cache-arm.s	2008-02-25 14:49:16.814894982 +0100
@@ -0,0 +1,15 @@
+	.file	"cache-arm.c"
+	.text
+	.align	2
+	.global	__TR_clear_cache
+	.type	__TR_clear_cache, %function
+__TR_clear_cache:
+	@ args = 0, pretend = 0, frame = 0
+	@ frame_needed = 0, uses_anonymous_args = 0
+	@ link register save eliminated.
+	@ lr needed for prologue
+#APP
+	swi #10420226
+	mov	pc, lr
+	.size	__TR_clear_cache, .-__TR_clear_cache
+	.ident	"GCC: (GNU) 3.4.0 (Debian 20040516)"
--- ffcall-1.10+2.43/trampoline/configure.in
+++ ffcall-1.10+2.43/trampoline/configure.in	2008-02-25 14:49:16.718882694 +0100
@@ -28,7 +28,7 @@ if test ${host_cpu_abi} = powerpc; then
     *) ;;
   esac
 fi
-if test ${host_cpu_abi} = sparc -o ${host_cpu_abi} = sparc64 -o ${host_cpu_abi} = alpha -o ${host_cpu_abi} = hppa -o ${host_cpu_abi} = convex; then
+if test ${host_cpu_abi} = sparc -o ${host_cpu_abi} = sparc64 -o ${host_cpu_abi} = alpha -o ${host_cpu_abi} = hppa -o ${host_cpu_abi} = convex -o ${host_cpu_abi} = arm; then
   CPU_OBJECTS="$CPU_OBJECTS "'cache-$(CPU).o'
 fi
 if test ${host_cpu_abi} = powerpc; then
--- ffcall-1.10+2.43/trampoline/tramp-arm.s
+++ ffcall-1.10+2.43/trampoline/tramp-arm.s	2008-02-25 14:49:16.850899593 +0100
@@ -23,13 +23,11 @@ _tramp:
 	@ Immediate constants are a problem. I take the indirect load approach
 	@ because I don't want 4 instructions for each constant.
 	stmfd	sp!,{r0}
-	ldr	r0,[pc,#_data-.-8]
-	ldr	ip,[r0,#0]
-	ldr	r0,[pc,#_variable-.-8]
-	str	ip,[r0,#0]
-	ldmfd	sp!,{r0}^
-	ldr	ip,[pc,#_function-.-8]
-	ldr	pc,[ip,#0]
+	ldr	r0,[pc,#12]
+	ldr	ip,[pc,#12]
+	str	r0,[ip]
+	ldmfd	sp!,{r0}
+	ldr	pc,[pc,#4]
 
 	.global	_data
 	.align	0
--- ffcall-1.10+2.43/trampoline/trampoline.c
+++ ffcall-1.10+2.43/trampoline/trampoline.c	2008-02-25 14:49:16.778890375 +0100
@@ -278,7 +278,7 @@ extern void __TR_clear_cache();
 #define TRAMP_BIAS 2
 #endif
 #ifdef __arm__
-#define TRAMP_LENGTH 44
+#define TRAMP_LENGTH 36
 #define TRAMP_ALIGN 4
 #endif
 #ifdef __powerpcsysv4__
@@ -855,46 +855,43 @@ __TR_function alloc_trampoline (__TR_fun
 #endif
 #ifdef __arm__
   /* function:
-   *    stmfd   sp!,{r0}			E92D0001
-   *    ldr     r0,[pc,#_data-.-8]		E59F0014
-   *    ldr     ip,[r0,#0]			E590C000
-   *    ldr     r0,[pc,#_variable-.-8]		E59F0010
-   *    str     ip,[r0,#0]			E580C000
-   *    ldmfd   sp!,{r0}^			E8FD0001
-   *    ldr     ip,[pc,#_function-.-8]		E59FC008
-   *    ldr     pc,[ip,#0]			E59CF000
+   *	stmfd	sp!,{r0}		E92D0001
+   * 	ldr	r0,[pc,#16]		E59F000C
+   *	ldr	ip,[pc,#16]		E59FC00C
+   *	str	r0,[ip]			E58C0000
+   *	ldmfd	sp!,{r0}		E8BD0001
+   *	ldr	pc,[pc,#4]		E59FF004
    * _data:
-   *    .word   <data>				<data>
+   *	.word	<data>
    * _variable:
-   *    .word   <variable>			<variable>
+   *	.word	<variable>
    * _function:
-   *    .word   <address>			<address>
+   *	.word	<address>
    */
-  { static long code [8] =
-      { 0xE92D0001, 0xE59F0014, 0xE590C000, 0xE59F0010,
-        0xE580C000, 0xE8FD0001, 0xE59FC008, 0xE59CF000
-      };
-    int i;
-    for (i=0; i<8; i++) { ((long *) function)[i] = code[i]; }
-    ((long *) function)[8] = (long) data;
-    ((long *) function)[9] = (long) variable;
-    ((long *) function)[10] = (long) address;
+  {
+    ((long *) function)[0] = 0xE92D0001;
+    ((long *) function)[1] = 0xE59F000C;
+    ((long *) function)[2] = 0xE59FC00C;
+    ((long *) function)[3] = 0xE58C0000;
+    ((long *) function)[4] = 0xE8BD0001;
+    ((long *) function)[5] = 0xE59FF004;
+    ((long *) function)[6] = (long)data;
+    ((long *) function)[7] = (long)variable;
+    ((long *) function)[8] = (long)address;
   }
 #define is_tramp(function)  \
-  ((long *) function)[0] == 0xE92D0001 && \
-  ((long *) function)[1] == 0xE59F0014 && \
-  ((long *) function)[2] == 0xE590C000 && \
-  ((long *) function)[3] == 0xE59F0010 && \
-  ((long *) function)[4] == 0xE580C000 && \
-  ((long *) function)[5] == 0xE8FD0001 && \
-  ((long *) function)[6] == 0xE59FC008 && \
-  ((long *) function)[7] == 0xE59CF000
+    ((long *) function)[0] == 0xE92D0001 && \
+    ((long *) function)[1] == 0xE59F000C && \
+    ((long *) function)[2] == 0xE59FC00C && \
+    ((long *) function)[3] == 0xE58C0000 && \
+    ((long *) function)[4] == 0xE8BD0001 && \
+    ((long *) function)[5] == 0xE59FF004
 #define tramp_address(function)  \
-  ((long *) function)[10]
+  ((long *) function)[8]
 #define tramp_variable(function)  \
-  ((long *) function)[9]
+  ((long *) function)[7]
 #define tramp_data(function)  \
-  ((long *) function)[8]
+  ((long *) function)[6]
 #endif
 #ifdef __powerpcsysv4__
   /* function:
@@ -1286,7 +1283,7 @@ __TR_function alloc_trampoline (__TR_fun
   __TR_clear_cache(function,function+TRAMP_LENGTH-1);
 #endif
 #ifdef __arm__
-  /* This CPU does not have a separate instruction cache. (I think.) */
+  __TR_clear_cache(function,function+TRAMP_LENGTH);
 #endif
 #if defined(__powerpc__) && !defined(__powerpc64__)
   __TR_clear_cache(function);
--- ffcall-1.10+2.43/vacall/Makefile.in
+++ ffcall-1.10+2.43/vacall/Makefile.in	2008-02-25 14:49:20.215330284 +0100
@@ -145,28 +145,28 @@ libvacall.a : $(OBJECTS)
 	$(RANLIB) libvacall.a
 
 install : all force
-	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir $(DESTDIR)$(prefix) ; fi
-	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir $(DESTDIR)$(exec_prefix) ; fi
-	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir $(DESTDIR)$(libdir) ; fi
+	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir -p $(DESTDIR)$(prefix) ; fi
+	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir -p $(DESTDIR)$(exec_prefix) ; fi
+	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir -p $(DESTDIR)$(libdir) ; fi
 	$(INSTALL_DATA) libvacall.a $(DESTDIR)$(libdir)/libvacall.a
-	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir $(DESTDIR)$(includedir) ; fi
+	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir -p $(DESTDIR)$(includedir) ; fi
 	$(INSTALL_DATA) vacall.h $(DESTDIR)$(includedir)/vacall.h
-	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir $(DESTDIR)$(mandir) ; fi
-	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir $(DESTDIR)$(mandir)/man3 ; fi
+	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir -p $(DESTDIR)$(mandir) ; fi
+	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir -p $(DESTDIR)$(mandir)/man3 ; fi
 	$(INSTALL_DATA) $(srcdir)/vacall.3 $(DESTDIR)$(mandir)/man3/vacall.3
-	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir $(DESTDIR)$(datadir) ; fi
-	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir $(DESTDIR)$(htmldir) ; fi
+	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir -p $(DESTDIR)$(datadir) ; fi
+	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir -p $(DESTDIR)$(htmldir) ; fi
 	$(INSTALL_DATA) $(srcdir)/vacall.html $(DESTDIR)$(htmldir)/vacall.html
 
 installdirs : force
-	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir $(DESTDIR)$(prefix) ; fi
-	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir $(DESTDIR)$(exec_prefix) ; fi
-	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir $(DESTDIR)$(libdir) ; fi
-	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir $(DESTDIR)$(includedir) ; fi
-	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir $(DESTDIR)$(mandir) ; fi
-	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir $(DESTDIR)$(mandir)/man3 ; fi
-	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir $(DESTDIR)$(datadir) ; fi
-	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir $(DESTDIR)$(htmldir) ; fi
+	if [ ! -d $(DESTDIR)$(prefix) ] ; then mkdir -p $(DESTDIR)$(prefix) ; fi
+	if [ ! -d $(DESTDIR)$(exec_prefix) ] ; then mkdir -p $(DESTDIR)$(exec_prefix) ; fi
+	if [ ! -d $(DESTDIR)$(libdir) ] ; then mkdir -p $(DESTDIR)$(libdir) ; fi
+	if [ ! -d $(DESTDIR)$(includedir) ] ; then mkdir -p $(DESTDIR)$(includedir) ; fi
+	if [ ! -d $(DESTDIR)$(mandir) ] ; then mkdir -p $(DESTDIR)$(mandir) ; fi
+	if [ ! -d $(DESTDIR)$(mandir)/man3 ] ; then mkdir -p $(DESTDIR)$(mandir)/man3 ; fi
+	if [ ! -d $(DESTDIR)$(datadir) ] ; then mkdir -p $(DESTDIR)$(datadir) ; fi
+	if [ ! -d $(DESTDIR)$(htmldir) ] ; then mkdir -p $(DESTDIR)$(htmldir) ; fi
 
 uninstall : force
 	$(RM) $(DESTDIR)$(libdir)/libvacall.a
--- ffcall-1.10+2.43/vacall/vacall.h.in
+++ ffcall-1.10+2.43/vacall/vacall.h.in	2008-02-25 14:49:16.878903178 +0100
@@ -289,7 +289,7 @@ enum __VA_alist_flags
 #if defined(__i386__) || defined(__m68k__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__alpha__) || defined(__arm__) || (defined(__powerpc__) && !defined(__powerpc64__)) || defined(__convex__) || defined(__ia64__) || defined(__x86_64__) || defined(__s390__)
   __VA_REGISTER_STRUCT_RETURN	= 1<<10,
 #endif
-#if defined(__mips__) && !defined(__mipsn32__)
+#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)
   __VA_FLOAT_1			= 1<<11,
   __VA_FLOAT_2			= 1<<12,
 #endif
@@ -353,7 +353,7 @@ typedef struct
   float          farg[4];
   double         darg[2];
 #endif
-#if defined(__mips__) && !defined(__mipsn32__)
+#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)
   int            anum;
   float          farg[2];
   double         darg[2];
@@ -503,11 +503,11 @@ typedef __va_alist* va_alist;
 #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE)  \
   0
 #endif
-#if defined(__mips__) && !defined(__mipsn32__) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__m88k__)
+#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__m88k__)
 #define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE)  \
   ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4)
 /* Test __VA_SMALL_STRUCT_RETURN instead of __VA_REGISTER_STRUCT_RETURN. */
-#if defined(__mips__) && !defined(__mipsn32__)
+#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)
 #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE)  \
   ((LIST)->anum++,							\
    0									\
@@ -615,7 +615,7 @@ typedef __va_alist* va_alist;
 /* Padding of non-struct arguments. */
 #define __va_argsize(TYPE_SIZE)  \
   (((TYPE_SIZE) + sizeof(__vaword)-1) & -(long)sizeof(__vaword))
-#if defined(__i386__) || defined(__m68k__) || defined(__mips__) && !defined(__mipsn32__) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__alpha__) || defined(__arm__) || (defined(__powerpc__) && !defined(__powerpc64__) && (defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)))) || defined(__powerpc64__) || defined(__m88k__) || defined(__convex__) || defined(__ia64__) || defined(__x86_64__)
+#if defined(__i386__) || defined(__m68k__) || defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__alpha__) || defined(__arm__) || (defined(__powerpc__) && !defined(__powerpc64__) && (defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)))) || defined(__powerpc64__) || defined(__m88k__) || defined(__convex__) || defined(__ia64__) || defined(__x86_64__)
 /* args grow up */
 /* small structures < 1 word are adjusted depending on compiler */
 #define __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN)  \
@@ -711,7 +711,7 @@ typedef __va_alist* va_alist;
 #define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN)  \
   __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN)
 #endif
-#if defined(__mips__) && !defined(__mipsn32__)
+#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)
 /* big endian -> small args < 1 word are adjusted to the right */
 #define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN)  \
   ((LIST)->anum++, __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN))
@@ -786,7 +786,7 @@ typedef __va_alist* va_alist;
 #if defined(__i386__) || defined(__m68k__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc__) || defined(__sparc64__) || defined(__alpha__) || defined(__arm__) || defined(__powerpc__) || defined(__powerpc64__) || defined(__convex__) || defined(__ia64__) || defined(__x86_64__) || defined(__s390__)
 #define __va_align_double(LIST)
 #endif
-#if defined(__mips__) && !defined(__mipsn32__) || defined(__m88k__)
+#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) || defined(__m88k__)
 /* __VA_alignof(double) > sizeof(__vaword) */
 #define __va_align_double(LIST)  \
   (LIST)->aptr = ((LIST)->aptr + sizeof(double)-1) & -(long)sizeof(double),
@@ -851,7 +851,7 @@ typedef __va_alist* va_alist;
   ))
 #endif
 #endif
-#if defined(__mips__) && !defined(__mipsn32__)
+#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)
 /* The first 0,1,2 registers are stored elsewhere if they are floating-point
  * parameters.
  */
@@ -1066,7 +1066,7 @@ typedef __va_alist* va_alist;
    __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN)				\
   )
 #endif
-#if defined(__mips__) && !defined(__mipsn32__)
+#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)
 /* small structures < 1 word are adjusted depending on compiler */
 #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN)  \
   (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN)				\

Places

File ffcall-1.10+2.43.dif of Package clisp (Revision 2272944893091548f6d195b29ad3d9ce)

Places