Mercurial > vim

comparison src/if_perl.xs @ 5558:6f5a7d394300 v7.4.127

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated for version 7.4.127 Problem: Perl 5.18 on Unix doesn't work. Solution: Move workaround to after including vim.h. (Ken Takata)
author Bram Moolenaar <bram@vim.org>
date Sat, 14 Dec 2013 11:46:08 +0100
parents ca0e43bbf8f9
children 4b92012f6b18
comparison
equal deleted inserted replaced
5557:3eb577298089 5558:6f5a7d394300
22 */ 22 */
23 #if defined(WIN32) && !defined(_WIN64) 23 #if defined(WIN32) && !defined(_WIN64)
24 # define _USE_32BIT_TIME_T 24 # define _USE_32BIT_TIME_T
25 #endif 25 #endif
26 26
27 /*
28 * Prevent including winsock.h. perl.h tries to detect whether winsock.h is
29 * already included before including winsock2.h, because winsock2.h isn't
30 * compatible with winsock.h. However the detection doesn't work with some
31 * versions of MinGW. If WIN32_LEAN_AND_MEAN is defined, windows.h will not
32 * include winsock.h.
33 */
34 #ifdef WIN32
35 # define WIN32_LEAN_AND_MEAN
36 #endif
37
38 #include "vim.h"
39
27 /* Work around for perl-5.18. 40 /* Work around for perl-5.18.
28 * Don't include "perl\lib\CORE\inline.h" for now, 41 * Don't include "perl\lib\CORE\inline.h" for now,
29 * include it after Perl_sv_free2 is defined. */ 42 * include it after Perl_sv_free2 is defined. */
30 #ifdef DYNAMIC_PERL 43 #ifdef DYNAMIC_PERL
31 # define PERL_NO_INLINE_FUNCTIONS 44 # define PERL_NO_INLINE_FUNCTIONS
32 #endif 45 #endif
33
34 /*
35 * Prevent including winsock.h. perl.h tries to detect whether winsock.h is
36 * already included before including winsock2.h, because winsock2.h isn't
37 * compatible with winsock.h. However the detection doesn't work with some
38 * versions of MinGW. If WIN32_LEAN_AND_MEAN is defined, windows.h will not
39 * include winsock.h.
40 */
41 #ifdef WIN32
42 # define WIN32_LEAN_AND_MEAN
43 #endif
44
45 #include "vim.h"
46 46
47 #include <EXTERN.h> 47 #include <EXTERN.h>
48 #include <perl.h> 48 #include <perl.h>
49 #include <XSUB.h> 49 #include <XSUB.h>
50 50