From 32d0531c7170455c208923ff1f47ed56344140cf Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 15 Oct 2024 22:51:39 +0200
Subject: [PATCH] * patch by lag programming: Code cleanup at function
TAOptBase.RegInInstruction, resolves #40952
---
compiler/aoptbase.pas | 1 -
1 file changed, 1 deletion(-)
diff --git a/compiler/aoptbase.pas b/compiler/aoptbase.pas
index 42c3dc1680..e290766e9e 100644
--- a/compiler/aoptbase.pas
+++ b/compiler/aoptbase.pas
@@ -142,7 +142,6 @@ unit aoptbase;
for Count:=0 to TInstr(p1).ops-1 do
if RegInOp(Reg, TInstr(p1).oper[Count]^) then
exit(true);
- result:=false;
End;