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 2ae9e5359d4..8f0a572c242 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 a9e8e948ec6..6fb505e32eb 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 $@ $<
--
GitLab