File clisp-2.44.1-ia64.dif of Package clisp

Overview Repositories Revisions Requests Users Attributes Meta

File clisp-2.44.1-ia64.dif of Package clisp (Revision a9a5a9131f6477b7e7c79c441b852467)

Currently displaying revision a9a5a9131f6477b7e7c79c441b852467 , Show latest

---
 ffcall-1.10+2.43/avcall/avcall-ia64.s            | 1071 ++++++++++++-----------
 ffcall-1.10+2.43/avcall/avcall.h.in              |    4 
 ffcall-1.10+2.43/callback/vacall_r/vacall_r.h.in |    4 
 3 files changed, 581 insertions(+), 498 deletions(-)

--- a/ffcall-1.10+2.43/avcall/avcall-ia64.s
+++ b/ffcall-1.10+2.43/avcall/avcall-ia64.s
@@ -1,739 +1,822 @@
 	.file	"avcall-ia64.c"
-	.version	"01.01"
-	.global __divdi3#
-.text
+	.pred.safe_across_calls p1-p5,p16-p63
+	.text
 	.align 16
 	.global __builtin_avcall#
 	.proc __builtin_avcall#
 __builtin_avcall:
-	alloc r37 = ar.pfs, 1, 5, 8, 0
-	mov r34 = r32
-	adds r12 = -16, r12
-	mov r33 = r1
-	;;
-	adds r15 = 40, r34
-	adds r12 = -2048, r12
-	mov r36 = b0
+	.prologue 12, 34
+	.save ar.pfs, r35
+	alloc r35 = ar.pfs, 1, 5, 8, 0
+	.save ar.lc, r37
+	mov r37 = ar.lc
+	mov r36 = r1
+	.save rp, r34
+	mov r34 = b0
+	.body
+	adds r18 = -2032, r12
+	adds r14 = 48, r32
+	adds r15 = 56, r32
 	;;
-	ld8 r14 = [r15]
-	adds r35 = 16, r12
-	addl r39 = 8, r0
+	ld8 r14 = [r14]
 	;;
-	sub r14 = r14, r34
+	sub r14 = r14, r15
 	;;
-	adds r38 = -120, r14
-	br.call.sptk.many b0 = __divdi3# ;;
-	adds r15 = 48, r34
-	mov r1 = r33
-	addl r39 = 8, r0
+	shr.u r17 = r14, 3
+	adds r14 = 40, r32
+	adds r15 = 120, r32
 	;;
-	ld8 r14 = [r15]
-	sxt4 r33 = r8
+	ld8 r14 = [r14]
 	;;
-	sub r14 = r14, r34
+	sub r14 = r14, r15
 	;;
-	adds r38 = -56, r14
-	br.call.sptk.many b0 = __divdi3# ;;
-	addl r18 = 8, r0
-	sxt4 r17 = r8
-	;;
-	cmp.gt p6, p7 = r33, r18
-	(p7) br.cond.dpnt .L97
-	adds r23 = 120, r34
-	;;
-	mov r19 = r23
-.L6:
-	shl r14 = r18, 3
-	;;
-	add r16 = r19, r14
-	adds r18 = 1, r18
-	add r14 = r35, r14
+	extr r14 = r14, 3, 32
 	;;
-	ld8 r15 = [r16]
-	cmp.gt p6, p7 = r33, r18
-	adds r14 = -64, r14
+	cmp.ge p6, p7 = 8, r14
+	(p6) br.cond.dpnt .L2
+	adds r16 = 184, r32
+	mov r15 = r18
+	sub r14 = 8, r14
 	;;
-	st8 [r14] = r15
-	(p6) br.cond.dptk .L6
-	br .L96
-.L97:
-	adds r23 = 120, r34
-.L96:
-	adds r33 = 24, r34
+	andcm r14 = -1, r14
+	;;
+	mov ar.lc = r14
+.L4:
+	ld8 r14 = [r16], 8
 	;;
-	ld4 r14 = [r33]
+	st8 [r15] = r14, 8
+	br.cloop.sptk.few .L4
+.L2:
+	adds r14 = 24, r32
+	;;
+	ld4 r14 = [r14]
 	;;
 	cmp4.ne p6, p7 = 16, r14
-	(p6) br.cond.dptk .L8
-	adds r14 = 16, r34
 	;;
-	ld8 r8 = [r14]
-.L8:
+	(p7) adds r14 = 16, r32
+	;;
+	(p7) ld8 r8 = [r14]
 	cmp4.ge p6, p7 = 0, r17
-	(p6) br.cond.dptk .L9
-	adds r14 = 56, r34
+	(p6) br.cond.dpnt .L7
+	adds r14 = 56, r32
 	;;
-	cmp4.ge p6, p7 = 1, r17
 	ldfd f8 = [r14]
-	(p6) br.cond.dptk .L9
-	adds r14 = 64, r34
+	cmp4.ge p6, p7 = 1, r17
+	(p6) br.cond.dpnt .L7
+	adds r14 = 64, r32
 	;;
-	cmp4.ge p6, p7 = 2, r17
 	ldfd f9 = [r14]
-	(p6) br.cond.dptk .L9
-	adds r14 = 72, r34
+	cmp4.ge p6, p7 = 2, r17
+	(p6) br.cond.dptk .L7
+	adds r14 = 72, r32
 	;;
-	cmp4.ge p6, p7 = 3, r17
 	ldfd f10 = [r14]
-	(p6) br.cond.dptk .L9
-	adds r14 = 80, r34
+	cmp4.ge p6, p7 = 3, r17
+	(p6) br.cond.dptk .L7
+	adds r14 = 80, r32
 	;;
-	cmp4.ge p6, p7 = 4, r17
 	ldfd f11 = [r14]
-	(p6) br.cond.dptk .L9
-	adds r14 = 88, r34
+	cmp4.ge p6, p7 = 4, r17
+	(p6) br.cond.dptk .L7
+	adds r14 = 88, r32
 	;;
