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

Fixing sizing logic

Browse source 
- unveiled by MacOSX (Actions failure)
This commit is contained in:
Roland Heyder 2022-08-25 02:58:50 +02:00
parent 51667125c9
commit b7f2bb7199
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
source/utilities/s-buffer/simplebuffer.bm
View file

@ -64,9 +64,9 @@ cur& = GetBufPos&(handle%): txl& = LEN(text$)
brc$ = BufEolSeq$(handle%): brl% = LEN(brc$) brc$ = BufEolSeq$(handle%): brl% = LEN(brc$)
cbl&& = GetBufLen&(handle%): chg& = txl& + brl% cbl&& = GetBufLen&(handle%): chg& = txl& + brl%
'--- check buffer length --- '--- check buffer length ---
IF cbl&& + chg& > LEN(simplebuffer_array$(buf& + 0)) THEN WHILE cbl&& + chg& > LEN(simplebuffer_array$(buf& + 0))
simplebuffer_array$(buf& + 0) = simplebuffer_array$(buf& + 0) + SPACE$(10000) simplebuffer_array$(buf& + 0) = simplebuffer_array$(buf& + 0) + SPACE$(10000)
END IF WEND
'--- write into buffer --- '--- write into buffer ---
MID$(simplebuffer_array$(buf& + 0), cur&) = text$ + brc$ + MID$(simplebuffer_array$(buf& + 0), cur&, cbl&& - cur& + 1) MID$(simplebuffer_array$(buf& + 0), cur&) = text$ + brc$ + MID$(simplebuffer_array$(buf& + 0), cur&, cbl&& - cur& + 1)
MID$(simplebuffer_array$(buf& + 1), 1, 4) = MKL$(cur& + chg&) MID$(simplebuffer_array$(buf& + 1), 1, 4) = MKL$(cur& + chg&)
@ -96,9 +96,9 @@ buf& = handle% * 106
cur& = GetBufPos&(handle%): rdl& = LEN(rawData$) cur& = GetBufPos&(handle%): rdl& = LEN(rawData$)
cbl&& = GetBufLen&(handle%) cbl&& = GetBufLen&(handle%)
'--- check buffer length --- '--- check buffer length ---
IF cbl&& + rdl& > LEN(simplebuffer_array$(buf& + 0)) THEN WHILE cbl&& + rdl& > LEN(simplebuffer_array$(buf& + 0))
simplebuffer_array$(buf& + 0) = simplebuffer_array$(buf& + 0) + SPACE$(10000) simplebuffer_array$(buf& + 0) = simplebuffer_array$(buf& + 0) + SPACE$(10000)
END IF WEND
'--- write into buffer --- '--- write into buffer ---
MID$(simplebuffer_array$(buf& + 0), cur&) = rawData$ + MID$(simplebuffer_array$(buf& + 0), cur&, cbl&& - cur& + 1) MID$(simplebuffer_array$(buf& + 0), cur&) = rawData$ + MID$(simplebuffer_array$(buf& + 0), cur&, cbl&& - cur& + 1)
MID$(simplebuffer_array$(buf& + 1), 1, 4) = MKL$(cur& + rdl&) MID$(simplebuffer_array$(buf& + 1), 1, 4) = MKL$(cur& + rdl&)