Define __alpha__ for __alpha.

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 )

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 $@ $<