Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-10-05 18:56:19 +00:00
Code Issues Projects Releases Wiki Activity

increase internal buffer for diskio.list_files to be able to list larger directories

Browse Source
This commit is contained in:
Irmen de Jong 2022-01-26 03:17:33 +01:00
parent e2b8c069d7
commit fa48746ba9
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/res/prog8lib/diskio.p8
View File

@ -76,7 +76,8 @@ io_error:
sub list_files(ubyte drivenumber, uword pattern_ptr, uword name_ptrs, ubyte max_names) -> ubyte { sub list_files(ubyte drivenumber, uword pattern_ptr, uword name_ptrs, ubyte max_names) -> ubyte {
; -- fill the array 'name_ptrs' with (pointers to) the names of the files requested. ; -- fill the array 'name_ptrs' with (pointers to) the names of the files requested.
uword names_buffer = memory("filenames", 512, 0) const uword names_buf_size = 800
uword names_buffer = memory("filenames", names_buf_size, 0)
uword buffer_start = names_buffer uword buffer_start = names_buffer
ubyte files_found = 0 ubyte files_found = 0
if lf_start_list(drivenumber, pattern_ptr) { if lf_start_list(drivenumber, pattern_ptr) {
@ -87,7 +88,7 @@ io_error:
name_ptrs++ name_ptrs++
names_buffer += string.copy(diskio.list_filename, names_buffer) + 1 names_buffer += string.copy(diskio.list_filename, names_buffer) + 1
files_found++ files_found++
if names_buffer - buffer_start > 512-18 if names_buffer - buffer_start > names_buf_size-18
break break
if files_found == max_names if files_found == max_names
break break