-	cmp4.ge p6, p7 = 5, r17
 	ldfd f12 = [r14]
-	(p6) br.cond.dptk .L9
-	adds r14 = 96, r34
+	cmp4.ge p6, p7 = 5, r17
+	(p6) br.cond.dptk .L7
+	adds r14 = 96, r32
 	;;
-	cmp4.ge p6, p7 = 6, r17
 	ldfd f13 = [r14]
-	(p6) br.cond.dptk .L9
-	adds r14 = 104, r34
+	cmp4.ge p6, p7 = 6, r17
+	(p6) br.cond.dptk .L7
+	adds r14 = 104, r32
 	;;
-	cmp4.ge p6, p7 = 7, r17
 	ldfd f14 = [r14]
-	(p6) br.cond.dptk .L9
-	adds r14 = 112, r34
+	cmp4.ge p6, p7 = 7, r17
 	;;
-	ldfd f15 = [r14]
-.L9:
-	ld4 r14 = [r33]
+	(p7) adds r14 = 112, r32
 	;;
-	cmp4.ne p6, p7 = 13, r14
-	(p6) br.cond.dptk .L17
-	ld8 r21 = [r34]
-	adds r14 = 144, r34
-	adds r15 = 152, r34
-	;;
-	ld8 r22 = [r21], 8
-	adds r19 = 128, r34
-	adds r20 = 136, r34
-	adds r16 = 160, r34
-	adds r17 = 168, r34
-	adds r18 = 176, r34
-	ld8 r41 = [r14]
-	ld8 r42 = [r15]
-	ld8 r38 = [r23]
-	;;
-	ld8 r39 = [r19]
-	ld8 r40 = [r20]
-	ld8 r43 = [r16]
-	ld8 r44 = [r17]
-	ld8 r45 = [r18]
-	ld8 r1 = [r21]
-	mov b6 = r22
+	(p7) ldfd f15 = [r14]
+.L7:
+	adds r14 = 24, r32
 	;;
-	br.call.sptk.many b0 = b6 ;;
-	adds r14 = 16, r34
+	ld4 r14 = [r14]
 	;;
-	ld8 r15 = [r14]
+	cmp4.ne p6, p7 = 13, r14
+	(p6) br.cond.dptk .L16
+	adds r14 = 16, r32
 	;;
-	stfs [r15] = f8
+	ld8 r33 = [r14]
+	adds r14 = 120, r32
+	adds r15 = 128, r32
+	adds r16 = 136, r32
+	adds r17 = 144, r32
+	adds r18 = 152, r32
+	adds r19 = 160, r32
+	adds r20 = 168, r32
+	adds r21 = 176, r32
+	ld8 r22 = [r32]
+	;;
+	ld8 r38 = [r14]
+	ld8 r39 = [r15]
+	ld8 r40 = [r16]
+	ld8 r41 = [r17]
+	ld8 r42 = [r18]
+	ld8 r43 = [r19]
+	ld8 r44 = [r20]
+	ld8 r45 = [r21]
+	ld8 r14 = [r22], 8
+	;;
+	mov b6 = r14
+	ld8 r1 = [r22]
+	br.call.sptk.many b0 = b6
+	;;
+	mov r1 = r36
+	stfs [r33] = f8
 	br .L18
-.L17:
+	;;
+.L16:
 	cmp4.ne p6, p7 = 14, r14
 	(p6) br.cond.dptk .L19
-	ld8 r21 = [r34]
-	adds r14 = 144, r34
-	adds r15 = 152, r34
-	;;
-	ld8 r22 = [r21], 8
-	adds r19 = 128, r34
-	adds r20 = 136, r34
-	adds r16 = 160, r34
-	adds r17 = 168, r34
-	adds r18 = 176, r34
-	ld8 r41 = [r14]
-	ld8 r42 = [r15]
-	ld8 r38 = [r23]
-	;;
-	ld8 r39 = [r19]
-	ld8 r40 = [r20]
-	ld8 r43 = [r16]
-	ld8 r44 = [r17]
-	ld8 r45 = [r18]
-	ld8 r1 = [r21]
-	mov b6 = r22
-	;;
-	br.call.sptk.many b0 = b6 ;;
-	adds r14 = 16, r34
+	adds r14 = 16, r32
 	;;
-	ld8 r15 = [r14]
+	ld8 r33 = [r14]
+	adds r14 = 120, r32
+	adds r15 = 128, r32
+	adds r16 = 136, r32
+	adds r17 = 144, r32
+	adds r18 = 152, r32
+	adds r19 = 160, r32
+	adds r20 = 168, r32
+	adds r21 = 176, r32
+	ld8 r22 = [r32]
+	;;
+	ld8 r38 = [r14]
+	ld8 r39 = [r15]
+	ld8 r40 = [r16]
+	ld8 r41 = [r17]
+	ld8 r42 = [r18]
+	ld8 r43 = [r19]
+	ld8 r44 = [r20]
+	ld8 r45 = [r21]
+	ld8 r14 = [r22], 8
+	;;
+	mov b6 = r14
+	ld8 r1 = [r22]
+	br.call.sptk.many b0 = b6
 	;;
-	stfd [r15] = f8
+	mov r1 = r36
+	stfd [r33] = f8
 	br .L18
+	;;
 .L19:
