Mercurial > vim

comparison src/if_perl.xs @ 3818:cd36c0fed43e v7.3.667

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated for version 7.3.667 Problem: Unused variables in Perl interface. Solution: Adjust #ifdefs.
author Bram Moolenaar <bram@vim.org>
date Fri, 21 Sep 2012 12:42:44 +0200
parents a46a101bfddd
children dde6d0216a08
comparison
equal deleted inserted replaced
3817:91c52d4cb1be 3818:cd36c0fed43e
313 static STRLEN* (*Perl_Tna_ptr)(register PerlInterpreter*); 313 static STRLEN* (*Perl_Tna_ptr)(register PerlInterpreter*);
314 #else 314 #else
315 static void (*Perl_sv_free2)(pTHX_ SV*); 315 static void (*Perl_sv_free2)(pTHX_ SV*);
316 static void (*Perl_sys_init)(int* argc, char*** argv); 316 static void (*Perl_sys_init)(int* argc, char*** argv);
317 static void (*Perl_sys_term)(void); 317 static void (*Perl_sys_term)(void);
318 static void (*Perl_call_list)(pTHX_ I32, AV*);
319 # if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
320 # else
318 static SV** (*Perl_ISv_ptr)(register PerlInterpreter*); 321 static SV** (*Perl_ISv_ptr)(register PerlInterpreter*);
319 static SV*** (*Perl_Istack_max_ptr)(register PerlInterpreter*); 322 static SV*** (*Perl_Istack_max_ptr)(register PerlInterpreter*);
320 static SV*** (*Perl_Istack_base_ptr)(register PerlInterpreter*); 323 static SV*** (*Perl_Istack_base_ptr)(register PerlInterpreter*);
321 static XPV** (*Perl_IXpv_ptr)(register PerlInterpreter*); 324 static XPV** (*Perl_IXpv_ptr)(register PerlInterpreter*);
322 static I32* (*Perl_Itmps_ix_ptr)(register PerlInterpreter*); 325 static I32* (*Perl_Itmps_ix_ptr)(register PerlInterpreter*);
324 static STRLEN* (*Perl_Ina_ptr)(register PerlInterpreter*); 327 static STRLEN* (*Perl_Ina_ptr)(register PerlInterpreter*);
325 static I32** (*Perl_Imarkstack_ptr_ptr)(register PerlInterpreter*); 328 static I32** (*Perl_Imarkstack_ptr_ptr)(register PerlInterpreter*);
326 static I32** (*Perl_Imarkstack_max_ptr)(register PerlInterpreter*); 329 static I32** (*Perl_Imarkstack_max_ptr)(register PerlInterpreter*);
327 static SV*** (*Perl_Istack_sp_ptr)(register PerlInterpreter*); 330 static SV*** (*Perl_Istack_sp_ptr)(register PerlInterpreter*);
328 static OP** (*Perl_Iop_ptr)(register PerlInterpreter*); 331 static OP** (*Perl_Iop_ptr)(register PerlInterpreter*);
329 static void (*Perl_call_list)(pTHX_ I32, AV*);
330 static I32* (*Perl_Iscopestack_ix_ptr)(register PerlInterpreter*); 332 static I32* (*Perl_Iscopestack_ix_ptr)(register PerlInterpreter*);
331 static AV** (*Perl_Iunitcheckav_ptr)(register PerlInterpreter*); 333 static AV** (*Perl_Iunitcheckav_ptr)(register PerlInterpreter*);
332 #endif 334 # endif
333 335 #endif
336
337 #if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
338 #else
334 static GV** (*Perl_Idefgv_ptr)(register PerlInterpreter*); 339 static GV** (*Perl_Idefgv_ptr)(register PerlInterpreter*);
335 static GV** (*Perl_Ierrgv_ptr)(register PerlInterpreter*); 340 static GV** (*Perl_Ierrgv_ptr)(register PerlInterpreter*);
336 static SV* (*Perl_Isv_yes_ptr)(register PerlInterpreter*); 341 static SV* (*Perl_Isv_yes_ptr)(register PerlInterpreter*);
342 static perl_key* (*Perl_Gthr_key_ptr)_((pTHX));
343 #endif
337 static void (*boot_DynaLoader)_((pTHX_ CV*)); 344 static void (*boot_DynaLoader)_((pTHX_ CV*));
338 static perl_key* (*Perl_Gthr_key_ptr)_((pTHX));
339 345
340 /* 346 /*
341 * Table of name to function pointer of perl. 347 * Table of name to function pointer of perl.
342 */ 348 */
343 static struct { 349 static struct {