summaryrefslogtreecommitdiff
path: root/embed.h
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2000-11-21 17:01:16 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2000-11-21 17:01:16 +0000
commit0e32cd814ab750f37cd765de6c19a6a112c89a81 (patch)
treee9437eadb587a5acdf4c3963eb128d2dc2fdc970 /embed.h
parenta6259068d1da929c6ca4f5acc9ed0401b5239600 (diff)
downloadperl-0e32cd814ab750f37cd765de6c19a6a112c89a81.tar.gz
Export the SOCKS workaround symbols only if necessary.
p4raw-id: //depot/perl@7791
Diffstat (limited to 'embed.h')
-rw-r--r--embed.h18
1 files changed, 11 insertions, 7 deletions
diff --git a/embed.h b/embed.h
index 27f5fd2852..b7db7c0869 100644
--- a/embed.h
+++ b/embed.h
@@ -193,7 +193,8 @@
#define do_vecget Perl_do_vecget
#define do_vecset Perl_do_vecset
#define do_vop Perl_do_vop
-#ifdef SOCKS_64BIT_BUG
+#if defined(SOCKS_64BIT_BUG)
+#define s64_get_buffer S_s64_get_buffer
#endif
#define dofile Perl_dofile
#define dowantarray Perl_dowantarray
@@ -1663,7 +1664,8 @@
#define do_vecget(a,b,c) Perl_do_vecget(aTHX_ a,b,c)
#define do_vecset(a) Perl_do_vecset(aTHX_ a)
#define do_vop(a,b,c,d) Perl_do_vop(aTHX_ a,b,c,d)
-#ifdef SOCKS_64BIT_BUG
+#if defined(SOCKS_64BIT_BUG)
+#define s64_get_buffer(a) S_s64_get_buffer(aTHX_ a)
#endif
#define dofile(a) Perl_dofile(aTHX_ a)
#define dowantarray() Perl_dowantarray(aTHX)
@@ -3259,13 +3261,15 @@
#define do_vecset Perl_do_vecset
#define Perl_do_vop CPerlObj::Perl_do_vop
#define do_vop Perl_do_vop
-#ifdef SOCKS_64BIT_BUG
-#define do_getc Perl_do_getc
-#define do_ungetc Perl_do_ungetc
-#define do_fread Perl_do_fread
-#define do_s64_delete_buffer Perl_do_s64_delete_buffer
+#if defined(SOCKS_64BIT_BUG)
+#define S_s64_get_buffer CPerlObj::S_s64_get_buffer
+#define s64_get_buffer S_s64_get_buffer
#define do_s64_tell Perl_do_s64_tell
+#define do_s64_fread Perl_do_s64_fread
+#define do_s64_getc Perl_do_s64_getc
#define do_s64_seek Perl_do_s64_seek
+#define do_s64_ungetc Perl_do_s64_ungetc
+#define do_s64_delete_buffer Perl_do_s64_delete_buffer
#endif
#define Perl_dofile CPerlObj::Perl_dofile
#define dofile Perl_dofile