Browse Source

* alpha has no index

michael 26 years ago
parent
commit
1d346206a9
1 changed files with 10 additions and 1 deletions
  1. 10 1
      compiler/temp_gen.pas

+ 10 - 1
compiler/temp_gen.pas

@@ -30,6 +30,10 @@ unit temp_gen;
 {$endif i386}
 {$ifdef m68k}
       m68k,
+{$endif m68k}
+{$ifdef alpha}
+      cpubase,
+      cpuinfo,
 {$endif m68k}
        cobjects,globals,tree,hcodegen,verbose,files,aasm;
 
@@ -368,7 +372,9 @@ unit temp_gen;
            led to problems with local arrays
            with lower bound > 0 (PM) }
          istemp:=((ref.base=procinfo.framepointer) and
+{$ifndef alpha}
                   (ref.index=R_NO) and
+{$endif}                  
                   (ref.offset<firsttemp));
       end;
 
@@ -524,7 +530,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.32  1999-06-09 23:00:13  peter
+  Revision 1.33  1999-08-02 00:34:06  michael
+  * alpha has no index
+
+  Revision 1.32  1999/06/09 23:00:13  peter
     * small ansistring fixes
     * val_ansistr_sint destsize changed to longint
     * don't write low/hi ascii with -al