Define __alpha__ for __alpha.

bmomjian · bmomjian · commit 440c913d42e5 · 1999-10-08T17:14:46.000Z
diff --git 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 @@
 
 ######################### 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
@@ -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 $@ $<
