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

Merge branch 'development' into IdeImprovements

Browse source
This commit is contained in:
Fellippe Heitor 2021-01-24 11:49:48 -03:00
parent f8a75595de 3f2f35b546
commit b190c0d41d
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
internal/c/libqb.cpp
View file

@ -15812,7 +15812,7 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
if ((pos<-32768)||(pos>32767)){
if (tab_LPRINT) sub__dest(tab_LPRINT_olddest);
tqbs=qbs_new(0,1);
error(7); return tqbs;//Overflow
error(6); return tqbs;//Overflow
}
if (pos>w) pos%=w;
if (pos<1) pos=1;
@ -15844,7 +15844,7 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
if (new_error) return qbs_new(0,1);
static qbs *tqbs;
if ((spaces<-32768)||(spaces>32767)){tqbs=qbs_new(0,1); error(7); return tqbs;}//Overflow
if ((spaces<-32768)||(spaces>32767)){tqbs=qbs_new(0,1); error(6); return tqbs;}//Overflow
if (spaces<0) spaces=0;
//for files, spc simply adds that many spaces