-	ld8 r21 = [r34]
-	adds r14 = 144, r34
-	adds r18 = 176, r34
-	;;
-	ld8 r22 = [r21], 8
-	adds r19 = 128, r34
-	adds r20 = 136, r34
-	adds r15 = 152, r34
-	adds r16 = 160, r34
-	adds r17 = 168, r34
-	ld8 r41 = [r14]
-	ld8 r45 = [r18]
-	ld8 r38 = [r23]
-	;;
-	ld8 r39 = [r19]
-	ld8 r40 = [r20]
-	ld8 r42 = [r15]
-	ld8 r43 = [r16]
-	ld8 r44 = [r17]
-	ld8 r1 = [r21]
-	mov b6 = r22
-	;;
-	br.call.sptk.many b0 = b6 ;;
-	ld4 r14 = [r33]
-	mov r18 = r8
+	adds r14 = 120, r32
+	adds r15 = 128, r32
+	adds r16 = 136, r32
+	adds r17 = 144, r32
+	adds r18 = 152, r32
+	adds r19 = 160, r32
+	adds r20 = 168, r32
+	adds r21 = 176, r32
+	ld8 r22 = [r32]
+	;;
+	ld8 r38 = [r14]
+	ld8 r39 = [r15]
+	ld8 r40 = [r16]
+	ld8 r41 = [r17]
+	ld8 r42 = [r18]
+	ld8 r43 = [r19]
+	ld8 r44 = [r20]
+	ld8 r45 = [r21]
+	ld8 r14 = [r22], 8
+	;;
+	mov b6 = r14
+	ld8 r1 = [r22]
+	br.call.sptk.many b0 = b6
+	;;
+	mov r1 = r36
+	mov r23 = r8
+	adds r14 = 24, r32
 	;;
-	cmp4.ne p6, p7 = 1, r14
-	(p7) br.cond.dpnt .L18
+	ld4 r14 = [r14]
+	;;
+	cmp4.eq p6, p7 = 1, r14
+	(p6) br.cond.dpnt .L18
 	;;
 	cmp4.ne p6, p7 = 0, r14
-	(p7) br.cond.dpnt .L98
 	;;
+	(p7) adds r14 = 16, r32
+	;;
+	(p7) ld8 r14 = [r14]
+	;;
+	(p7) st8 [r14] = r8
+	(p7) br.cond.dptk .L18
 	cmp4.ne p6, p7 = 2, r14
-	(p7) br.cond.dpnt .L99
 	;;
+	(p7) adds r14 = 16, r32
+	;;
+	(p7) ld8 r14 = [r14]
+	;;
+	(p7) st1 [r14] = r8
+	(p7) br.cond.dpnt .L18
 	cmp4.ne p6, p7 = 3, r14
-	(p7) br.cond.dpnt .L99
 	;;
+	(p7) adds r14 = 16, r32
+	;;
+	(p7) ld8 r14 = [r14]
+	;;
+	(p7) st1 [r14] = r8
+	(p7) br.cond.dpnt .L18
 	cmp4.ne p6, p7 = 4, r14
-	(p6) br.cond.dptk .L29
-.L99:
-	adds r14 = 16, r34
 	;;
-	ld8 r15 = [r14]
+	(p7) adds r14 = 16, r32
 	;;
-	st1 [r15] = r18
-	br .L18
-.L29:
+	(p7) ld8 r14 = [r14]
+	;;
+	(p7) st1 [r14] = r8
+	(p7) br.cond.dpnt .L18
 	cmp4.ne p6, p7 = 5, r14
-	(p7) br.cond.dpnt .L100
 	;;
+	(p7) adds r14 = 16, r32
+	;;
+	(p7) ld8 r14 = [r14]
+	;;
+	(p7) st2 [r14] = r8
+	(p7) br.cond.dpnt .L18
 	cmp4.ne p6, p7 = 6, r14
-	(p6) br.cond.dptk .L33
-.L100:
-	adds r14 = 16, r34
 	;;
-	ld8 r15 = [r14]
+	(p7) adds r14 = 16, r32
 	;;
-	st2 [r15] = r18
-	br .L18
-.L33:
+	(p7) ld8 r14 = [r14]
+	;;
+	(p7) st2 [r14] = r8
+	(p7) br.cond.dpnt .L18
 	cmp4.ne p6, p7 = 7, r14
-	(p7) br.cond.dpnt .L101
 	;;
+	(p7) adds r14 = 16, r32
+	;;
+	(p7) ld8 r14 = [r14]
+	;;
+	(p7) st4 [r14] = r8
+	(p7) br.cond.dpnt .L18
 	cmp4.ne p6, p7 = 8, r14
-	(p6) br.cond.dptk .L37
-.L101:
-	adds r14 = 16, r34
 	;;
-	ld8 r15 = [r14]
+	(p7) adds r14 = 16, r32
 	;;
-	st4 [r15] = r18
-	br .L18
-.L37:
-	mov r15 = r14
+	(p7) ld8 r14 = [r14]
 	;;
-	cmp4.eq p6, p7 = 9, r15
-	(p6) br.cond.dptk .L98
+	(p7) st4 [r14] = r8
+	(p7) br.cond.dpnt .L18
+	cmp4.ne p6, p7 = 9, r14
 	;;
-	cmp4.eq p6, p7 = 11, r15
-	(p6) br.cond.dptk .L98
+	cmp4.ne.and.orcm p6, p7 = 11, r14
 	;;
-	cmp4.eq p6, p7 = 10, r15
-	(p6) br.cond.dptk .L98
+	(p7) adds r14 = 16, r32
 	;;
-	cmp4.eq p6, p7 = 12, r15
-	(p6) br.cond.dptk .L98
+	(p7) ld8 r14 = [r14]
 	;;
-	cmp4.ne p6, p7 = 15, r15
-	(p6) br.cond.dptk .L45
-.L98:
-	adds r14 = 16, r34
+	(p7) st8 [r14] = r8
+	(p7) br.cond.dptk .L18
+	cmp4.ne p6, p7 = 10, r14
 	;;
-	ld8 r15 = [r14]
+	cmp4.ne.and.orcm p6, p7 = 12, r14
 	;;
-	st8 [r15] = r18
-	br .L18
-.L45:
+	(p7) adds r14 = 16, r32
+	;;
+	(p7) ld8 r14 = [r14]
+	;;
+	(p7) st8 [r14] = r8
+	(p7) br.cond.dptk .L18
+	cmp4.ne p6, p7 = 15, r14
+	;;
+	(p7) adds r14 = 16, r32
+	;;
+	(p7) ld8 r14 = [r14]
+	;;
+	(p7) st8 [r14] = r8
+	(p7) br.cond.dpnt .L18
 	cmp4.ne p6, p7 = 16, r14
 	(p6) br.cond.dptk .L18
