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

support SP and FP alias in the assembler reader too

Browse Source 
git-svn-id: trunk@27573 -
This commit is contained in:
Károly Balogh 2014-04-13 21:03:06 +00:00
parent 7ee09b9620
commit 5535df29d4
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/m68k/ra68kmot.pas
View File

@ -201,12 +201,26 @@ const
function tm68kmotreader.is_register(const s:string):boolean;
begin
is_register:=false;
// FIX ME!!! Ugly, needs a proper fix (KB)
result:=false;
// FIX ME!!! '%'+ is ugly, needs a proper fix (KB)
actasmregister:=gas_regnum_search('%'+lower(s));
if actasmregister<>NR_NO then
begin
is_register:=true;
result:=true;
actasmtoken:=AS_REGISTER;
end;
{ reg found?
possible aliases are always 2 char
}
if result or (length(s)<>2) then
exit;
if lower(s)='sp' then
actasmregister:=NR_STACK_POINTER_REG;
if lower(s)='fp' then
actasmregister:=NR_STACK_POINTER_REG;
if actasmregister<>NR_NO then
begin
result:=true;
actasmtoken:=AS_REGISTER;
end;
end;
@ -1410,7 +1424,6 @@ const
if expr = 'SELF' then
oper.SetupSelf
else begin
writeln('unknown id: ',expr);
Message1(sym_e_unknown_id,expr);
end;
expr:='';
@ -1459,7 +1472,6 @@ const
end;
{ // Register, a variable reference or a constant reference // }
AS_REGISTER: begin
// writeln('register! ',actasmpattern);
{ save the type of register used. }
tempstr := actasmpattern;
Consume(AS_REGISTER);