QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-04 04:50:22 +00:00
Code Issues Releases Wiki Activity

Fix func__files() to return empty qbs on error

Browse source
This commit is contained in:
a740g 2023-12-15 13:48:04 +05:30
parent 5c078a1ec1
commit 9760895f92
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
internal/c/libqb/src/filesystem.cpp
View file

@ -630,6 +630,7 @@ static const char *GetDirectoryEntryName(const char *fileSpec) {
/// @return Retuns a qbs with the directory entry name or an empty string if there are no more entries
qbs *func__files(qbs *qbsFileSpec, int32_t passed) {
const char *entry;
qbs *final;
// Check if fresh arguments were passed and we need to begin a new session
if (passed) {
@ -639,15 +640,16 @@ qbs *func__files(qbs *qbsFileSpec, int32_t passed) {
if (IsStringEmpty(entry)) {
// This is per MS BASIC PDS 7.1 and VBDOS 1.0 behavior
final = qbs_new(0, 1);
error(53);
return;
return final;
}
} else {
entry = GetDirectoryEntryName(nullptr);
}
auto size = strlen(entry);
auto final = qbs_new(size, 1);
final = qbs_new(size, 1);
memcpy(final->chr, entry, size);
return final;