paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 10:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ fixed dbra errors

Browse Source 
git-svn-id: trunk@5544 -
This commit is contained in:
Károly Balogh 2006-12-05 19:03:20 +00:00
parent f766a739f1
commit d6844efccc
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/m68k/ag68kgas.pas
View File

@ -291,6 +291,10 @@ interface
if op = A_SXX then
s:=gas_op2str[op]+cond2str[taicpu(hp).condition]
else
{ size of DBRA is always WORD, doesn't need opsize (KB) }
if op = A_DBRA then
s:=gas_op2str[op]+cond2str[taicpu(hp).condition]
else
if op in [a_dbxx,a_bxx,a_fbxx] then
s:=gas_op2str[op]+cond2str[taicpu(hp).condition]+gas_opsize2str[taicpu(hp).opsize]
else
@ -322,6 +326,11 @@ interface
begin
owner.AsmWrite(s+#9);
s:=getopstr_jmp(taicpu(hp).oper[0]^);
{ dbcc dx,<sym> has two operands! (KB) }
if (taicpu(hp).ops>1) then
s:=s+','+getopstr_jmp(taicpu(hp).oper[1]^);
if (taicpu(hp).ops>2) then
internalerror(2006120501);
end
else
begin