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

* fixed compilation with -dEXTDEBUG after adding ROL/ROR internal opcodes

Browse Source 
git-svn-id: trunk@11774 -
This commit is contained in:
tom_at_work 2008-09-13 20:37:43 +00:00
parent f9b4d58e98
commit 3a4940e9c2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ppcgen/cgppc.pas
View File

@ -133,7 +133,7 @@ unit cgppc;
const const
opcg_strings : array[TOpCg] of string[6] = ( opcg_strings : array[TOpCg] of string[6] = (
'None', 'Move', 'Add', 'And', 'Div', 'IDiv', 'IMul', 'Mul', 'None', 'Move', 'Add', 'And', 'Div', 'IDiv', 'IMul', 'Mul',
'Neg', 'Not', 'Or', 'Sar', 'Shl', 'Shr', 'Sub', 'Xor' 'Neg', 'Not', 'Or', 'Sar', 'Shl', 'Shr', 'Sub', 'Xor', 'Rol', 'Ror'
); );
begin begin
result := opcg_strings[op]; result := opcg_strings[op];