paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 11:59:27 +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

10
compiler/pstatmnt.pas
View File

@ -1101,7 +1101,12 @@ implementation
Message(parser_w_register_list_ignored); Message(parser_w_register_list_ignored);
repeat repeat
{ it's possible to specify the modified registers } { 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 if reg<>NR_NO then
begin begin
if not(po_assembler in current_procinfo.procdef.procoptions) and assigned(hl) then if not(po_assembler in current_procinfo.procdef.procoptions) and assigned(hl) then
@ -1113,6 +1118,9 @@ implementation
end end
else else
Message(asmr_e_invalid_register); Message(asmr_e_invalid_register);
if token=_CCHAR then
consume(_CCHAR)
else
consume(_CSTRING); consume(_CSTRING);
if not try_to_consume(_COMMA) then if not try_to_consume(_COMMA) then
break; break;