From 44fd09b5ecf9ecdb8da3fc52395213ace4a41415 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 1 Aug 1999 23:04:48 +0000
Subject: [PATCH] + Changes for Alpha

---
 compiler/globtype.pas    | 12 +++++++++++-
 compiler/hcodegen.pas    |  8 +++++++-
 compiler/new/cpuunit.inc | 26 ++++++--------------------
 compiler/new/tree.pas    |  9 ++++++++-
 compiler/symtable.pas    |  8 ++++++--
 5 files changed, 38 insertions(+), 25 deletions(-)

diff --git a/compiler/globtype.pas b/compiler/globtype.pas
index bbf0a6be23..7a1925d125 100644
--- a/compiler/globtype.pas
+++ b/compiler/globtype.pas
@@ -40,6 +40,13 @@ interface
        ts64real = double;
        ts80real = extended;
        ts64comp = comp;
+{$endif}
+{$ifdef alpha}
+       bestreal = extended;
+       ts32real = single;
+       ts64real = double;
+       ts80real = extended;
+       ts64comp = comp;
 {$endif}
        pbestreal=^bestreal;
 
@@ -162,7 +169,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.13  1999-07-23 16:05:21  peter
+  Revision 1.14  1999-08-01 23:04:48  michael
+  + Changes for Alpha
+
+  Revision 1.13  1999/07/23 16:05:21  peter
     * alignment is now saved in the symtable
     * C alignment added for records
     * PPU version increased to solve .12 <-> .13 probs
diff --git a/compiler/hcodegen.pas b/compiler/hcodegen.pas
index 11de669864..c0790a613f 100644
--- a/compiler/hcodegen.pas
+++ b/compiler/hcodegen.pas
@@ -33,6 +33,9 @@ unit hcodegen;
 {$endif}
 {$ifdef m68k}
       ,m68k
+{$endif}
+{$ifdef alpha}
+      ,procbase
 {$endif}
       ;
 
@@ -298,7 +301,10 @@ end.
 
 {
   $Log$
-  Revision 1.34  1999-07-22 09:37:42  florian
+  Revision 1.35  1999-08-01 23:04:49  michael
+  + Changes for Alpha
+
+  Revision 1.34  1999/07/22 09:37:42  florian
     + resourcestring implemented
     + start of longstring support
 
diff --git a/compiler/new/cpuunit.inc b/compiler/new/cpuunit.inc
index 664a03fb2b..00a901e14e 100644
--- a/compiler/new/cpuunit.inc
+++ b/compiler/new/cpuunit.inc
@@ -23,29 +23,15 @@
 {$ifdef i386}
        ,i386base
        ,i386asm
-{$endif}
-{$ifdef m68k}
-       ,m68k
-{$endif}
-{$ifdef alpha}
-       ,alpha
-{$endif}
-{$ifdef sparc}
-       ,sparc
-{$endif}
-{$ifdef powerpc}
-       ,powerpc
-{$endif}
-{$ifdef arm}
-       ,arm
-{$endif}
-{ hehehe, we're optimistic }
-{$ifdef merced}
-       ,merced
+{$else}
+       ,procbase
 {$endif}
 {
   $Log$
-  Revision 1.2  1999-08-01 18:22:34  florian
+  Revision 1.3  1999-08-01 23:04:51  michael
+  + Changes for Alpha
+
+  Revision 1.2  1999/08/01 18:22:34  florian
    * made it again compilable
 
   Revision 1.1  1998/12/15 22:16:03  florian
diff --git a/compiler/new/tree.pas b/compiler/new/tree.pas
index 25f7fd39a1..d080403cfc 100644
--- a/compiler/new/tree.pas
+++ b/compiler/new/tree.pas
@@ -274,7 +274,9 @@ unit tree;
           punarynode = ^tunarynode;
           tunarynode = object(tnode)
              left : pnode;
+{$ifdef extdebug}
              procedure dowrite;virtual;
+{$endif extdebug}
              constructor init(l : pnode);
           end;
 
@@ -576,6 +578,7 @@ unit tree;
          left:=l;
       end;
 
+{$ifdef extdebug}
     procedure tunarynode.dowrite;
 
       begin
@@ -585,6 +588,7 @@ unit tree;
          writeln(')');
          dec(byte(indention[0]),2);
       end;
+{$endif}         
 
 {****************************************************************************
                             TBINARYNODE
@@ -1891,7 +1895,10 @@ unit tree;
 end.
 {
   $Log$
-  Revision 1.7  1999-08-01 18:22:39  florian
+  Revision 1.8  1999-08-01 23:04:52  michael
+  + Changes for Alpha
+
+  Revision 1.7  1999/08/01 18:22:39  florian
    * made it again compilable
 
   Revision 1.6  1999/01/24 22:32:36  florian
diff --git a/compiler/symtable.pas b/compiler/symtable.pas
index be7a1d0a5f..d081742ac7 100644
--- a/compiler/symtable.pas
+++ b/compiler/symtable.pas
@@ -42,7 +42,8 @@ unit symtable;
        ,m68k
 {$endif}
 {$ifdef alpha}
-       ,alpha
+       ,procbase
+       ,cpuinfo
 {$endif}
 {$ifdef GDB}
        ,gdb
@@ -2341,7 +2342,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.30  1999-07-24 00:13:26  peter
+  Revision 1.31  1999-08-01 23:04:50  michael
+  + Changes for Alpha
+
+  Revision 1.30  1999/07/24 00:13:26  peter
     * also number units for program
 
   Revision 1.29  1999/07/23 16:05:33  peter