mirror of https://github.com/postgres/postgres
Like commitpull/151/head388e80132, use "#pragma GCC system_header" to silence warnings appearing within the Python headers, since newer Python versions no longer worry about some restrictions we still use like -Wdeclaration-after-statement. This patch improves on388e80132by inventing a separate wrapper header file, allowing the pragma to be tightly scoped to just the Python headers and not other stuff we have laying about in plpython.h. I applied the same technique to plperl for the same reason: the original patch suppressed warnings for a good deal of our own code, not only the Perl headers. Like the previous commit, back-patch to supported branches. Peter Eisentraut and Tom Lane Discussion: https://postgr.es/m/ae523163-6d2a-4b81-a875-832e48dec502@eisentraut.org
Tom Lane
2 years ago
parent
c4fe2e8220
commit
58c3151bbc
@ -0,0 +1,215 @@ |
||||
/*-------------------------------------------------------------------------
|
||||
* |
||||
* plperl_system.h |
||||
* Pull in Perl's system header files. |
||||
* |
||||
* We break this out as a separate header file to precisely control |
||||
* the scope of the "system_header" pragma. No Postgres-specific |
||||
* declarations should be put here. However, we do include some stuff |
||||
* that is meant to prevent conflicts between our code and Perl. |
||||
* |
||||
* Portions Copyright (c) 1996-2023, PostgreSQL Global Development Group |
||||
* Portions Copyright (c) 1995, Regents of the University of California |
||||
* |
||||
* src/pl/plperl/plperl_system.h |
||||
*/ |
||||
|
||||
#ifndef PL_PERL_SYSTEM_H |
||||
#define PL_PERL_SYSTEM_H |
||||
|
||||
/*
|
||||
* Newer versions of the perl headers trigger a lot of warnings with our |
||||
* preferred compiler flags (at least -Wdeclaration-after-statement, |
||||
* -Wshadow=compatible-local are known to be problematic). The system_header |
||||
* pragma hides warnings from within the rest of this file, if supported. |
||||
*/ |
||||
#ifdef HAVE_PRAGMA_GCC_SYSTEM_HEADER |
||||
#pragma GCC system_header |
||||
#endif |
||||
|
||||
/* stop perl headers from hijacking stdio and other stuff on Windows */ |
||||
#ifdef WIN32 |
||||
#define WIN32IO_IS_STDIO |
||||
#endif /* WIN32 */ |
||||
|
||||
/*
|
||||
* Supply a value of PERL_UNUSED_DECL that will satisfy gcc - the one |
||||
* perl itself supplies doesn't seem to. |
||||
*/ |
||||
#define PERL_UNUSED_DECL pg_attribute_unused() |
||||
|
||||
/*
|
||||
* Sometimes perl carefully scribbles on our *printf macros. |
||||
* So we undefine them here and redefine them after it's done its dirty deed. |
||||
*/ |
||||
#undef vsnprintf |
||||
#undef snprintf |
||||
#undef vsprintf |
||||
#undef sprintf |
||||
#undef vfprintf |
||||
#undef fprintf |
||||
#undef vprintf |
||||
#undef printf |
||||
|
||||
/*
|
||||
* Perl scribbles on the "_" macro too. |
||||
*/ |
||||
#undef _ |
||||
|
||||
/*
|
||||
* ActivePerl 5.18 and later are MinGW-built, and their headers use GCC's |
||||
* __inline__. Translate to something MSVC recognizes. Also, perl.h sometimes |
||||
* defines isnan, so undefine it here and put back the definition later if |
||||
* perl.h doesn't. |
||||
*/ |
||||
#ifdef _MSC_VER |
||||
#define __inline__ inline |
||||
#ifdef isnan |
||||
#undef isnan |
||||
#endif |
||||
/* Work around for using MSVC and Strawberry Perl >= 5.30. */ |
||||
#define __builtin_expect(expr, val) (expr) |
||||
#endif |
||||
|
||||
/*
|
||||
* Regarding bool, both PostgreSQL and Perl might use stdbool.h or not, |
||||
* depending on configuration. If both agree, things are relatively harmless. |
||||
* If not, things get tricky. If PostgreSQL does but Perl does not, define |
||||
* HAS_BOOL here so that Perl does not redefine bool; this avoids compiler |
||||
* warnings. If PostgreSQL does not but Perl does, we need to undefine bool |
||||
* after we include the Perl headers; see below. |
||||
*/ |
||||
#ifdef PG_USE_STDBOOL |
||||
#define HAS_BOOL 1 |
||||
#endif |
||||
|
||||
/*
|
||||
* Get the basic Perl API. We use PERL_NO_GET_CONTEXT mode so that our code |
||||
* can compile against MULTIPLICITY Perl builds without including XSUB.h. |
||||
*/ |
||||
#define PERL_NO_GET_CONTEXT |
||||
#include "EXTERN.h" |
||||
#include "perl.h" |
||||
|
||||
/*
|
||||
* We want to include XSUB.h only within .xs files, because on some platforms |
||||
* it undesirably redefines a lot of libc functions. But it must appear |
||||
* before ppport.h, so use a #define flag to control inclusion here. |
||||
*/ |
||||
#ifdef PG_NEED_PERL_XSUB_H |
||||
/*
|
||||
* On Windows, win32_port.h defines macros for a lot of these same functions. |
||||
* To avoid compiler warnings when XSUB.h redefines them, #undef our versions. |
||||
*/ |
||||
#ifdef WIN32 |
||||
#undef accept |
||||
#undef bind |
||||
#undef connect |
||||
#undef fopen |
||||
#undef fstat |
||||
#undef kill |
||||
#undef listen |
||||
#undef lstat |
||||
#undef mkdir |
||||
#undef open |
||||
#undef putenv |
||||
#undef recv |
||||
#undef rename |
||||
#undef select |
||||
#undef send |
||||
#undef socket |
||||
#undef stat |
||||
#undef unlink |
||||
#endif |
||||
|
||||
#include "XSUB.h" |
||||
#endif |
||||
|
||||
/* put back our *printf macros ... this must match src/include/port.h */ |
||||
#ifdef vsnprintf |
||||
#undef vsnprintf |
||||
#endif |
||||
#ifdef snprintf |
||||
#undef snprintf |
||||
#endif |
||||
#ifdef vsprintf |
||||
#undef vsprintf |
||||
#endif |
||||
#ifdef sprintf |
||||
#undef sprintf |
||||
#endif |
||||
#ifdef vfprintf |
||||
#undef vfprintf |
||||
#endif |
||||
#ifdef fprintf |
||||
#undef fprintf |
||||
#endif |
||||
#ifdef vprintf |
||||
#undef vprintf |
||||
#endif |
||||
#ifdef printf |
||||
#undef printf |
||||
#endif |
||||
|
||||
#define vsnprintf pg_vsnprintf |
||||
#define snprintf pg_snprintf |
||||
#define vsprintf pg_vsprintf |
||||
#define sprintf pg_sprintf |
||||
#define vfprintf pg_vfprintf |
||||
#define fprintf pg_fprintf |
||||
#define vprintf pg_vprintf |
||||
#define printf(...) pg_printf(__VA_ARGS__) |
||||
|
||||
/*
|
||||
* Put back "_" too; but rather than making it just gettext() as the core |
||||
* code does, make it dgettext() so that the right things will happen in |
||||
* loadable modules (if they've set up TEXTDOMAIN correctly). Note that |
||||
* we can't just set TEXTDOMAIN here, because this file is used by more |
||||
* extensions than just PL/Perl itself. |
||||
*/ |
||||
#undef _ |
||||
#define _(x) dgettext(TEXTDOMAIN, x) |
||||
|
||||
/* put back the definition of isnan if needed */ |
||||
#ifdef _MSC_VER |
||||
#ifndef isnan |
||||
#define isnan(x) _isnan(x) |
||||
#endif |
||||
#endif |
||||
|
||||
/* perl version and platform portability */ |
||||
#include "ppport.h" |
||||
|
||||
/*
|
||||
* perl might have included stdbool.h. If we also did that earlier (see c.h), |
||||
* then that's fine. If not, we probably rejected it for some reason. In |
||||
* that case, undef bool and proceed with our own bool. (Note that stdbool.h |
||||
* makes bool a macro, but our own replacement is a typedef, so the undef |
||||
* makes ours visible again). |
||||
*/ |
||||
#ifndef PG_USE_STDBOOL |
||||
#ifdef bool |
||||
#undef bool |
||||
#endif |
||||
#endif |
||||
|
||||
/* supply HeUTF8 if it's missing - ppport.h doesn't supply it, unfortunately */ |
||||
#ifndef HeUTF8 |
||||
#define HeUTF8(he) ((HeKLEN(he) == HEf_SVKEY) ? \ |
||||
SvUTF8(HeKEY_sv(he)) : \
|
||||
(U32)HeKUTF8(he)) |
||||
#endif |
||||
|
||||
/* supply GvCV_set if it's missing - ppport.h doesn't supply it, unfortunately */ |
||||
#ifndef GvCV_set |
||||
#define GvCV_set(gv, cv) (GvCV(gv) = cv) |
||||
#endif |
||||
|
||||
/* Perl 5.19.4 changed array indices from I32 to SSize_t */ |
||||
#if PERL_BCDVERSION >= 0x5019004 |
||||
#define AV_SIZE_MAX SSize_t_MAX |
||||
#else |
||||
#define AV_SIZE_MAX I32_MAX |
||||
#endif |
||||
|
||||
#endif /* PL_PERL_SYSTEM_H */ |
||||
@ -0,0 +1,53 @@ |
||||
/*-------------------------------------------------------------------------
|
||||
* |
||||
* plpython_system.h - pull in Python's system header files |
||||
* |
||||
* We break this out as a separate header file to precisely control |
||||
* the scope of the "system_header" pragma. No Postgres-specific |
||||
* declarations should be put here. However, we do include some stuff |
||||
* that is meant to prevent conflicts between our code and Python. |
||||
* |
||||
* Portions Copyright (c) 1996-2023, PostgreSQL Global Development Group |
||||
* Portions Copyright (c) 1994, Regents of the University of California |
||||
* |
||||
* src/pl/plpython/plpython_system.h |
||||
* |
||||
*------------------------------------------------------------------------- |
||||
*/ |
||||
#ifndef PLPYTHON_SYSTEM_H |
||||
#define PLPYTHON_SYSTEM_H |
||||
|
||||
/*
|
||||
* Newer versions of the Python headers trigger a lot of warnings with our |
||||
* preferred compiler flags (at least -Wdeclaration-after-statement is known |
||||
* to be problematic). The system_header pragma hides warnings from within |
||||
* the rest of this file, if supported. |
||||
*/ |
||||
#ifdef HAVE_PRAGMA_GCC_SYSTEM_HEADER |
||||
#pragma GCC system_header |
||||
#endif |
||||
|
||||
/*
|
||||
* Python versions <= 3.8 otherwise define a replacement, causing macro |
||||
* redefinition warnings. |
||||
*/ |
||||
#define HAVE_SNPRINTF 1 |
||||
|
||||
#if defined(_MSC_VER) && defined(_DEBUG) |
||||
/* Python uses #pragma to bring in a non-default libpython on VC++ if
|
||||
* _DEBUG is defined */ |
||||
#undef _DEBUG |
||||
/* Also hide away errcode, since we load Python.h before postgres.h */ |
||||
#define errcode __msvc_errcode |
||||
#include <Python.h> |
||||
#undef errcode |
||||
#define _DEBUG |
||||
#elif defined (_MSC_VER) |
||||
#define errcode __msvc_errcode |
||||
#include <Python.h> |
||||
#undef errcode |
||||
#else |
||||
#include <Python.h> |
||||
#endif |
||||
|
||||
#endif /* PLPYTHON_SYSTEM_H */ |
||||
Loading…
Reference in new issue