summaryrefslogtreecommitdiff
path: root/compiler/sparcgen/aoptcpu.pas
diff options
context:
space:
mode:
authornickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2>2021-04-18 01:58:34 +0000
committernickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2>2021-04-18 01:58:34 +0000
commit38b5e0606069cc5985e995e1da5b6855db67f507 (patch)
tree3396f758ef2cea5a0760aa73a6578a35c4fcac87 /compiler/sparcgen/aoptcpu.pas
parentc99242579a36e85923993a66ac396d7bb3747221 (diff)
parent003a6cf3bbb6833d60fdf0df1ad4d75449951a8e (diff)
downloadfpc-38b5e0606069cc5985e995e1da5b6855db67f507.tar.gz
* synchronized with trunk
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/unicodekvm@49224 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/sparcgen/aoptcpu.pas')
-rw-r--r--compiler/sparcgen/aoptcpu.pas2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/sparcgen/aoptcpu.pas b/compiler/sparcgen/aoptcpu.pas
index 3d4b14d4d7..7bedafe480 100644
--- a/compiler/sparcgen/aoptcpu.pas
+++ b/compiler/sparcgen/aoptcpu.pas
@@ -107,11 +107,11 @@ unit aoptcpu;
var
p: taicpu;
begin
- p:=taicpu(hp);
result:=false;
if not ((assigned(hp)) and (hp.typ=ait_instruction)) then
exit;
+ p:=taicpu(hp);
case p.opcode of
{ These instructions do not write into a register at all }
A_NOP,