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

reverted change in r22796, the previously disabled code is actually required by the amunits package

Browse Source 
git-svn-id: trunk@27574 -
This commit is contained in:
Károly Balogh 2014-04-13 22:06:51 +00:00
parent 5535df29d4
commit 9ad7540ddf
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/m68k/ra68kmot.pas
View File

@ -331,8 +331,11 @@ const
{ this isn't the first token, so it can't be an
opcode }
{If is_asmopcode(actasmpattern) then
exit;}
{ Actually, it's possible, since @label: OPCODE foo,bar
is valid and was supported in 0.99/1.0 FPC for 68k,
the amunits package is full of such code. (KB) }
if is_asmopcode(actasmpattern) then
exit;
if is_register(actasmpattern) then
exit;
if is_asmdirective(actasmpattern) then