-	adds r15 = 8, r34
-	;;
-	ld4 r14 = [r15]
+	adds r14 = 8, r32
 	;;
-	and r14 = 1, r14
+	ld4 r14 = [r14]
 	;;
-	cmp4.eq p6, p7 = 0, r14
-	(p6) br.cond.dptk .L48
-	adds r14 = 32, r34
+	tbit.z p6, p7 = r14, 0
+	(p6) br.cond.dptk .L45
+	adds r14 = 32, r32
 	;;
 	ld8 r14 = [r14]
 	;;
 	cmp.ne p6, p7 = 1, r14
-	(p6) br.cond.dptk .L49
-	adds r14 = 16, r34
-	ld1 r16 = [r18]
 	;;
-	ld8 r15 = [r14]
+	(p7) adds r14 = 16, r32
 	;;
-	st1 [r15] = r16
-	br .L18
-.L49:
+	(p7) ld8 r15 = [r14]
+	(p7) ld1 r14 = [r8]
+	;;
+	(p7) st1 [r15] = r14
+	(p7) br.cond.dpnt .L18
 	cmp.ne p6, p7 = 2, r14
-	(p6) br.cond.dptk .L51
-	adds r14 = 16, r34
-	ld2 r16 = [r18]
 	;;
-	ld8 r15 = [r14]
+	(p7) adds r14 = 16, r32
 	;;
-	st2 [r15] = r16
-	br .L18
-.L51:
+	(p7) ld8 r15 = [r14]
+	(p7) ld2 r14 = [r8]
+	;;
+	(p7) st2 [r15] = r14
+	(p7) br.cond.dpnt .L18
 	cmp.ne p6, p7 = 4, r14
-	(p6) br.cond.dptk .L53
-	adds r14 = 16, r34
-	ld4 r16 = [r18]
 	;;
-	ld8 r15 = [r14]
+	(p7) adds r14 = 16, r32
 	;;
-	st4 [r15] = r16
-	br .L18
-.L53:
+	(p7) ld8 r15 = [r14]
+	(p7) ld4 r14 = [r8]
+	;;
+	(p7) st4 [r15] = r14
+	(p7) br.cond.dpnt .L18
 	cmp.ne p6, p7 = 8, r14
-	(p6) br.cond.dptk .L55
-	adds r14 = 16, r34
-	ld8 r16 = [r18]
 	;;
-	ld8 r15 = [r14]
+	(p7) adds r14 = 16, r32
 	;;
-	st8 [r15] = r16
-	br .L18
-.L55:
+	(p7) ld8 r15 = [r14]
+	(p7) ld8 r14 = [r8]
+	;;
+	(p7) st8 [r15] = r14
+	(p7) br.cond.dpnt .L18
 	adds r14 = 7, r14
 	;;
-	shr.u r14 = r14, 3
+	shr.u r25 = r14, 3
 	;;
-	adds r14 = -1, r14
+	adds r15 = -1, r25
 	;;
-	cmp4.le p6, p7 = 0, r14
-	sxt4 r17 = r14
-	(p7) br.cond.dpnt .L18
-	adds r14 = 16, r34
+	cmp4.gt p6, p7 = r0, r15
+	(p6) br.cond.dpnt .L18
+	sxt4 r14 = r15
 	;;
-	ld8 r19 = [r14]
-.L59:
-	shl r14 = r17, 3
-	adds r17 = -1, r17
+	shladd r24 = r14, 3, r0
 	;;
-	add r16 = r18, r14
-	add r14 = r19, r14
-	cmp4.le p6, p7 = 0, r17
+	add r23 = r8, r24
+	adds r16 = 16, r32
+	sub r14 = r25, r15
 	;;
-	ld8 r15 = [r16]
-	sxt4 r17 = r17
+	adds r14 = -2, r14
+	;;
+	sub r14 = r15, r14, 1
+	;;
+	addp4 r14 = r14, r0
+	;;
+	mov ar.lc = r14
+.L56:
+	ld8 r14 = [r16]
+	;;
+	add r14 = r24, r14
+	ld8 r15 = [r23], -8
 	;;
 	st8 [r14] = r15
-	(p6) br.cond.dptk .L59
+	adds r24 = -8, r24
+	br.cloop.sptk.few .L56
 	br .L18
-.L48:
-	ld4 r14 = [r15]
-	addl r15 = 512, r0
-	;;
-	and r14 = r15, r14
 	;;
-	cmp4.eq p6, p7 = 0, r14
-	(p6) br.cond.dptk .L18
-	adds r22 = 32, r34
+.L45:
+	tbit.z p6, p7 = r14, 9
+	(p6) br.cond.dpnt .L18
+	adds r16 = 32, r32
 	;;
-	ld8 r15 = [r22]
+	ld8 r15 = [r16]
 	;;
 	adds r14 = -1, r15
 	;;
 	cmp.ltu p6, p7 = 31, r14
-	(p6) br.cond.dptk .L18
+	(p6) br.cond.dpnt .L18
 	;;
 	cmp.eq p6, p7 = 0, r15
-	(p6) br.cond.dptk .L64
-	adds r14 = 16, r34
+	(p6) br.cond.dptk .L59
+	adds r15 = 16, r32
+	;;
+	ld8 r14 = [r15]
+	;;
+	st1 [r14] = r8
+	ld8 r14 = [r16]
+	;;
+	cmp.geu p6, p7 = 1, r14
+	;;
+	(p7) ld8 r14 = [r15]
+	;;
+	(p7) adds r14 = 1, r14
+	(p7) shr r15 = r8, 8
 	;;
-	ld8 r15 = [r14]
+	(p7) st1 [r14] = r15
+	adds r14 = 32, r32
 	;;
-	st1 [r15] = r18
-	ld8 r15 = [r22]
+	ld8 r14 = [r14]
 	;;
-.L64:
-	cmp.geu p6, p7 = 1, r15
-	(p6) br.cond.dptk .L65
-	adds r14 = 16, r34
-	shr r16 = r18, 8
+	cmp.geu p6, p7 = 2, r14
 	;;
-	ld8 r15 = [r14]
+	(p7) adds r14 = 16, r32
 	;;
-	adds r15 = 1, r15
+	(p7) ld8 r14 = [r14]
 	;;
-	st1 [r15] = r16
-	ld8 r15 = [r22]
+	(p7) adds r14 = 2, r14
+	(p7) shr r15 = r8, 16
 	;;
-.L65:
-	cmp.geu p6, p7 = 2, r15
-	(p6) br.cond.dptk .L66
-	adds r14 = 16, r34
-	shr r16 = r18, 16
+	(p7) st1 [r14] = r15
+	adds r14 = 32, r32
 	;;
-	ld8 r15 = [r14]
+	ld8 r14 = [r14]
 	;;
-	adds r15 = 2, r15
+	cmp.geu p6, p7 = 3, r14
 	;;
-	st1 [r15] = r16
-	ld8 r15 = [r22]
+	(p7) adds r14 = 16, r32
 	;;
-.L66:
-	cmp.geu p6, p7 = 3, r15
-	(p6) br.cond.dptk .L67
-	adds r14 = 16, r34
-	shr r16 = r18, 24
+	(p7) ld8 r14 = [r14]
 	;;
-	ld8 r15 = [r14]
+	(p7) adds r14 = 3, r14
+	(p7) shr r15 = r8, 24
 	;;
-	adds r15 = 3, r15
+	(p7) st1 [r14] = r15
+.L59:
+	adds r14 = 32, r32
 	;;
-	st1 [r15] = r16
-	ld8 r15 = [r22]
+	ld8 r14 = [r14]
 	;;
-.L67:
-	cmp.geu p6, p7 = 4, r15
-	(p6) br.cond.dptk .L68
-	adds r14 = 16, r34
-	shr r16 = r18, 32
+	cmp.geu p6, p7 = 4, r14
 	;;
-	ld8 r15 = [r14]
+	(p7) adds r14 = 16, r32
 	;;
-	adds r15 = 4, r15
+	(p7) ld8 r14 = [r14]
 	;;
-	st1 [r15] = r16
-	ld8 r15 = [r22]
+	(p7) adds r14 = 4, r14
+	(p7) shr r15 = r23, 32
 	;;
-.L68:
-	cmp.geu p6, p7 = 5, r15
-	(p6) br.cond.dptk .L69
-	adds r14 = 16, r34
-	shr r16 = r18, 40
+	(p7) st1 [r14] = r15
+	adds r14 = 32, r32
 	;;
-	ld8 r15 = [r14]
+	ld8 r14 = [r14]
 	;;
-	adds r15 = 5, r15
+	cmp.geu p6, p7 = 5, r14
 	;;
-	st1 [r15] = r16
-	ld8 r15 = [r22]
+	(p7) adds r14 = 16, r32
 	;;
-.L69:
-	cmp.geu p6, p7 = 6, r15
-	(p6) br.cond.dptk .L70
-	adds r14 = 16, r34
-	shr r16 = r18, 48
+	(p7) ld8 r14 = [r14]
 	;;
-	ld8 r15 = [r14]
+	(p7) adds r14 = 5, r14
+	(p7) shr r15 = r23, 40
 	;;
-	adds r15 = 6, r15
+	(p7) st1 [r14] = r15
+	adds r14 = 32, r32
 	;;
-	st1 [r15] = r16
-	ld8 r15 = [r22]
+	ld8 r14 = [r14]
 	;;
-.L70:
-	cmp.geu p6, p7 = 7, r15
-	(p6) br.cond.dptk .L71
-	adds r14 = 16, r34
-	shr r16 = r18, 56
+	cmp.geu p6, p7 = 6, r14
 	;;
-	ld8 r15 = [r14]
+	(p7) adds r14 = 16, r32
 	;;
-	adds r15 = 7, r15
+	(p7) ld8 r14 = [r14]
 	;;
-	st1 [r15] = r16
-	ld8 r15 = [r22]
+	(p7) adds r14 = 6, r14
+	(p7) shr r15 = r23, 48
 	;;
-.L71:
-	cmp.geu p6, p7 = 8, r15
-	(p6) br.cond.dptk .L18
-	adds r16 = 16, r34
+	(p7) st1 [r14] = r15
+	adds r14 = 32, r32
+	;;
+	ld8 r14 = [r14]
+	;;
+	cmp.geu p6, p7 = 7, r14
+	;;
+	(p7) adds r14 = 16, r32
+	;;
+	(p7) ld8 r14 = [r14]
+	;;
+	(p7) adds r14 = 7, r14
+	(p7) shr r15 = r23, 56
+	;;
+	(p7) st1 [r14] = r15
+	adds r15 = 32, r32
+	;;
+	ld8 r14 = [r15]
+	;;
+	cmp.geu p6, p7 = 8, r14
+	(p6) br.cond.dpnt .L18
+	adds r16 = 16, r32
 	;;
 	ld8 r14 = [r16]
 	;;
 	adds r14 = 8, r14
 	;;
 	st1 [r14] = r9
-	ld8 r15 = [r22]
+	ld8 r14 = [r15]
 	;;
-	cmp.geu p6, p7 = 9, r15
-	(p6) br.cond.dptk .L73
-	ld8 r14 = [r16]
-	shr r15 = r9, 8
+	cmp.geu p6, p7 = 9, r14
 	;;
-	adds r14 = 9, r14
+	(p7) ld8 r14 = [r16]
 	;;
