+ Changes for alpha

compiler/new/Makefile

@@ -133,10 +133,10 @@ endif
 
 # for i386 also insert MMX support
 ifneq ($(findstring -di386,$(COMPILER)),)
-override COMPILER+=-dSUPPORT_MMX -Fui386
+override COMPILER+=-dSUPPORT_MMX
 endif
 
-override COMPILER+=$(LOCALOPT)
+override COMPILER+=$(LOCALOPT) -Fu$(CPU)
 
 ifneq (,$(findstring -s ,$(LOCALOPT)))
 override EXECPPAS=@$(PPAS)
@@ -394,7 +394,10 @@ $(M68KEXENAME): $(PASFILES) $(INCFILES)
 
 #
 # $Log$
-# Revision 1.1  1999-08-01 23:19:58  florian
+# Revision 1.2  1999-08-02 17:16:41  michael
+# + Changes for alpha
+#
+# Revision 1.1  1999/08/01 23:19:58  florian
 #   + make a new makefile using the old compiler makefile
 #
 #

compiler/new/alpha/cpubase.pas

@@ -78,9 +78,9 @@ type
  TReference = record
    offset : aword;
    symbol : pasmsymbol;
-   reg : tregister;
+   base : tregister;
    { the boundary to which the reference is surely aligned }
-   alignement : byte;
+   alignment : byte;
    end;
  PReference = ^TReference;
 
@@ -92,7 +92,7 @@ type
      LOC_REFERENCE,LOC_MEM : (reference : treference);
    end;
 
- const
+Const
   { offsets for the integer and floating point registers }
   INT_REG = 0;
   FLOAT_REG = 32;
@@ -106,13 +106,44 @@ type
   OQ_FLOATING_UNDERFLOW_ENABLE   = $20;  { /U }
   OQ_INTEGER_OVERFLOW_ENABLE     = $40;  { /V }
 
+  stack_pointer = R_30;
+  frame_pointer = R_15;
+  self_pointer  = R_16;
+
+{ resets all values of ref to defaults }
+procedure reset_reference(var ref : treference);
+    
+{ set mostly used values of a new reference }
+function new_reference(base : tregister;offset : longint) : preference;
+
+
 implementation
 
+procedure reset_reference(var ref : treference);
+begin
+  FillChar(ref,sizeof(treference),0);
+end;
+
+
+function new_reference(base : tregister;offset : longint) : preference;
+var
+  r : preference;
+begin
+  new(r);
+  FillChar(r^,sizeof(treference),0);
+  r^.offset:=offset;
+  r^.alignment:=8;
+  new_reference:=r;
+end;
+
 
 end.
 {
   $Log$
-  Revision 1.1  1999-08-01 23:18:36  michael
+  Revision 1.2  1999-08-02 17:16:44  michael
+  + Changes for alpha
+
+  Revision 1.1  1999/08/01 23:18:36  michael
   + Fixes for new code generator
 
   Revision 1.2  1998/09/09 20:14:00  peter

compiler/new/cpuunit.inc

@@ -25,10 +25,14 @@
        ,i386asm
 {$else}
        ,cpubase
+       ,cpuinfo
 {$endif}
 {
   $Log$
-  Revision 1.4  1999-08-01 23:07:13  michael
+  Revision 1.5  1999-08-02 17:16:42  michael
+  + Changes for alpha
+
+  Revision 1.4  1999/08/01 23:07:13  michael
   + Procbase- -> cpubase
 
   Revision 1.3  1999/08/01 23:04:51  michael

compiler/new/tempgen.inc

@@ -24,10 +24,6 @@
 ,temp_gen
 {$ifdef i386}
 ,tgeni386
+{$else}
+,tgencpu
 {$endif i386}
-{$ifdef m68k}
-,tgenm68k
-{$endif m68k}
-{$ifdef alpha}
-,tgalpha
-{$endif alpha}