Răsfoiți Sursa

*fix related to toper==>poper

mazen 22 ani în urmă
părinte
comite
f217753383
1 a modificat fișierele cu 6 adăugiri și 3 ștergeri
  1. 6 3
      compiler/sparc/cpugas.pas

+ 6 - 3
compiler/sparc/cpugas.pas

@@ -164,9 +164,9 @@ unit cpugas;
         s:=#9+std_op2str[op]+cond2str[taicpu(hp).condition];
         s:=#9+std_op2str[op]+cond2str[taicpu(hp).condition];
         if taicpu(hp).ops>0 then
         if taicpu(hp).ops>0 then
           begin
           begin
-            s:=s+#9+getopstr(taicpu(hp).oper[0]);
+            s:=s+#9+getopstr(taicpu(hp).oper[0]^);
             for i:=1 to taicpu(hp).ops-1 do
             for i:=1 to taicpu(hp).ops-1 do
-              s:=s+','+getopstr(taicpu(hp).oper[i]);
+              s:=s+','+getopstr(taicpu(hp).oper[i]^);
           end;
           end;
         AsmWriteLn(s);
         AsmWriteLn(s);
       end;
       end;
@@ -205,7 +205,10 @@ begin
 end.
 end.
 {
 {
     $Log$
     $Log$
-    Revision 1.22  2003-09-03 15:55:01  peter
+    Revision 1.23  2003-10-24 11:22:50  mazen
+    *fix related to toper==>poper
+
+    Revision 1.22  2003/09/03 15:55:01  peter
       * NEWRA branch merged
       * NEWRA branch merged
 
 
     Revision 1.21.2.1  2003/09/01 21:02:55  peter
     Revision 1.21.2.1  2003/09/01 21:02:55  peter