QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-02 21:11:22 +00:00
Code Releases Wiki Activity

Fixes ENVIRON$() to automatically add CHR$(0) to strings passed.

Browse source 
Closes #79
This commit is contained in:
FellippeHeitor 2020-10-18 01:14:25 -03:00
parent 4472c12a73
commit 1d07a3c802
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
internal/c/libqb.cpp
View file

@ -21311,10 +21311,15 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
qbs *func_environ(qbs *name)
{
static char *withNull;
withNull=(char*)malloc(name->len+1);
withNull[name->len]=0;//add NULL terminator
memcpy(withNull,name->chr,name->len);
static char *cp;
static qbs *tqbs;
static int32 bytes;
cp=getenv((char*)name->chr);
cp=getenv(withNull);
if (cp){
bytes=strlen(cp);
tqbs=qbs_new(bytes,1);