diff options
author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-04-02 23:02:55 +0000 |
---|---|---|
committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-04-02 23:02:55 +0000 |
commit | 9f953fc1ad249a05d5755c36bfce2cf61d537790 (patch) | |
tree | aff2ddea4e79295faf43abe84a3870434e5dc9ac /compiler/cgobj.pas | |
parent | ee2f1857f14b223ee5336d2f6a555056b25aab76 (diff) | |
download | fpc-9f953fc1ad249a05d5755c36bfce2cf61d537790.tar.gz |
- disable the check for R_SUBWHOLE in GetNextReg for Z80
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/z80@44520 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/cgobj.pas')
-rw-r--r-- | compiler/cgobj.pas | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/cgobj.pas b/compiler/cgobj.pas index edcce1ea6f..d661b3c6d0 100644 --- a/compiler/cgobj.pas +++ b/compiler/cgobj.pas @@ -754,8 +754,10 @@ implementation {$endif AVR} if getregtype(r)<>R_INTREGISTER then internalerror(2017091101); +{$ifndef Z80} if getsubreg(r)<>R_SUBWHOLE then internalerror(2017091102); +{$endif Z80} result:=TRegister(longint(r)+1); end; {$endif cpu8bitalu or cpu16bitalu} |