Browse Source

* symaddr ==> refaddr to follow the rest of compiler changes

mazen 21 years ago
parent
commit
b1bffd0a95
2 changed files with 13 additions and 11 deletions
  1. 5 2
      compiler/sparc/aasmcpu.pas
  2. 8 9
      compiler/sparc/cpubase.pas

+ 5 - 2
compiler/sparc/aasmcpu.pas

@@ -170,7 +170,7 @@ implementation
       begin
       begin
          inherited create(op);
          inherited create(op);
          { only allowed to load the address }
          { only allowed to load the address }
-         if not(_op2.symaddr in [refs_lo,refs_hi]) then
+         if not(_op2.refaddr in [addr_lo,addr_hi]) then
            internalerror(200305311);
            internalerror(200305311);
          ops:=3;
          ops:=3;
          loadreg(0,_op1);
          loadreg(0,_op1);
@@ -297,7 +297,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.43  2004-02-08 23:10:21  jonas
+  Revision 1.44  2004-02-27 11:47:32  mazen
+  * symaddr ==> refaddr to follow the rest of compiler changes
+
+  Revision 1.43  2004/02/08 23:10:21  jonas
     * taicpu.is_same_reg_move() now gets a regtype parameter so it only
     * taicpu.is_same_reg_move() now gets a regtype parameter so it only
       removes moves of that particular register type. This is necessary so
       removes moves of that particular register type. This is necessary so
       we don't remove the live_start instruction of a register before it
       we don't remove the live_start instruction of a register before it

+ 8 - 9
compiler/sparc/cpubase.pas

@@ -168,10 +168,10 @@ uses
          offset      : longint;
          offset      : longint;
          { symbol this reference refers to, nil if none }
          { symbol this reference refers to, nil if none }
          symbol      : tasmsymbol;
          symbol      : tasmsymbol;
-         { used in conjunction with symbols and offsets: refs_full means }
-         { means a full 32bit reference, refs_hi means the upper 16 bits }
-         { and refs_lo the lower 16 bits of the address                   }
-         symaddr     : trefsymaddr;
+         { symbol the symbol of this reference is relative to, nil if none }
+         relsymbol      : tasmsymbol;
+         { reference type addr or symbol itself }
+         refaddr : trefaddr;
          { changed when inlining and possibly in other cases, don't }
          { changed when inlining and possibly in other cases, don't }
          { set manually                                             }
          { set manually                                             }
          offsetfixup : longint;
          offsetfixup : longint;
@@ -188,10 +188,6 @@ uses
          offset      : longint;
          offset      : longint;
       end;
       end;
 
 
-    const
-      symaddr2str: array[trefsymaddr] of string[3] = ('','','%hi','%lo');
-
-
 {*****************************************************************************
 {*****************************************************************************
                                 Operand Sizes
                                 Operand Sizes
 *****************************************************************************}
 *****************************************************************************}
@@ -548,7 +544,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.62  2004-02-27 10:21:05  florian
+  Revision 1.63  2004-02-27 11:43:56  mazen
+  * symaddr ==> refaddr to follow the rest of compiler changes
+
+  Revision 1.62  2004/02/27 10:21:05  florian
     * top_symbol killed
     * top_symbol killed
     + refaddr to treference added
     + refaddr to treference added
     + refsymbol to treference added
     + refsymbol to treference added