sjs/sectorlisp
1
0
Fork 0
mirror of https://github.com/samsonjs/sectorlisp.git synced 2026-04-27 14:57:41 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix typo and avoid stack-race

Browse source
This commit is contained in:
Peter Ferrie 2021-11-03 21:23:09 -07:00
parent adb7310d57
commit bf27f44569
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
bin/sectorlisp.bin
View file

Binary file not shown.

4
sectorlisp.S
View file

@ -51,9 +51,9 @@ _begin: push %cs # memory model cs=ds=es = 0x600
push %cs push %cs
pop %ds pop %ds
pop %es pop %es
pop %ss
mov $kSymbols,%si mov $kSymbols,%si
mov %si,%cx mov %si,%cx
pop %ss
mov %cx,%sp mov %cx,%sp
cld cld
xor %ax,%ax xor %ax,%ax
@ -206,7 +206,7 @@ Cons: xchg %di,%ax
xchg %di,%ax xchg %di,%ax
mov %fs,%di mov %fs,%di
mov %ax,%fs mov %ax,%fs
xchg %di,%ax 1: xchg %di,%ax
ret ret
Pairlis:cmp $NIL,%di # Pairlis(x:di,y:si,a:dx):ax Pairlis:cmp $NIL,%di # Pairlis(x:di,y:si,a:dx):ax