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

* also handle single character register names (needed on Z80 for example)

Browse Source 
git-svn-id: trunk@45592 -
This commit is contained in:
svenbarth 2020-06-06 17:15:57 +00:00
parent b2d6c36e70
commit 2b7d9c5a1f
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/pstatmnt.pas
View File

@ -1101,7 +1101,12 @@ implementation
Message(parser_w_register_list_ignored);
repeat
{ it's possible to specify the modified registers }
reg:=std_regnum_search(lower(cstringpattern));
if token=_CSTRING then
reg:=std_regnum_search(lower(cstringpattern))
else if token=_CCHAR then
reg:=std_regnum_search(lower(pattern))
else
reg:=NR_NO;
if reg<>NR_NO then
begin
if not(po_assembler in current_procinfo.procdef.procoptions) and assigned(hl) then
@ -1113,7 +1118,10 @@ implementation
end
else
Message(asmr_e_invalid_register);
consume(_CSTRING);
if token=_CCHAR then
consume(_CCHAR)
else
consume(_CSTRING);
if not try_to_consume(_COMMA) then
break;
until false;