BBC BASIC Programmers' Reference

User Tools

Site Tools

Trace: • comparing_20arrays_20for_20equality
re-dimensioning_20arrays

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revisionPrevious revision
Next revision		Previous revision
re-dimensioning_20arrays [2019/04/09 22:08] – Added BBCSDL procedures richardrussellre-dimensioning_20arrays [2024/01/05 00:22] (current) – external edit 127.0.0.1
Line 80: Line 80:
       IF ?p%%<>1 ERROR 14, "Bad use of array"       IF ?p%%<>1 ERROR 14, "Bad use of array"
       N% = 5+S%*(D%+1)       N% = 5+S%*(D%+1)
-      IF p%%<LOMEM OR p%%>HIMEM SYS "free", p%% +      IF p%%<LOMEM OR p%%>HIMEM SYS "SDL_free", p%% 
-      SYS "malloc", N% TO a%%+      SYS "SDL_malloc", N% TO a%%
       IF @platform% AND &40 ELSE a%%=!^a%%       IF @platform% AND &40 ELSE a%%=!^a%%
       IF a%%=0 ERROR 11, "DIM space"       IF a%%=0 ERROR 11, "DIM space"
-      SYS "memset", a%%, 0, N%+      SYS "SDL_memset", a%%, 0, N%
       ?a%%=1 : a%%!1=D%+1       ?a%%=1 : a%%!1=D%+1
       p%% = a%%       p%% = a%%
Line 93: Line 93:
       IF ?p%%<>2 ERROR 14, "Bad use of array"       IF ?p%%<>2 ERROR 14, "Bad use of array"
       N% = 9+S%*(D%+1)*(E%+1)       N% = 9+S%*(D%+1)*(E%+1)
-      IF p%%<LOMEM OR p%%>HIMEM SYS "free", p%% +      IF p%%<LOMEM OR p%%>HIMEM SYS "SDL_free", p%% 
-      SYS "malloc", N% TO a%%+      SYS "SDL_malloc", N% TO a%%
       IF @platform% AND &40 ELSE a%%=!^a%%       IF @platform% AND &40 ELSE a%%=!^a%%
       IF a%%=0 ERROR 11, "DIM space"       IF a%%=0 ERROR 11, "DIM space"
-      SYS "memset", a%%, 0, N%+      SYS "SDL_memset", a%%, 0, N%
       ?a%%=2 : a%%!1=D%+1 : a%%!5=E%+1       ?a%%=2 : a%%!1=D%+1 : a%%!5=E%+1
       p%% = a%%       p%% = a%%
Line 107: Line 107:
       N% = 5+S%*(D%+1)       N% = 5+S%*(D%+1)
       O% = 5+S%*p%%!1       O% = 5+S%*p%%!1
-      SYS "malloc", N% TO a%%+      SYS "SDL_malloc", N% TO a%%
       IF @platform% AND &40 ELSE a%%=!^a%%       IF @platform% AND &40 ELSE a%%=!^a%%
       IF a%%=0 ERROR 11, "DIM space"       IF a%%=0 ERROR 11, "DIM space"
 +      SYS "SDL_memset", a%%, 0, N%
       IF N%>O% SWAP N%,O%       IF N%>O% SWAP N%,O%
-      SYS "memmove", a%%, p%%, N%+      SYS "SDL_memcpy", a%%, p%%, N%
       a%%!1=D%+1       a%%!1=D%+1
-      IF p%%<LOMEM OR p%%>HIMEM SYS "free", p%%+      IF p%%<LOMEM OR p%%>HIMEM SYS "SDL_free", p%%
       p%% = a%%       p%% = a%%
       ENDPROC       ENDPROC
Line 122: Line 123:
       N% = 9+S%*(D%+1)*(E%+1)       N% = 9+S%*(D%+1)*(E%+1)
       O% = 9+S%*p%%!1*p%%!5       O% = 9+S%*p%%!1*p%%!5
-      SYS "malloc", N% TO a%%+      SYS "SDL_malloc", N% TO a%%
       IF @platform% AND &40 ELSE a%%=!^a%%       IF @platform% AND &40 ELSE a%%=!^a%%
       IF a%%=0 ERROR 11, "DIM space"       IF a%%=0 ERROR 11, "DIM space"
 +      SYS "SDL_memset", a%%, 0, N%
       IF N%>O% SWAP N%,O%       IF N%>O% SWAP N%,O%
-      SYS "memmove", a%%, p%%, N%+      SYS "SDL_memcpy", a%%, p%%, N%
       a%%!1=D%+1 : a%%!5=E%+1       a%%!1=D%+1 : a%%!5=E%+1
-      IF p%%<LOMEM OR p%%>HIMEM SYS "free", p%%+      IF p%%<LOMEM OR p%%>HIMEM SYS "SDL_free", p%%
       p%% = a%%       p%% = a%%
       ENDPROC       ENDPROC
re-dimensioning_20arrays.1554847681.txt.gz · Last modified: 2024/01/05 00:16 (external edit)