From 4262204cbfb0aa9c2da9cafcb9459d23644e2b5b Mon Sep 17 00:00:00 2001
From: Ed J <mohawk2@users.noreply.github.com>
Date: Fri, 20 Dec 2024 20:55:34 +0000
Subject: [PATCH] tighten up for-loops in Slices, use loop more

---
 lib/PDL/Slices.pd | 24 +++++++++---------------
 1 file changed, 9 insertions(+), 15 deletions(-)

diff --git a/lib/PDL/Slices.pd b/lib/PDL/Slices.pd
index 0bd3ab45e..b592b48d8 100644
--- a/lib/PDL/Slices.pd
+++ b/lib/PDL/Slices.pd
@@ -1035,15 +1035,12 @@ sub PDL::rld {
 }
 EOD
         Code => pp_line_numbers(__LINE__, <<'EOF'),
-          PDL_Indx i,j=0,an;
-          $GENERIC(b) bv;
+          PDL_Indx j=0;
           loop (n) %{
-            an = $a();
-            bv = $b();
-            for (i=0;i<an;i++) {
-              $c(m=>j) = bv;
-              j++;
-            }
+            PDL_Indx jlim = j + $a();
+            $GENERIC(b) bv = $b();
+            loop (m=j:jlim) %{ $c() = bv; %}
+            j = jlim;
           %}
 EOF
         Doc => <<'EOD'
@@ -1202,11 +1199,9 @@ EOC
        Code =>pp_line_numbers(__LINE__, <<'EOC'),
   PDL_Indx cn=0;
   loop (uniqvals) %{
-    PDL_Indx i, nrows = $a();
-    for (i=0; i<nrows; i++) {
-      loop (M) %{ $c(decodedvals=>cn) = $b(); %}
-      cn++;
-    }
+    PDL_Indx cnlim = cn + $a();
+    loop (decodedvals=cn:cnlim,M) %{ $c() = $b(); %}
+    cn = cnlim;
    %}
 EOC
   Doc =><<'EOD'
@@ -1276,9 +1271,8 @@ EOC
   PDL_Indx mi=0;
   loop (N) %{
     PDL_Indx     len = $a(), li;
-    for (li=0; li < len; ++li, ++mi) {
+    for (li=0; li < len; ++li, ++mi)
       $c(M=>mi) = $b() + li;
-    }
   %}
 EOC
   Doc =><<'EOD'