From bf27f44569c60828a1790d44a3e9d472ddbaa6c6 Mon Sep 17 00:00:00 2001 From: Peter Ferrie Date: Wed, 3 Nov 2021 21:23:09 -0700 Subject: [PATCH] fix typo and avoid stack-race --- bin/sectorlisp.bin | Bin 9536 -> 512 bytes sectorlisp.S | 4 ++-- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/bin/sectorlisp.bin b/bin/sectorlisp.bin index 94947da5a25679ae7ba8322004715d9aeffaec91..3d0ec4dd9339b31e440308e18e82c05c5b8d3d16 100755 GIT binary patch delta 14 VcmX@$)xffeMVOIMX0izD8vr0f1P%ZI literal 9536 zcmeI2dvp}l9ml^n7!WiM6h$n`DuSS}CJ03^XhO1LG$bJj579Dil1;L(kGMO#JX$Oo zEMO1;g{bviwG=1~7L+2&YU-oPL#+5JDprdNp*~7gL}h#L%jO@&t;Xr|`E^^h%N7XvY;K>esI1cF_1C)W85!L!h`TO#03{+FtM0hPiL(K> z)OVw^I7OuOHG)!ssVy9d8M{%)2eKuknQ;q=2{S~boh;-$3L`JTX4%!XaJgoSyQcBAb<-B~S*n^fJy(oQuvB0<^(^+2X-+8XzFmMU0V zKC(w!r4w{K_CR~T(&7?SVcht#DhCS7N{diXRW=rd1r;bPl6zTcB^=}S4GQ0g%*@O_ zU3xy37GCh>f-T?YMi%YPjU8CIc~1V?eg__VvRm|YM2BFbK=d>by&kO@(L2!|-HiMN zhv&bZXA7sTToRp$rINnL8yHTXb7t_AjH(Sl+;_ zxtkE36)TT^5o_XBkEp5uAr!Ajot@&@bY=MBp$a-``Q zd3{6ge)F3f=ckLZ%+s7ecc-aIC)ZQD_{ z@hf9;Q}Z@)J|5@riI`9Hz=<9>#vW)i-){!=zqJ1`dN|SSIPL-U?kw;AQ15w)YgI9< z4nPquO5z+`NIe&W$U`ugd@1bYp}2%R3_0YVB9}ZIL&%q57OaxrcoUjvOi7EW?0 zYRP4&BbTFrJPuRI74VQN;U!nWM;?!x$P*ACPlQgMgfRI!%pgz3Eb{f3O}+uYB>xPz zkf-2QvJ*|@YTQPy#XPbLx0CCzkX(;No@54vrU*lu){n$f(08#S8*hhW@`^mq>XXF+5lKeXyAg{(( z3*$y;#|c^fV! zZ^t0=>#&n|Acy=0a>;LE2ze)lk>A2_^4l0meg~t-@8U}Gdnh3P4MpT#aFE}}Rpbva zhWsI}A@9bux~VRFb0@Pu`0OXiQ{kWd|PfQ_y zhHCQXs3m`aI`RRy$^XVQ@>lSZzlM+e4I0S@5hQ<$F!>N>kiWyv$=_o(`3KxgK8#z) zG2BW{6HVk!;x_V0VjekN%qMpi&Ezg(A^Bvnh}=~yA$Jo?$)||B$ft^BNv&Dnt?&4wcY2s1x>EbbR5Aitp46%ZIrdUbtDOQuu5^Ko4L@W7h@g(^t;wf@( zv4MP!*hoHCY$Ep&5wcCZKt4~rNIqY@MD8nICSM?4A@>unk^74+NNOT>HR9I=a>D?T6(5xdEkiciQx#UAo7u{X}<-T1`un0p}Ts?q%c zk2~0CuRLZaCmJ5FJz%eMdt5U35pq8)zXaBcI_EScByH*ovD(z%hw5u#C*u>bRt0pW zqUzQ1MMjE}B}=_h6jka=MSW`4C9wT8yG%v~rBY7%KIe?w{uJ8Ov5? zg!P(SypZ*C@)I#v`~7Oc1^7imvAcb4C0!_Ym0M>_tDNbr_IrYAk;PQBYFE8mIvzyD z>r`bxEq$0aV_bTby1bK$s#iHRQE`Nw9;Lcv6SI{n4VU|RxtmIPNH1(~2Jjgb>Df^B zB`YQFppGA?*o%F-E8xRCO9{A)Ok1f)K%v~%rYNPd^lFN7oh)rkQPlT<2o<@?q+caV zFEEQ4g??X9Dt)Oq!t!P!l`JZ86ZE4}?sThL4u(*1glqh&Tg$1~9pOS}Z2)ytjH0yJ zPNg6iREu8NNkv6iAeA?$6f`z^W=f@riaj{pt=BZ*aZB+yz16i&%(oPGoe}o3Bqiv$ zN&0!vQslMdj{uKaN^PA-&jntx6zN9}DORT_GA*=Piu6+?{k&)??z#fq?}hxfADo-YfG&5DMkG{I|;S!_lac?CzTgujq+o9SRAiWCsTPy z(#aAnn>8J5o{cM(&5pRDewC)5y-JZwu$Gdh%wbDXdP_ycYuQ|8*eJV%pKCfOH*`=u z9h6y0Ny+p9rKH5OzC$ay(84VZnpW%aXqur|5xyO_v6TIWlAn~tcS=dQR(IJcJ*24m z#_XSS)F~yx%gqWYCv2{cn=5x_<%AA4)hUX+9XbQXT_Je{11UDj|6HZW-ST`_+{Vi5 ziMWlW{7EXQXVgBUB0H(aI(1U^=4Q4!!%&iY^?a!) z(TXRhL#t6zQ8`&Q>E@Dy~-Nde{lS!&-Ck$CORIJU&GgjUwMxh7ao792E}z*Q#RXOL@;?k!BDcbnaZ;Hk zYRq73I+Tqcz1f$kjZ;Qdj+z`)^&)sgoaW#hk)aCS@|!w$5);7a%;aG<1JsimYQ?Ij zM$3+p*S5xA%}-+nCQ>tFFuOH*a(MjCT30};^Em6x$(NjxY%Kkl17!J5Zf@3fbo<|j MBQaqTsh9!&2lPP`bN~PV diff --git a/sectorlisp.S b/sectorlisp.S index 2b7eeb8..512ca26 100644 --- a/sectorlisp.S +++ b/sectorlisp.S @@ -51,9 +51,9 @@ _begin: push %cs # memory model cs=ds=es = 0x600 push %cs pop %ds pop %es - pop %ss mov $kSymbols,%si mov %si,%cx + pop %ss mov %cx,%sp cld xor %ax,%ax @@ -206,7 +206,7 @@ Cons: xchg %di,%ax xchg %di,%ax mov %fs,%di mov %ax,%fs - xchg %di,%ax +1: xchg %di,%ax ret Pairlis:cmp $NIL,%di # Pairlis(x:di,y:si,a:dx):ax