summaryrefslogtreecommitdiff
path: root/mg.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>1999-08-01 22:22:51 +0000
committerJarkko Hietaniemi <jhi@iki.fi>1999-08-01 22:22:51 +0000
commitcf2093f6405d08be483e037b6052608c46952a75 (patch)
treea2572a825ae30eabcd1fee0cac65751bef6a4d05 /mg.c
parentad7e816fc202b9506cd8e0633196331ccf37f264 (diff)
downloadperl-cf2093f6405d08be483e037b6052608c46952a75.tar.gz
64-bit work. Now 32-bit platforms get a 100% make test
with -Duse64bits (using long long). Tested in Solaris 2.6 sparc RH Linux 6.0 x86 (and Digital IX 4.0D, to get a true 64-bit opinion). Now e.g. 'print unpack "q", pack "q", 12345678901' should work on such 32-bit platforms. Still a lot of printf()s behind -D which wrongly assume that %ld/%lx and (long) are a good combination. Introducing a slew of new macros intended to be used in printf() format strings: e. g. PERL_PRId64 is the string to be used when printing an IV, printf("%" PERL_PRId64 "\n", iv). The PRI... naming follows the C9X naming of <inttypes.h> macros. p4raw-id: //depot/cfgperl@3861
Diffstat (limited to 'mg.c')
-rw-r--r--mg.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/mg.c b/mg.c
index 695272dc9f..9127137359 100644
--- a/mg.c
+++ b/mg.c
@@ -1878,7 +1878,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
while (isSPACE(*p))
++p;
- PL_egid = I_V(atol(p));
+ PL_egid = I_V(Atol(p));
for (i = 0; i < NGROUPS; ++i) {
while (*p && !isSPACE(*p))
++p;
@@ -1886,7 +1886,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
++p;
if (!*p)
break;
- gary[i] = I_V(atol(p));
+ gary[i] = I_V(Atol(p));
}
if (i)
(void)setgroups(i, gary);