-	st1 [r14] = r15
-	ld8 r15 = [r22]
+	(p7) adds r14 = 9, r14
+	(p7) shr r15 = r9, 8
 	;;
-.L73:
-	cmp.geu p6, p7 = 10, r15
-	(p6) br.cond.dptk .L74
-	ld8 r14 = [r16]
-	shr r15 = r9, 16
+	(p7) st1 [r14] = r15
+	adds r14 = 32, r32
+	;;
+	ld8 r14 = [r14]
+	;;
+	cmp.geu p6, p7 = 10, r14
+	;;
+	(p7) adds r14 = 16, r32
+	;;
+	(p7) ld8 r14 = [r14]
 	;;
-	adds r14 = 10, r14
+	(p7) adds r14 = 10, r14
+	(p7) shr r15 = r9, 16
 	;;
-	st1 [r14] = r15
-.L74:
-	ld8 r14 = [r22]
+	(p7) st1 [r14] = r15
+	adds r14 = 32, r32
+	;;
+	ld8 r14 = [r14]
 	;;
 	cmp.geu p6, p7 = 11, r14
-	(p6) br.cond.dptk .L75
-	ld8 r14 = [r16]
-	shr r15 = r9, 24
 	;;
-	adds r14 = 11, r14
+	(p7) adds r14 = 16, r32
 	;;
-	st1 [r14] = r15
-	ld8 r14 = [r22]
+	(p7) ld8 r14 = [r14]
+	;;
+	(p7) adds r14 = 11, r14
+	(p7) shr r15 = r9, 24
+	;;
+	(p7) st1 [r14] = r15
+	adds r14 = 32, r32
+	;;
+	ld8 r14 = [r14]
 	;;
-.L75:
 	cmp.geu p6, p7 = 12, r14
-	(p6) br.cond.dptk .L76
-	ld8 r14 = [r16]
-	shr r15 = r9, 32
 	;;
-	adds r14 = 12, r14
+	(p7) adds r14 = 16, r32
+	;;
+	(p7) ld8 r14 = [r14]
+	;;
+	(p7) adds r14 = 12, r14
+	(p7) shr r15 = r9, 32
 	;;
-	st1 [r14] = r15
-	ld8 r14 = [r22]
+	(p7) st1 [r14] = r15
+	adds r14 = 32, r32
+	;;
+	ld8 r14 = [r14]
 	;;
-.L76:
 	cmp.geu p6, p7 = 13, r14
-	(p6) br.cond.dptk .L77
-	ld8 r14 = [r16]
-	shr r15 = r9, 40
 	;;
-	adds r14 = 13, r14
+	(p7) adds r14 = 16, r32
+	;;
+	(p7) ld8 r14 = [r14]
 	;;
-	st1 [r14] = r15
-	ld8 r14 = [r22]
+	(p7) adds r14 = 13, r14
+	(p7) shr r15 = r9, 40
+	;;
+	(p7) st1 [r14] = r15
+	adds r14 = 32, r32
+	;;
+	ld8 r14 = [r14]
 	;;
-.L77:
 	cmp.geu p6, p7 = 14, r14
-	(p6) br.cond.dptk .L78
-	ld8 r14 = [r16]
-	shr r15 = r9, 48
 	;;
-	adds r14 = 14, r14
+	(p7) adds r14 = 16, r32
+	;;
+	(p7) ld8 r14 = [r14]
 	;;
-	st1 [r14] = r15
-	ld8 r14 = [r22]
+	(p7) adds r14 = 14, r14
+	(p7) shr r15 = r9, 48
+	;;
+	(p7) st1 [r14] = r15
+	adds r14 = 32, r32
+	;;
+	ld8 r14 = [r14]
 	;;
-.L78:
 	cmp.geu p6, p7 = 15, r14
-	(p6) br.cond.dptk .L79
-	ld8 r14 = [r16]
-	shr r15 = r9, 56
 	;;
-	adds r14 = 15, r14
+	(p7) adds r14 = 16, r32
+	;;
+	(p7) ld8 r14 = [r14]
 	;;
-	st1 [r14] = r15
-	ld8 r14 = [r22]
+	(p7) adds r14 = 15, r14
+	(p7) shr r15 = r9, 56
+	;;
+	(p7) st1 [r14] = r15
+	adds r15 = 32, r32
+	;;
+	ld8 r14 = [r15]
 	;;
-.L79:
 	cmp.geu p6, p7 = 16, r14
-	(p6) br.cond.dptk .L18
+	(p6) br.cond.dpnt .L18
+	adds r16 = 16, r32
+	;;
 	ld8 r14 = [r16]
 	;;
 	adds r14 = 16, r14
 	;;
 	st1 [r14] = r10
-	ld8 r14 = [r22]
+	ld8 r14 = [r15]
 	;;
 	cmp.geu p6, p7 = 17, r14
-	(p6) br.cond.dptk .L81
-	ld8 r14 = [r16]
-	shr r15 = r10, 8
 	;;
-	adds r14 = 17, r14
+	(p7) ld8 r14 = [r16]
 	;;
-	st1 [r14] = r15
-	ld8 r14 = [r22]
+	(p7) adds r14 = 17, r14
+	(p7) shr r15 = r10, 8
+	;;
+	(p7) st1 [r14] = r15
+	adds r14 = 32, r32
+	;;
+	ld8 r14 = [r14]
 	;;
-.L81:
 	cmp.geu p6, p7 = 18, r14
-	(p6) br.cond.dptk .L82
-	ld8 r14 = [r16]
-	shr r15 = r10, 16
 	;;
-	adds r14 = 18, r14
+	(p7) adds r14 = 16, r32
+	;;
+	(p7) ld8 r14 = [r14]
+	;;
+	(p7) adds r14 = 18, r14
+	(p7) shr r15 = r10, 16
+	;;
+	(p7) st1 [r14] = r15
+	adds r14 = 32, r32
 	;;
-	st1 [r14] = r15
-	ld8 r14 = [r22]
+	ld8 r14 = [r14]
 	;;
