From 440c913d42e50640998dd1f5e527cd9a235bb3ea Mon Sep 17 00:00:00 2001
From: Bruce Momjian <bruce@momjian.us>
Date: Fri, 8 Oct 1999 17:14:46 +0000
Subject: [PATCH] Define __alpha__ for __alpha.

---
 src/interfaces/perl5/test.pl | 5 +++--
 src/makefiles/Makefile.alpha | 5 +++++
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/src/interfaces/perl5/test.pl b/src/interfaces/perl5/test.pl
index 2ae9e5359d..8f0a572c24 100644
--- a/src/interfaces/perl5/test.pl
+++ b/src/interfaces/perl5/test.pl
@@ -1,6 +1,6 @@
 #!/usr/local/bin/perl -w
 
-# $Id: test.pl,v 1.10 1999/10/08 05:03:14 momjian Exp $
+# $Id: test.pl,v 1.11 1999/10/08 17:14:45 momjian Exp $
 
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl test.pl'
@@ -147,7 +147,8 @@ my $port = $conn->port;
 
 ######################### create and insert into table
 
-$result = $conn->exec("CREATE TABLE person (id int4, name char(16)) -- test");
+# we test comments inside string and with no trailing newline here
+$result = $conn->exec("CREATE TABLE person (id int4, -- test\n name char(16)) -- test");
 die $conn->errorMessage unless PGRES_COMMAND_OK eq $result->resultStatus;
 my $cmd = $result->cmdStatus;
 ( "CREATE" eq $cmd )
diff --git a/src/makefiles/Makefile.alpha b/src/makefiles/Makefile.alpha
index a9e8e948ec..6fb505e32e 100644
--- a/src/makefiles/Makefile.alpha
+++ b/src/makefiles/Makefile.alpha
@@ -1,2 +1,7 @@
+/* some platforms define __alpha, but not __alpha__ */
+#if defined(__alpha) && !defined(__alpha__)
+#define __alpha__
+#endif
+
 %.so:  %.o
 	$(LD) -shared -expect_unresolved '*' -o $@ $<
-- 
2.40.0