From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 24 May 2001 21:02:30 +0000 (+0000)
Subject: DB_File has its own attribute story.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=45c68e7ce522261160abed996379f1b3517eab00;p=p5sagit%2Fp5-mst-13.2.git

DB_File has its own attribute story.

p4raw-id: //depot/perl@10201
---

diff --git a/ext/DB_File/DB_File.xs b/ext/DB_File/DB_File.xs
index 4f98488..74cbd1b 100644
--- a/ext/DB_File/DB_File.xs
+++ b/ext/DB_File/DB_File.xs
@@ -124,6 +124,13 @@
 
 #undef __attribute__
 
+/* Since we dropped the gccish definition of __attribute__ we will want
+ * to redefine dNOOP, however (so that dTHX continues to work).  Yes,
+ * all this means that we can't do attribute checking on the DB_File,
+ * boo, hiss. */
+#undef  dNOOP
+#define dNOOP extern int Perl___notused
+
 /* If Perl has been compiled with Threads support,the symbol op will
    be defined here. This clashes with a field name in db.h, so get rid of it.
  */