Ver Fonte

* support opcode+operands > 255 characters (e.g. when loading string constants)

git-svn-id: branches/jvmbackend@18560 -
Jonas Maebe há 14 anos atrás
pai
commit
8248e6762f
1 ficheiros alterados com 2 adições e 1 exclusões
  1. 2 1
      compiler/agjasmin.pas

+ 2 - 1
compiler/agjasmin.pas

@@ -1144,7 +1144,8 @@ implementation
                  sep:=' ';
                  sep:=' ';
               end;
               end;
           end;
           end;
-        owner.AsmWriteLn(s);
+        owner.AsmWritePChar(PChar(s));
+        owner.AsmLn;
       end;
       end;
 
 
 {****************************************************************************}
 {****************************************************************************}