瀏覽代碼

* fixed Cish syntax

florian 23 年之前
父節點
當前提交
41b608f1bb
共有 1 個文件被更改,包括 6 次插入3 次删除
  1. 6 3
      compiler/sparc/cpugas.pas

+ 6 - 3
compiler/sparc/cpugas.pas

@@ -168,9 +168,9 @@ procedure TGasSPARC.WriteInstruction(hp:Tai);
     if taicpu(hp).ops>0
     if taicpu(hp).ops>0
     then
     then
       begin
       begin
-        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+=','+getopstr(taicpu(hp).oper[i]);
+          s:=s+','+getopstr(taicpu(hp).oper[i]);
       end;
       end;
     AsmWriteLn(s);
     AsmWriteLn(s);
   end;
   end;
@@ -209,7 +209,10 @@ initialization
 end.
 end.
 {
 {
     $Log$
     $Log$
-    Revision 1.9  2002-11-10 19:07:46  mazen
+    Revision 1.10  2002-11-16 15:29:16  florian
+      * fixed Cish syntax
+
+    Revision 1.9  2002/11/10 19:07:46  mazen
     * SPARC calling mechanism almost OK (as in GCC./mppcsparc )
     * SPARC calling mechanism almost OK (as in GCC./mppcsparc )
 
 
     Revision 1.8  2002/10/25 19:37:53  mazen
     Revision 1.8  2002/10/25 19:37:53  mazen