[Gmp-commit] /var/hg/gmp: New file.

[mercurial at gmplib.org]

details:   /var/hg/gmp/rev/40bc3ba82abf
changeset: 14269:40bc3ba82abf
user:      Torbjorn Granlund <tege at gmplib.org>
date:      Thu Oct 06 22:15:03 2011 +0200
description:
New file.

diffstat:

 mpn/s390_64/invert_limb.asm |  106 ++++++++++++++++++++++++++++++++++++++++++++
 1 files changed, 106 insertions(+), 0 deletions(-)

diffs (110 lines):

diff -r 14a51f7ebc33 -r 40bc3ba82abf mpn/s390_64/invert_limb.asm
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/mpn/s390_64/invert_limb.asm	Thu Oct 06 22:15:03 2011 +0200
@@ -0,0 +1,106 @@
+dnl  S/390-64 mpn_invert_limb
+
+dnl  Contributed to the GNU project by Torbjorn Granlund.
+
+dnl  Copyright 2011 Free Software Foundation, Inc.
+
+dnl  This file is part of the GNU MP Library.
+
+dnl  The GNU MP Library is free software; you can redistribute it and/or modify
+dnl  it under the terms of the GNU Lesser General Public License as published
+dnl  by the Free Software Foundation; either version 3 of the License, or (at
+dnl  your option) any later version.
+
+dnl  The GNU MP Library is distributed in the hope that it will be useful, but
+dnl  WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+dnl  or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
+dnl  License for more details.
+
+dnl  You should have received a copy of the GNU Lesser General Public License
+dnl  along with the GNU MP Library.  If not, see http://www.gnu.org/licenses/.
+
+include(`../config.m4')
+
+ASM_START()
+	TEXT
+	ALIGN(16)
+PROLOGUE(mpn_invert_limb)
+	stmg	%r8, %r9, 64(%r15)
+	srlg	%r1, %r2, 55
+	aghi	%r1, -256
+	agr	%r1, %r1
+	larl	%r4, approx_tab
+	srlg	%r3, %r2, 24
+	aghi	%r3, 1
+	lghi	%r5, 1
+	llgh	%r4, 0(%r1, %r4)
+	sllg	%r1, %r4, 11
+	msgr	%r4, %r4
+	msgr	%r4, %r3
+	srlg	%r4, %r4, 40
+	aghi	%r1, -1
+	sgr	%r1, %r4
+	sllg	%r8, %r1, 60
+	sllg	%r9, %r1, 13
+	msgr	%r1, %r1
+	msgr	%r1, %r3
+	sgr	%r8, %r1
+	ngr	%r5, %r2
+	srlg	%r4, %r2, 1
+	srlg	%r3, %r8, 47
+	agr	%r3, %r9
+	agr	%r4, %r5
+	msgr	%r4, %r3
+	srlg	%r9, %r3, 1
+	lcgr	%r5, %r5
+	ngr	%r9, %r5
+	sgr	%r9, %r4
+	mlgr	%r8, %r3
+	srlg	%r1, %r8, 1
+	sllg	%r4, %r3, 31
+	agr	%r4, %r1
+	lgr	%r9, %r4
+	mlgr	%r8, %r2
+	algr	%r9, %r2
+	alcgr	%r8, %r2
+	lgr	%r2, %r4
+	sgr	%r2, %r8
+	lmg	%r8, %r9, 64(%r15)
+	br	%r14
+EPILOGUE()
+	RODATA
+	ALIGN(2)
+approx_tab:
+	.word	0x7fd,0x7f5,0x7ed,0x7e5,0x7dd,0x7d5,0x7ce,0x7c6
+	.word	0x7bf,0x7b7,0x7b0,0x7a8,0x7a1,0x79a,0x792,0x78b
+	.word	0x784,0x77d,0x776,0x76f,0x768,0x761,0x75b,0x754
+	.word	0x74d,0x747,0x740,0x739,0x733,0x72c,0x726,0x720
+	.word	0x719,0x713,0x70d,0x707,0x700,0x6fa,0x6f4,0x6ee
+	.word	0x6e8,0x6e2,0x6dc,0x6d6,0x6d1,0x6cb,0x6c5,0x6bf
+	.word	0x6ba,0x6b4,0x6ae,0x6a9,0x6a3,0x69e,0x698,0x693
+	.word	0x68d,0x688,0x683,0x67d,0x678,0x673,0x66e,0x669
+	.word	0x664,0x65e,0x659,0x654,0x64f,0x64a,0x645,0x640
+	.word	0x63c,0x637,0x632,0x62d,0x628,0x624,0x61f,0x61a
+	.word	0x616,0x611,0x60c,0x608,0x603,0x5ff,0x5fa,0x5f6
+	.word	0x5f1,0x5ed,0x5e9,0x5e4,0x5e0,0x5dc,0x5d7,0x5d3
+	.word	0x5cf,0x5cb,0x5c6,0x5c2,0x5be,0x5ba,0x5b6,0x5b2
+	.word	0x5ae,0x5aa,0x5a6,0x5a2,0x59e,0x59a,0x596,0x592
+	.word	0x58e,0x58a,0x586,0x583,0x57f,0x57b,0x577,0x574
+	.word	0x570,0x56c,0x568,0x565,0x561,0x55e,0x55a,0x556
+	.word	0x553,0x54f,0x54c,0x548,0x545,0x541,0x53e,0x53a
+	.word	0x537,0x534,0x530,0x52d,0x52a,0x526,0x523,0x520
+	.word	0x51c,0x519,0x516,0x513,0x50f,0x50c,0x509,0x506
+	.word	0x503,0x500,0x4fc,0x4f9,0x4f6,0x4f3,0x4f0,0x4ed
+	.word	0x4ea,0x4e7,0x4e4,0x4e1,0x4de,0x4db,0x4d8,0x4d5
+	.word	0x4d2,0x4cf,0x4cc,0x4ca,0x4c7,0x4c4,0x4c1,0x4be
+	.word	0x4bb,0x4b9,0x4b6,0x4b3,0x4b0,0x4ad,0x4ab,0x4a8
+	.word	0x4a5,0x4a3,0x4a0,0x49d,0x49b,0x498,0x495,0x493
+	.word	0x490,0x48d,0x48b,0x488,0x486,0x483,0x481,0x47e
+	.word	0x47c,0x479,0x477,0x474,0x472,0x46f,0x46d,0x46a
+	.word	0x468,0x465,0x463,0x461,0x45e,0x45c,0x459,0x457
+	.word	0x455,0x452,0x450,0x44e,0x44b,0x449,0x447,0x444
+	.word	0x442,0x440,0x43e,0x43b,0x439,0x437,0x435,0x432
+	.word	0x430,0x42e,0x42c,0x42a,0x428,0x425,0x423,0x421
+	.word	0x41f,0x41d,0x41b,0x419,0x417,0x414,0x412,0x410
+	.word	0x40e,0x40c,0x40a,0x408,0x406,0x404,0x402,0x400
+ASM_END()