New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
[PATCH] static funcs in HiRes.xs #15201
Comments
From @bulk88Created by @bulk88See attached patch. This is a resubmit of Perl Info
|
From @bulk880001-static-funcs-in-HiRes.xs.patchFrom e48c278efcec098a268596e5744562809abc9a69 Mon Sep 17 00:00:00 2001
From: Daniel Dragan <bulk88@hotmail.com>
Date: Fri, 26 Feb 2016 15:35:28 -0500
Subject: [PATCH] static funcs in HiRes.xs
Less indirection on ELF.
---
dist/Time-HiRes/HiRes.pm | 2 +-
dist/Time-HiRes/HiRes.xs | 12 ++++++------
2 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/dist/Time-HiRes/HiRes.pm b/dist/Time-HiRes/HiRes.pm
index 75a3743..ebd084e 100644
--- a/dist/Time-HiRes/HiRes.pm
+++ b/dist/Time-HiRes/HiRes.pm
@@ -28,7 +28,7 @@ our @EXPORT_OK = qw (usleep sleep ualarm alarm gettimeofday time tv_interval
stat lstat
);
-our $VERSION = '1.9730';
+our $VERSION = '1.9731';
our $XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
diff --git a/dist/Time-HiRes/HiRes.xs b/dist/Time-HiRes/HiRes.xs
index 2efc018..304bad3 100644
--- a/dist/Time-HiRes/HiRes.xs
+++ b/dist/Time-HiRes/HiRes.xs
@@ -417,7 +417,7 @@ gettimeofday (struct timeval *tp, void *tpz)
#define HAS_USLEEP
#define usleep hrt_usleep /* could conflict with ncurses for static build */
-void
+static void
hrt_usleep(unsigned long usec) /* This is used to emulate usleep. */
{
struct timespec res;
@@ -433,7 +433,7 @@ hrt_usleep(unsigned long usec) /* This is used to emulate usleep. */
#define HAS_USLEEP
#define usleep hrt_usleep /* could conflict with ncurses for static build */
-void
+static void
hrt_usleep(unsigned long usec)
{
struct timeval tv;
@@ -449,7 +449,7 @@ hrt_usleep(unsigned long usec)
#define HAS_USLEEP
#define usleep hrt_usleep /* could conflict with ncurses for static build */
-void
+static void
hrt_usleep(unsigned long usec)
{
long msec;
@@ -462,7 +462,7 @@ hrt_usleep(unsigned long usec)
#define HAS_USLEEP
#define usleep hrt_usleep /* could conflict with ncurses for static build */
-void
+static void
hrt_usleep(unsigned long usec)
{
int msec = usec / 1000;
@@ -484,14 +484,14 @@ hrt_ualarm_itimero(struct itimerval *oitv, int usec, int uinterval)
return setitimer(ITIMER_REAL, &itv, oitv);
}
-int
+static int
hrt_ualarm_itimer(int usec, int uinterval)
{
return hrt_ualarm_itimero(NULL, usec, uinterval);
}
#ifdef HAS_UALARM
-int
+static int
hrt_ualarm(int usec, int interval) /* for binary compat before 1.91 */
{
return hrt_ualarm_itimer(usec, interval);
--
1.9.5.msysgit.1
|
From @tonycozOn Fri Feb 26 12:40:30 2016, bulk88 wrote:
Thanks, applied as 4e922c2. Tony |
The RT System itself - Status changed from 'new' to 'open' |
@tonycoz - Status changed from 'open' to 'pending release' |
From @khwilliamsonThank you for submitting this report. You have helped make Perl better. Perl 5.24.0 may be downloaded via https://metacpan.org/release/RJBS/perl-5.24.0 |
@khwilliamson - Status changed from 'pending release' to 'resolved' |
Migrated from rt.perl.org#127620 (status was 'resolved')
Searchable as RT127620$
The text was updated successfully, but these errors were encountered: