re-dimensioning_20arrays
Differences
This shows you the differences between two versions of the page.
| Both sides previous revisionPrevious revisionNext revision | Previous revision | ||
| re-dimensioning_20arrays [2023/11/18 14:58] – richardrussell | re-dimensioning_20arrays [2024/01/05 00:22] (current) – external edit 127.0.0.1 | ||
|---|---|---|---|
| Line 80: | Line 80: | ||
| IF ? | IF ? | ||
| N% = 5+S%*(D%+1) | N% = 5+S%*(D%+1) | ||
| - | IF p%%< | + | IF p%%< |
| SYS " | SYS " | ||
| IF @platform% AND &40 ELSE a%%=!^a%% | IF @platform% AND &40 ELSE a%%=!^a%% | ||
| Line 93: | Line 93: | ||
| IF ? | IF ? | ||
| N% = 9+S%*(D%+1)*(E%+1) | N% = 9+S%*(D%+1)*(E%+1) | ||
| - | IF p%%< | + | IF p%%< |
| SYS " | SYS " | ||
| IF @platform% AND &40 ELSE a%%=!^a%% | IF @platform% AND &40 ELSE a%%=!^a%% | ||
| Line 110: | Line 110: | ||
| 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 " | ||
| IF N%>O% SWAP N%,O% | IF N%>O% SWAP N%,O% | ||
| - | SYS "SDL_memmove", a%%, p%%, N% | + | SYS "SDL_memcpy", a%%, p%%, N% |
| a%%!1=D%+1 | a%%!1=D%+1 | ||
| - | IF p%%< | + | IF p%%< |
| p%% = a%% | p%% = a%% | ||
| ENDPROC | ENDPROC | ||
| Line 125: | Line 126: | ||
| 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 " | ||
| IF N%>O% SWAP N%,O% | IF N%>O% SWAP N%,O% | ||
| SYS " | SYS " | ||
| a%%!1=D%+1 : a%%!5=E%+1 | a%%!1=D%+1 : a%%!5=E%+1 | ||
| - | IF p%%< | + | IF p%%< |
| p%% = a%% | p%% = a%% | ||
| ENDPROC | ENDPROC | ||
re-dimensioning_20arrays.1700319496.txt.gz · Last modified: 2024/01/05 00:16 (external edit)