From 1b37b47dbe35d04b83b69b583becae38374fc3c1 Mon Sep 17 00:00:00 2001 From: ketmar Date: Fri, 13 Nov 2020 06:04:36 +0000 Subject: [PATCH] os-dir: make sure that there are no extra items at data stack in callback FossilOrigin-Name: 3bf27286d753263f1a2728b7d5e298f04eda4f353a170deb78c83c8ed42d7307 --- libs/ext/os_dir.f | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/libs/ext/os_dir.f b/libs/ext/os_dir.f index 42f7a4a..fe62aa4 100644 --- a/libs/ext/os_dir.f +++ b/libs/ext/os_dir.f @@ -51,8 +51,9 @@ previous definitions begin over dup os:dent-ino + @ swap os:dent-namez + zcount ( buf bleft uno addr count | xt buf-dirfd xt ) 2dup 2dup " ." s= nrot " .." s= or if 2drop drop - else - rot r@ execute ( buf bleft stopflag | xt buf-dirfd xt ) + else ( buf bleft uno addr count | xt buf-dirfd xt ) + \ rot r@ execute ( buf bleft stopflag | xt buf-dirfd xt ) + rot r@ 2rot 2>r execute 2r> rot ?dup if nrot 2drop 2rdrop 2rdrop 0 os:#dent rdealloca exit endif endif over os:dent-reclen + w@ /string -- 2.11.4.GIT