dawids/lang-bootstrap
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

allow terms to be more complicated

Browse source
This commit is contained in:
pommicket 2022-01-08 10:15:43 -05:00
parent 262824b214
commit d74f349e27
5 changed files with 60 additions and 77 deletions
Download patch file Download diff file Expand all files Collapse all files

7
04/in04
View file

@ -15,8 +15,7 @@ function strlen
local p
p = s
:strlen_loop
c = *1p
if c == 0 goto strlen_loop_end
if *1p == 0 goto strlen_loop_end
p += 1
goto strlen_loop
:strlen_loop_end
@ -24,9 +23,7 @@ function strlen
function putc
argument c
local p
p = &c
syscall(1, 1, p, 1)
syscall(1, 1, &c, 1)
return
function puts