alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix bug in ls for esp32.

Browse Source
This commit is contained in:
Brad Nelson
2022-09-05 21:45:21 -07:00
parent 234d85bf71
commit bc12a4bf72
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
esp32/bindings.fs
View File

@ -15,7 +15,7 @@
( Migrate various words to separate vocabularies, and constants ) ( Migrate various words to separate vocabularies, and constants )
forth definitions internals forth definitions internals
: read-dir ( dh -- a n ) dup if errno else 0 then ; : read-dir ( dh -- a n ) readdir dup if z>s else 0 then ;
forth definitions forth definitions
vocabulary ESP ESP definitions vocabulary ESP ESP definitions

3
esp32/builtins.h
View File

@ -146,7 +146,8 @@ static cell_t ResizeFile(cell_t fd, cell_t size);
X("OPEN-DIR", OPEN_DIR, memcpy(filename, a1, n0); filename[n0] = 0; \ X("OPEN-DIR", OPEN_DIR, memcpy(filename, a1, n0); filename[n0] = 0; \
n1 = (cell_t) opendir(filename); n0 = n1 ? 0 : errno) \ n1 = (cell_t) opendir(filename); n0 = n1 ? 0 : errno) \
X("CLOSE-DIR", CLOSE_DIR, n0 = closedir((DIR *) n0); n0 = n0 ? errno : 0) \ X("CLOSE-DIR", CLOSE_DIR, n0 = closedir((DIR *) n0); n0 = n0 ? errno : 0) \
YV(internals, READDIR, SET readdir((DIR *) n0)->d_name) YV(internals, READDIR, \
struct dirent *ent = readdir((DIR *) n0); SET (ent ? ent->d_name: 0))
#ifndef ENABLE_LEDC_SUPPORT #ifndef ENABLE_LEDC_SUPPORT
# define OPTIONAL_LEDC_SUPPORT # define OPTIONAL_LEDC_SUPPORT