-.L82:
 	cmp.geu p6, p7 = 19, r14
-	(p6) br.cond.dptk .L83
-	ld8 r14 = [r16]
-	shr r15 = r10, 24
 	;;
-	adds r14 = 19, r14
+	(p7) adds r14 = 16, r32
+	;;
+	(p7) ld8 r14 = [r14]
+	;;
+	(p7) adds r14 = 19, r14
+	(p7) shr r15 = r10, 24
 	;;
-	st1 [r14] = r15
-	ld8 r14 = [r22]
+	(p7) st1 [r14] = r15
+	adds r14 = 32, r32
+	;;
+	ld8 r14 = [r14]
 	;;
-.L83:
 	cmp.geu p6, p7 = 20, r14
-	(p6) br.cond.dptk .L84
-	ld8 r14 = [r16]
-	shr r15 = r10, 32
 	;;
-	adds r14 = 20, r14
+	(p7) adds r14 = 16, r32
 	;;
-	st1 [r14] = r15
-	ld8 r14 = [r22]
+	(p7) ld8 r14 = [r14]
+	;;
+	(p7) adds r14 = 20, r14
+	(p7) shr r15 = r10, 32
+	;;
+	(p7) st1 [r14] = r15
+	adds r14 = 32, r32
+	;;
+	ld8 r14 = [r14]
 	;;
-.L84:
 	cmp.geu p6, p7 = 21, r14
-	(p6) br.cond.dptk .L85
-	ld8 r14 = [r16]
-	shr r15 = r10, 40
 	;;
-	adds r14 = 21, r14
+	(p7) adds r14 = 16, r32
+	;;
+	(p7) ld8 r14 = [r14]
+	;;
+	(p7) adds r14 = 21, r14
+	(p7) shr r15 = r10, 40
 	;;
-	st1 [r14] = r15
-.L85:
-	ld8 r14 = [r22]
+	(p7) st1 [r14] = r15
+	adds r14 = 32, r32
+	;;
+	ld8 r14 = [r14]
 	;;
 	cmp.geu p6, p7 = 22, r14
-	(p6) br.cond.dptk .L86
-	ld8 r14 = [r16]
-	shr r15 = r10, 48
 	;;
-	adds r14 = 22, r14
+	(p7) adds r14 = 16, r32
+	;;
+	(p7) ld8 r14 = [r14]
 	;;
-	st1 [r14] = r15
-	ld8 r14 = [r22]
+	(p7) adds r14 = 22, r14
+	(p7) shr r15 = r10, 48
+	;;
+	(p7) st1 [r14] = r15
+	adds r14 = 32, r32
+	;;
+	ld8 r14 = [r14]
 	;;
-.L86:
 	cmp.geu p6, p7 = 23, r14
-	(p6) br.cond.dptk .L87
-	ld8 r14 = [r16]
-	shr r15 = r10, 56
 	;;
-	adds r14 = 23, r14
+	(p7) adds r14 = 16, r32
+	;;
+	(p7) ld8 r14 = [r14]
 	;;
-	st1 [r14] = r15
-	ld8 r14 = [r22]
+	(p7) adds r14 = 23, r14
+	(p7) shr r15 = r10, 56
+	;;
+	(p7) st1 [r14] = r15
+	adds r15 = 32, r32
+	;;
+	ld8 r14 = [r15]
 	;;
-.L87:
 	cmp.geu p6, p7 = 24, r14
-	(p6) br.cond.dptk .L18
+	(p6) br.cond.dpnt .L18
+	adds r16 = 16, r32
+	;;
 	ld8 r14 = [r16]
 	;;
 	adds r14 = 24, r14
 	;;
 	st1 [r14] = r11
-	ld8 r14 = [r22]
+	ld8 r14 = [r15]
 	;;
 	cmp.geu p6, p7 = 25, r14
-	(p6) br.cond.dptk .L89
-	ld8 r14 = [r16]
-	shr r15 = r11, 8
 	;;
-	adds r14 = 25, r14
+	(p7) ld8 r14 = [r16]
 	;;
-	st1 [r14] = r15
-	ld8 r14 = [r22]
+	(p7) adds r14 = 25, r14
+	(p7) shr r15 = r11, 8
+	;;
+	(p7) st1 [r14] = r15
+	adds r14 = 32, r32
+	;;
+	ld8 r14 = [r14]
 	;;
-.L89:
 	cmp.geu p6, p7 = 26, r14
-	(p6) br.cond.dptk .L90
-	ld8 r14 = [r16]
-	shr r15 = r11, 16
 	;;
-	adds r14 = 26, r14
+	(p7) adds r14 = 16, r32
+	;;
+	(p7) ld8 r14 = [r14]
 	;;
-	st1 [r14] = r15
-	ld8 r14 = [r22]
+	(p7) adds r14 = 26, r14
+	(p7) shr r15 = r11, 16
+	;;
+	(p7) st1 [r14] = r15
+	adds r14 = 32, r32
+	;;
+	ld8 r14 = [r14]
 	;;
-.L90:
 	cmp.geu p6, p7 = 27, r14
-	(p6) br.cond.dptk .L91
-	ld8 r14 = [r16]
-	shr r15 = r11, 24
 	;;
-	adds r14 = 27, r14
+	(p7) adds r14 = 16, r32
+	;;
+	(p7) ld8 r14 = [r14]
+	;;
+	(p7) adds r14 = 27, r14
+	(p7) shr r15 = r11, 24
+	;;
+	(p7) st1 [r14] = r15
+	adds r14 = 32, r32
 	;;
-	st1 [r14] = r15
-	ld8 r14 = [r22]
+	ld8 r14 = [r14]
 	;;
-.L91:
 	cmp.geu p6, p7 = 28, r14
-	(p6) br.cond.dptk .L92
-	ld8 r14 = [r16]
-	shr r15 = r11, 32
 	;;
