Procházet zdrojové kódy

* fix missing comma in the middle of 64-bit ait_consts

git-svn-id: branches/z80@44451 -
nickysn před 5 roky
rodič
revize
a38917f471
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  1. 1 1
      compiler/z80/agsdasz80.pas

+ 1 - 1
compiler/z80/agsdasz80.pas

@@ -313,7 +313,7 @@ unit agsdasz80;
                           end
                         else
                           if consttype in [aitconst_64bit,aitconst_64bit_unaligned] then
-                            s:=tostr(Word(tai_const(hp).value))       +','+tostr(Word(tai_const(hp).value shr 16))+
+                            s:=tostr(Word(tai_const(hp).value))       +','+tostr(Word(tai_const(hp).value shr 16))+','+
                                tostr(Word(tai_const(hp).value shr 32))+','+tostr(Word(tai_const(hp).value shr 48))
                           else
                             s:=tostr(Word(tai_const(hp).value))+','+tostr(Word(tai_const(hp).value shr 16));