瀏覽代碼

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

mazen 22 年之前
父節點
當前提交
b1bffd0a95
共有 2 個文件被更改,包括 13 次插入11 次删除
  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