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

* m68k/ra68kmot.pas, tm68kmotreader.gettoken:

Browse Source 
if "firsttoken" isn't set we must not take the possibility into account that the token could be an opcode

git-svn-id: trunk@22796 -
This commit is contained in:
svenbarth 2012-10-21 13:54:55 +00:00
parent 1822c46d8a
commit 05fc3bc427
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/m68k/ra68kmot.pas
View File

@ -315,8 +315,10 @@ const
end; end;
uppervar(actasmpattern); uppervar(actasmpattern);
If is_asmopcode(actasmpattern) then { this isn't the first token, so it can't be an
exit; opcode }
{If is_asmopcode(actasmpattern) then
exit;}
if is_register(actasmpattern) then if is_register(actasmpattern) then
exit; exit;
if is_asmdirective(actasmpattern) then if is_asmdirective(actasmpattern) then