fix errors in list searching causing enforcer hits

dmcoles · Jul 25, 2024 · d366721 · d366721
1 parent b8538e1
commit d366721
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/menuObject.e b/menuObject.e
@@ -320,7 +320,7 @@ ENDPROC
 PROC findNode(n) OF menuSettingsForm
   DEF node:PTR TO ln
   node:=self.browserlist.head
-  WHILE (node)
+  WHILE (node.succ)
     IF n=0 THEN RETURN node
     n--
     node:=node.succ

diff --git a/rexxObject.e b/rexxObject.e
@@ -363,7 +363,7 @@ PROC editCommands(commands:PTR TO stringlist) OF rexxCommandSettingsForm
   IF res=MR_OK
     commands.clear()
     node:=self.browserlist.head
-    WHILE (node)
+    WHILE (node.succ)
       GetListBrowserNodeAttrsA(node,[LBNCA_TEXT,{strval},TAG_END])
       IF strval
         IF StrLen(strval)