From f027f13042ca943cd860bcf18c9f765887beccae Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Wed, 28 Oct 2020 19:23:34 -0400 Subject: [PATCH] Remove an indirection in ERR --- blk/354 | 1 - blk/356 | 1 + cvm/forth.bin | Bin 5237 -> 5222 bytes 3 files changed, 1 insertion(+), 1 deletion(-) diff --git a/blk/354 b/blk/354 index 302b2ab..b5f3088 100644 --- a/blk/354 +++ b/blk/354 @@ -1,5 +1,4 @@ : ABORT (resSP) QUIT ; -: ERR LIT" (print)" FIND IF EXECUTE THEN ABORT ; : = CMP NOT ; : < CMP -1 = ; : > CMP 1 = ; : 0< 32767 > ; : >= < NOT ; : <= > NOT ; : 0>= 0< NOT ; : >< ( n l h -- f ) 2 PICK > ( n l f ) ROT ROT > AND ; diff --git a/blk/356 b/blk/356 index 38a6c6e..1b48772 100644 --- a/blk/356 +++ b/blk/356 @@ -3,6 +3,7 @@ SYSVARS 0x53 + :** EMIT : BS 8 EMIT ; : LF 10 EMIT ; : CR 13 EMIT ; : CRLF CR LF ; : SPC 32 EMIT ; SYSVARS 0x0a + :** NL +: ERR (print) ABORT ; : (uflw) LIT" stack underflow" ERR ; XCURRENT @ _xapply ORG @ 0x06 ( stable ABI uflw ) + ! : (oflw) LIT" stack overflow" ERR ; diff --git a/cvm/forth.bin b/cvm/forth.bin index a7ccd5b1f4925fb39072d0b08bcfa32dd9abf8bf..efdb44e6a16e18bda61ee45f49fc99ddb16eb5c3 100644 GIT binary patch delta 2847 zcmZWrYiyI(8Gg@qu|MDK1PBp!9pXf}G$Fv&iF&zyiIX~*II>NXEieKpi8La}NEkw6 zvkG1>VHatqiDqY8B>v}sVqOxCIr(~rme88Q_GKl*q--%Nmpr+ z?40x7FVFiPf8P9{c^l#H{m6dPRwuqu?wxJ#X~iy!gt#o8Qj|KK<5jV)MXB4X=*#M| zx6?(4p2z~(J87(jUc zFz!P#Kibb3*;J>PBN>RAi_cQIoD1aZ#s{cI^SSBS^DO~#iD3%OFC3pbC5KIKd%X$P z8D_;4E2vm?XTE##?DXuJ^NM}`^mNNEGR1ZIs#)E}q+@fh9G{wsL!(4C?WTLEgnNmW z1#+OhWGS+j?#UbG?$D}!jrIvC%HXxry8M^9BmFb8gM3R=0Xc*OlJwUyWE3B!Oex;h z+1RnUsZnH5q7}j1CR*37!HSM5ZQfcfBgfAwYIDBpFIo9B+7oj=(! zMsCsI0xqH?oqqwhx_yL)5mpo!64o_GyF=4?dWFoLK zVXcTRt3y*_<`h;A! z?CPR5h-jL48eN{Jkk;p9i>ColAMrH3*no!U)ZoEvWM58I!}E_J5@y7gf%%K{zMiDV zH+gozZ+{N>Vu6MwS@G2D{s;np!EAj=q-{S$4j{A{qfF=J15ZP4RbSFS^c>LIw1lw4 zn){BM&oKa}`Q+(^vlm+G(T$?Dfgt*GslGyr;UD+%v~%HJ?#re7>$k7rN zWyH52rsQkBcyY#f-jX8ki;1hE58oJ(%)#A_(CYIg#6El$07>RYX)tp*|I$w6nFkq0 zSA9ylHw@_#vHTZUx#eR*Ow=g@j!{@O#qy@DvGgeNH3r3$&n7aYIA@rC-~i--p6w{a zvN-3P@=ekZW=V~&6rZCfpK`LJ--yHIEnk`L`q;~={I@ z-nD!F~NMPfD{wA z4WD@%q1*YM1f>)?Lvy0yddy?>@e7OlurYlyU=^kN-$BFF|KGfoe$bnc6S@gD5ndf&sO&AZ$~GbSb4GQK9if6N#_eY zP_Mh_eOMKF2wUS1LGDT~KokVtp9|F-T2SxVziZ7TeHf+mNFkLQ&7}&%?!0PO$7=pbV;+}E9{|miW zJ`2VDY}!ALS9zT7%9e1fpT|ZMD%* ztOiblXj;A*ZuVUYU!)~{2(}jGd*S-f*4=ps7UiRG8YTEnWV_5n8q_H-dgX5-9mRi! zZFILAn16=TqkuZ$R%`N!Q{f)q%|T+9!hCAQX%VL{B^UZdaF~o^^B3kfJj3McKQlXf zd~W_^T{e$8neRsMinjg;jpO}hV88L!O18F!N%tz6$u#->s-5_8)Ip(Pa-TShcYb=- z`F${uZJ#Y$s{bbq;ajgg9A~bgcrdo95#+PUqB#jqNU7qtcJGndqvd zBw5S4g2m!>gF!{PQiUfW7gVX`4PU!ru|gs0vDEUSSO&eA-qOL^!Mlf=I!+;J z+}5QyNVoM{MvVT&ik)nY^3S4MIFlSI2WYF^&P;jdTiqpxd~nz{S0I^9@8lpI3M=Ml z5~AkUA4OlBJg%Q=^TJ~cgaBs?`e7oMDc zaq0*Q95`|0(8NRoxkP~+YNUrKjr#%>1ze;}WGS*u59L*}(SKXNLQe}RO5k7p@|s%?vi}pRU;?eOxt(xbEg$cG8FFmMc)PL|t^R zM8_;kEZ|hT;1jOXRtxFJ@(iPczWm=V{%x1r^X~iwE#e zJsYovJ;FSRwH8s{vJ9ip9?_&_f1Ly|ge zZfH*2vjdsLfRluCmgrT~c{yTl^oBhJdfqmnXjvBQ-CGtRyE8SK%?*s^T9xdg`z<>H zGvkS&{eFa|N;^!h@!T`<(ftKFCpGV!n31Qv4f%N^W=V0_TQ4q(G~VcmmZj>oHuGJfCG>R`_>^5MN#n1cn{JpG>__6DT0_Rf8$`&&o#j0U2ln&ylmx$ z9Ixn!^OPy~4ODhuc3c#d;)@lG;%#c+DHPu_TIiz?^~C^;ha^dw+wzl)VcQwHOolU3EOA;aH?|kR1B61Wcyl8ZUIJ6fg)%J7A=9!oFAcY z|9k-^EG2MTXLDgZU!e(|!HIdq=;qn^$L_otqQN~Q>CYp`6~Kv)u`Zv>ebyJF z6}WJCHjGXj1HL9TPCYu9Hwz%ui;s;~^JBQ~Wcwm&EIE`%hnCeXYfHfP?)Y=-NjHD{ zC^~cG_|!xjk8vo-i&ILS<&aHis1+Z(YpY419Q7f@4}2I4KSd%6Dt@+GkD`rf+mQ{2 zd~0(^V^2er8BC7$)B_%@=4tumN;|k6b6VY$AWvGQACP*0ww|~`MWSp z{#41;>Ib+g(FcBi-N?7pz4iBQGe*A*QDQU~&!jW)+%S32qUC}L<1xI4a5H1voWw-L zCI4MF?_~OLq9buBYT*{S6hYx?(Rb z7JK^6A__P(G)D?VOrK!&IvO{wEIqPb!DWI57Lttj8WE@6PGt#}A#DJsM7BkrMN*Aa2g~ zZ=gmz;tY&99$c~Z_5kU&qM1ySQ&sEn3DiY?d`lgk2~VG#JbuUEvvGra<<2Wb(5 zlrxb^`>6m*Oi?WHdKJ&jWFj}Z4i$HR!bN2yT0vjMrh{DDJzt zy5MbR4la2IZINfs_yex0K)MHYp5rc9M6u12?z>ej3L!&%%9}1_yD0dxh{tO+JSxyu z?S}q(RS8+bg_z7@hO?h7kY&kC^;T^G9C+GPr#Qn(i-bE5aY1(Q@dcEWk9RgTz|bqz z4&5=>uK_2O$u$M(thfZ)+uEYMT3rv1w`yw%*fW|-Bx~taSS)+D#u%?c9#Z}g?RO!3 z1{)94k#r&%ucX&R*mJjPEoI}Y^!>H;H89xlcBVgLXD