From bba4570a93e0c795147831ad28462e4619e535a9 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Sat, 31 Dec 2022 14:57:08 -0800
Subject: [PATCH] Fix filefrompath()

---
 src/utilsrc/apple/copy.pla | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/utilsrc/apple/copy.pla b/src/utilsrc/apple/copy.pla
index d6d9c6a..04d23a5 100644
--- a/src/utilsrc/apple/copy.pla
+++ b/src/utilsrc/apple/copy.pla
@@ -16,7 +16,7 @@ res[t_fileinfo] srcfileinfo, dstfileinfo
 //
 def pathcpy(dst, src)#0
     byte i, chr
-    
+
     if ^src
         for i = 1 to ^src
             chr = src->[i]
@@ -52,7 +52,7 @@ end
 def pathdiff(path1, path2)#1
     byte i, d
     char[64] abs1, abs2
-    
+
     abspath(@abs1, path1)
     abspath(@abs2, path2)
 
@@ -69,8 +69,8 @@ def pathdiff(path1, path2)#1
 end
 def filefrompath(filestr, pathstr)#0
     byte i
-    
-    for i = ^pathstr + 1 downto 1
+
+    for i = ^pathstr downto 1
         if pathstr->[i] == '/'
             break
         fin
@@ -108,7 +108,7 @@ def copyfiles(srcfile, dstfile)#0
     char[64] srcfilepath
     char[64] dstfilepath
     char[16] wildname
-    
+
     //
     // Check if copying a directory
     //
@@ -186,7 +186,7 @@ def copyfiles(srcfile, dstfile)#0
                 puts(" ==> "); puts(@dstfilepath); putln
             fin
             entry = entry + t_fileentry
-            entrycnt--            
+            entrycnt--
         loop
         heaprelease(entrylist)
     fin