From 19b97ee4a40769340c6bc8545d7abe4626a0c033 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 2 Aug 1999 20:46:57 +0000
Subject: [PATCH] * Alpha aware switch detection

---
 compiler/compiler.pas | 42 ++++++++++++++++++++++++++++++------------
 1 file changed, 30 insertions(+), 12 deletions(-)

diff --git a/compiler/compiler.pas b/compiler/compiler.pas
index b68fb2f11b..c0b24992e5 100644
--- a/compiler/compiler.pas
+++ b/compiler/compiler.pas
@@ -40,18 +40,33 @@
 }
 
 {$ifdef FPC}
-   { but I386 or M68K must be defined }
-   { and only one of the two }
-   {$ifndef I386}
-      {$ifndef M68K}
-        {$fatal One of the switches I386 or M68K must be defined}
-      {$endif M68K}
-   {$endif I386}
+   { One of Alpha, I386 or M68K must be defined }
+   {$UNDEFINE CPUOK}
+   
    {$ifdef I386}
-      {$ifdef M68K}
-        {$fatal ONLY one of the switches I386 or M68K must be defined}
-      {$endif M68K}
-   {$endif I386}
+   {$define CPUOK}
+   {$endif}
+   
+   {$ifdef M68K}
+   {$ifndef CPUOK}
+   {$DEFINE CPUOK}
+   {$else}
+     {$fatal cannot define two CPU switches}
+   {$endif}
+   {$endif}
+
+   {$ifdef alpha}
+   {$ifndef CPUOK}
+   {$DEFINE CPUOK}
+   {$else}
+     {$fatal cannot define two CPU switches}
+   {$endif}
+   {$endif}
+   
+   {$ifndef CPUOK}
+   {$fatal One of the switches I386,Alpha or M68K must be defined}
+   {$endif}
+   
    {$ifdef support_mmx}
      {$ifndef i386}
        {$fatal I386 switch must be on for MMX support}
@@ -275,7 +290,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.25  1999-07-18 14:47:22  florian
+  Revision 1.26  1999-08-02 20:46:57  michael
+  * Alpha aware switch detection
+
+  Revision 1.25  1999/07/18 14:47:22  florian
     * bug 487 fixed, (inc(<property>) isn't allowed)
     * more fixes to compile with Delphi