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

- cleaned up some x86-specific code from the Z80 inline asm reader

Browse Source 
git-svn-id: trunk@45331 -
This commit is contained in:
nickysn 2020-05-11 00:46:24 +00:00
parent 0fbd418cb7
commit b581751ef3
1 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/z80/raz80asm.pas
View File

@ -288,16 +288,6 @@ Unit raz80asm;
actasmpattern[0]:=chr(len); actasmpattern[0]:=chr(len);
actasmpattern_origcase:=actasmpattern; actasmpattern_origcase:=actasmpattern;
uppervar(actasmpattern); uppervar(actasmpattern);
{$ifdef x86}
{ only x86 architectures have instruction prefixes }
{ Opcode, can only be when the previous was a prefix }
If is_prefix(actopcode) and is_asmopcode(actasmpattern) then
Begin
uppervar(actasmpattern);
exit;
end;
{$endif x86}
{ check for end which is a reserved word unlike the opcodes } { check for end which is a reserved word unlike the opcodes }
if actasmpattern = 'END' then if actasmpattern = 'END' then
begin begin