Browse Source

* avoid internal error in case of an illegal assembler operand

git-svn-id: trunk@12612 -
florian 16 years ago
parent
commit
35aed58faa
1 changed files with 3 additions and 0 deletions
  1. 3 0
      compiler/rautils.pas

+ 3 - 0
compiler/rautils.pas

@@ -1058,6 +1058,9 @@ end;
               OPR_SHIFTEROP:
               OPR_SHIFTEROP:
                 ai.loadshifterop(i-1,shifterop);
                 ai.loadshifterop(i-1,shifterop);
 {$endif ARM}
 {$endif ARM}
+              { ignore wrong operand }
+              OPR_NONE:
+                ;
               else
               else
                 internalerror(200501051);
                 internalerror(200501051);
             end;
             end;