+ Changes for Alpha

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

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
 

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

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

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