mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-01 12:50:29 +02:00
* fix warnings in cgobj for 8-bit alu cpus
git-svn-id: branches/z80@44825 -
This commit is contained in:
parent
ec3013e040
commit
70e90175e5
@ -2103,6 +2103,8 @@ implementation
|
||||
a_load_const_reg(list,OS_8,0,dst);
|
||||
exit;
|
||||
end;
|
||||
else
|
||||
;
|
||||
end;
|
||||
end;
|
||||
OP_SHR:
|
||||
@ -2115,6 +2117,8 @@ implementation
|
||||
a_load_const_reg(list,OS_8,0,GetNextReg(dst));
|
||||
exit;
|
||||
end;
|
||||
else
|
||||
;
|
||||
end;
|
||||
end;
|
||||
{$endif cpu8bitalu}
|
||||
|
Loading…
Reference in New Issue
Block a user