This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add lrintl, llrintl, lroundl, and llroundl probes
authorH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Mon, 16 Feb 2015 08:59:43 +0000 (09:59 +0100)
committerH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Mon, 16 Feb 2015 08:59:43 +0000 (09:59 +0100)
Backport of bc580dd327b37b38d4f66d5c335b3e9fc12eaac8 with some small
document changes

U/perl/d_llrintl.U [new file with mode: 0644]
U/perl/d_llroundl.U [new file with mode: 0644]
U/perl/d_lrintl.U [new file with mode: 0644]
U/perl/d_lroundl.U [new file with mode: 0644]

diff --git a/U/perl/d_llrintl.U b/U/perl/d_llrintl.U
new file mode 100644 (file)
index 0000000..87df64e
--- /dev/null
@@ -0,0 +1,23 @@
+?RCS: You may distribute under the terms of either the GNU General Public
+?RCS: License or the Artistic License, as specified in the README file.
+?RCS:
+?MAKE:d_llrintl: Inlibc
+?MAKE: -pick add $@ %<
+?S:d_llrintl:
+?S:    This variable conditionally defines the HAS_LLRINTL symbol, which
+?S:    indicates to the C program that the llrintl() routine is available
+?S:    to return the long long value closest to (according to the current
+?S:    rounding mode) to x.
+?S:.
+?C:HAS_LLRINTL:
+?C:    This symbol, if defined, indicates that the llrintl routine is
+?C:    available to return the closest long long value of the long double
+?C:    argument according to the current rounding mode.
+?C:.
+?H:#$d_llrintl HAS_LLRINTL             /**/
+?H:.
+?LINT:set d_llrintl
+: see if llrintl exists
+set llrintl d_llrintl
+eval $inlibc
+
diff --git a/U/perl/d_llroundl.U b/U/perl/d_llroundl.U
new file mode 100644 (file)
index 0000000..0049eae
--- /dev/null
@@ -0,0 +1,22 @@
+?RCS: You may distribute under the terms of either the GNU General Public
+?RCS: License or the Artistic License, as specified in the README file.
+?RCS:
+?MAKE:d_llroundl: Inlibc
+?MAKE: -pick add $@ %<
+?S:d_llroundl:
+?S:    This variable conditionally defines the HAS_LLROUNDL symbol, which
+?S:    indicates to the C program that the llroundl() routine is available
+?S:    to return the long long value nearest to x away from zero.
+?S:.
+?C:HAS_LLROUNDL:
+?C:    This symbol, if defined, indicates that the llroundl routine is
+?C:    available to return the nearest long long value away from zero of
+?C:    the long double argument value.
+?C:.
+?H:#$d_llroundl HAS_LLROUNDL           /**/
+?H:.
+?LINT:set d_llroundl
+: see if llroundl exists
+set llroundl d_llroundl
+eval $inlibc
+
diff --git a/U/perl/d_lrintl.U b/U/perl/d_lrintl.U
new file mode 100644 (file)
index 0000000..649b1bd
--- /dev/null
@@ -0,0 +1,23 @@
+?RCS: You may distribute under the terms of either the GNU General Public
+?RCS: License or the Artistic License, as specified in the README file.
+?RCS:
+?MAKE:d_lrintl: Inlibc
+?MAKE: -pick add $@ %<
+?S:d_lrintl:
+?S:    This variable conditionally defines the HAS_LRINTL symbol, which
+?S:    indicates to the C program that the lrintl() routine is available
+?S:    to return the integral value closest to (according to the current
+?S:    rounding mode) to x.
+?S:.
+?C:HAS_LRINTL:
+?C:    This symbol, if defined, indicates that the lrintl routine is
+?C:    available to return the closest integral value of the long double
+?C:    argument according to the current rounding mode.
+?C:.
+?H:#$d_lrintl HAS_LRINTL               /**/
+?H:.
+?LINT:set d_lrintl
+: see if lrintl exists
+set lrintl d_lrintl
+eval $inlibc
+
diff --git a/U/perl/d_lroundl.U b/U/perl/d_lroundl.U
new file mode 100644 (file)
index 0000000..acacfbf
--- /dev/null
@@ -0,0 +1,22 @@
+?RCS: You may distribute under the terms of either the GNU General Public
+?RCS: License or the Artistic License, as specified in the README file.
+?RCS:
+?MAKE:d_lroundl: Inlibc
+?MAKE: -pick add $@ %<
+?S:d_lroundl:
+?S:    This variable conditionally defines the HAS_LROUNDL symbol, which
+?S:    indicates to the C program that the lroundl() routine is available
+?S:    to return the integral value nearest to x away from zero.
+?S:.
+?C:HAS_LROUNDL:
+?C:    This symbol, if defined, indicates that the lroundl routine is
+?C:    available to return the nearest integral value away from zero of
+?C:    the long double argument value.
+?C:.
+?H:#$d_lroundl HAS_LROUNDL             /**/
+?H:.
+?LINT:set d_lroundl
+: see if lroundl exists
+set lroundl d_lroundl
+eval $inlibc
+