-	adds r14 = 28, r14
+	(p7) adds r14 = 16, r32
+	;;
+	(p7) ld8 r14 = [r14]
+	;;
+	(p7) adds r14 = 28, r14
+	(p7) shr r15 = r11, 32
 	;;
-	st1 [r14] = r15
-	ld8 r14 = [r22]
+	(p7) st1 [r14] = r15
+	adds r14 = 32, r32
+	;;
+	ld8 r14 = [r14]
 	;;
-.L92:
 	cmp.geu p6, p7 = 29, r14
-	(p6) br.cond.dptk .L93
-	ld8 r14 = [r16]
-	shr r15 = r11, 40
 	;;
-	adds r14 = 29, r14
+	(p7) adds r14 = 16, r32
 	;;
-	st1 [r14] = r15
-	ld8 r14 = [r22]
+	(p7) ld8 r14 = [r14]
+	;;
+	(p7) adds r14 = 29, r14
+	(p7) shr r15 = r11, 40
+	;;
+	(p7) st1 [r14] = r15
+	adds r14 = 32, r32
+	;;
+	ld8 r14 = [r14]
 	;;
-.L93:
 	cmp.geu p6, p7 = 30, r14
-	(p6) br.cond.dptk .L94
-	ld8 r14 = [r16]
-	shr r15 = r11, 48
 	;;
-	adds r14 = 30, r14
+	(p7) adds r14 = 16, r32
+	;;
+	(p7) ld8 r14 = [r14]
+	;;
+	(p7) adds r14 = 30, r14
+	(p7) shr r15 = r11, 48
 	;;
-	st1 [r14] = r15
-	ld8 r14 = [r22]
+	(p7) st1 [r14] = r15
+	adds r14 = 32, r32
+	;;
+	ld8 r14 = [r14]
 	;;
-.L94:
 	cmp.geu p6, p7 = 31, r14
-	(p6) br.cond.dptk .L18
-	ld8 r14 = [r16]
-	shr r15 = r11, 56
 	;;
-	adds r14 = 31, r14
+	(p7) adds r14 = 16, r32
 	;;
-	st1 [r14] = r15
+	(p7) ld8 r14 = [r14]
+	;;
+	(p7) adds r14 = 31, r14
+	(p7) shr r15 = r11, 56
+	;;
+	(p7) st1 [r14] = r15
 .L18:
-	addl r8 = 0, r0
-	adds r12 = 16, r12
-	mov ar.pfs = r37
-	mov b0 = r36
+	mov r8 = r0
+	mov ar.pfs = r35
+	mov ar.lc = r37
+	mov b0 = r34
 	br.ret.sptk.many b0
+	;;
 	.endp __builtin_avcall#
-	.ident	"GCC: (GNU) 2.9-ia64-000216 snap-000324"
+	.ident	"GCC: (GNU) 4.1.0 (SUSE Linux)"
--- a/ffcall-1.10+2.43/avcall/avcall.h.in
+++ b/ffcall-1.10+2.43/avcall/avcall.h.in
@@ -1112,7 +1112,7 @@ typedef struct
  * different alignment.
  */
 /* little endian -> small structures < 1 word are adjusted to the left */
-#if defined(__i386__) || defined(__alpha__) || defined(__x86_64__)
+#if defined(__i386__) || defined(__alpha__) || defined(__x86_64__) || (defined(__ia64__) && defined(__GNUC__) && (__GNUC__ >= 3))
 #define __av_struct(LIST,TYPE,TYPE_SIZE,TYPE_ALIGN,ASSIGN,VAL)		\
   (((LIST).aptr =							\
     (__avword*)(((__avword)(LIST).aptr+(TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(long)__av_struct_alignment(TYPE_ALIGN)))\
@@ -1121,7 +1121,7 @@ typedef struct
 	   (LIST).aptr = (__avword*)(((__avword)(LIST).aptr+sizeof(__avword)-1) & -(long)sizeof(__avword)),\
 	   0))
 #endif
-#if defined(__ia64__)
+#if defined(__ia64__) && (!defined(__GNUC__) || (__GNUC__ < 3))
 /* Types larger than a word have 2-word alignment. */
 #define __av_struct(LIST,TYPE,TYPE_SIZE,TYPE_ALIGN,ASSIGN,VAL)		\
   ((LIST).aptr = (__avword*)(((__avword)(LIST).aptr+(TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(long)__av_struct_alignment(TYPE_ALIGN)), \
--- a/ffcall-1.10+2.43/callback/vacall_r/vacall_r.h.in
+++ b/ffcall-1.10+2.43/callback/vacall_r/vacall_r.h.in
@@ -1059,7 +1059,7 @@ typedef __va_alist* va_alist;
 #endif
 #define __va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN)  \
   (LIST)->aptr = ((LIST)->aptr + __va_struct_alignment(TYPE_ALIGN)-1) & -(long)__va_struct_alignment(TYPE_ALIGN),
-#if defined(__i386__) || defined(__m68k__) || defined(__alpha__) || defined(__arm__) || defined(__powerpc64__) || defined(__m88k__) || defined(__convex__) || defined(__x86_64__)
+#if defined(__i386__) || defined(__m68k__) || defined(__alpha__) || defined(__arm__) || defined(__powerpc64__) || defined(__m88k__) || defined(__convex__) || defined(__x86_64__) || (defined(__ia64__) && defined(__GNUC__) && (__GNUC__ >= 3))
 #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN)  \
   (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN)				\
    __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN)				\
@@ -1144,7 +1144,7 @@ typedef __va_alist* va_alist;
      (void*)__va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN)		\
   )
 #endif
-#if defined(__ia64__)
+#if defined(__ia64__) && (!defined(__GNUC__) || (__GNUC__ < 3))
 /* Types larger than a word have 2-word alignment. */
 #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN)  \
   (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN)				\

Places

File clisp-2.44.1-ia64.dif of Package clisp (Revision a9a5a9131f6477b7e7c79c441b852467)

Places