From b25a810007dbc05b67c45ffd9c9584451c7040e4 Mon Sep 17 00:00:00 2001 From: Norayr Chilingarian Date: Thu, 10 Apr 2014 17:02:55 +0400 Subject: [PATCH] added includes to not use internal write, read in Console and Unix --- ocat | Bin 203966 -> 203966 bytes showdef | Bin 417803 -> 417803 bytes src/lib/system/linux/clang/Console.Mod | 4 ++++ src/lib/system/linux/clang/x86_64/Unix.Mod | 8 ++++++++ voc | Bin 1302517 -> 1302517 bytes vocstatic.linux.clang.x86_64 | Bin 1302517 -> 1302517 bytes 6 files changed, 12 insertions(+) diff --git a/ocat b/ocat index 11a4c91ff40af25a2d12da67aad7d8bf58132ace..6cbe071ccbc99eeb71b1e6067eb1602160b6ed4c 100755 GIT binary patch delta 1615 zcmZ9MZA@EL7{||Zj=(*)mlj4xyBCzjmw-zcWSJu|U78G%nthPWKnTl_jdgSh2{_9j zkyw+NECsTGGaf%|?gNRNLq{VYuH7ahY83pkIo~F`%`|>N)2K1N5MQXzx#zSi_RHyW ze*fqH{LksVoljfyX)D#zy*bjmaVWZttWz zhgMhm-p}O_&P_y*c|9wyUCHH=t=UL2d$z4Ecs3Xhc~+iKd*iLyR~7>&hvW8e9HIv7 z7nval8k~^epKG~x``=M0dl@D~3D8KgIfb!DSWVyGUt9Wr#P8Y zoXjas<`gG$ijz6T$(-V3j!M>`k~zi6oLfMcjae8T1MYJ6-W46t7O#6~GQgG)PD{AV z*|+a#xFiNFI##`mZ0`fezTwQsvt{8cN0vqQy<~SdYkXVxWyP#yYsgOG<-pgRb2N=^ S+f#qhGo`TK-UjUamj3|9^i5&_ delta 1619 zcmZ9Me@I(b6vywmx9YnuFNvC%q^)C-{Xjd|l*(EdmW)@|y zGU%YhbW>^J{?o312y5-u81Rob2TKbbuKxA1?w7NZ4#r>`VI5;X%GQ~k``%3&=RcQo zKHqcB_nmu9cFD*t8JT^(+fsGogAF7@e)N7)D12Hmh=Ke|wm(?x?G050J_3xQsj>Sg zdFA6mA$siBXmV`v?BEHHhN<)ELLqtX+L6$?x_HEgiB_3t&!^h+(PX~o=JC_9xEYH> zT!T)rJ_aF;6B7Dsqj1Rl_cf?`3sRy2Xc*oWPXg`P7HIB`$nj)AozSIU)d+!laS>=J zQ9p@{&L)U%%4}o!<%m?1?S0M(U9P9MN+77zO}JjPWf$yd#Q38U*^YOyfX)sReObcR zu&QkyDD|*)txna1>y9mxQG(8n81{f?=j@gpMyLvV>~f@0BlzgUC_?ycS=m`^94QUZ z*CjYyOiY)6>o@7}@PgeOzw&3P>z`5l$a906E%qym&fEbf8Zm6cDvA;PPuXNt{6cBy z=%`wZqdBE2h|cg@U^1in-#cEKlaj@g#dZ2^S#gfNrq`V)X8hzqs_;3r#r!YhqGAbDDIsQZAN(AG$|Sk`n-FMvzY~zpA!piIu$TogfND!zTxb{v|^?> z=s~uEY)-OO&c3^**owF(*&4FFTabOtnO04-n^=yU!1JLiA~6EO7=NtSLPLK65d*5ZOD$v zr*WIJ+!e*z#DZiU$e3K~XPn)?tXPLQ=%dL5>qj^zVUDwK5z6E$W@_-;gZMTeM}R+t zqvNz=J4rf)MaWN%uy-coRrex46H)xd`w8{-yhbg)B9`|^Bi!?=%mg1 zynEy)W*lWVp%;5gi~)i^&?Kb>D0%Z`Xxu%N2)K&`fTP@1ltp`CGMQi z7QTAAFk=kn2VCa91mNzw8-qh%pxwDR5ALjwk zwYHT@+6&^J6g|Oy&>GC4vvdj?=K=HsSzQ~ayM0>hysquhE@=V%ciQ4x)#{v+)oQio Y)_3Tu!*Ix){hLl#LZ{gP?Be$S05^D02mk;8 diff --git a/showdef b/showdef index f5fd9a8471482e945d275319e4740da9a07a053f..b8912125a0cc6b1d7322b4e8f0651f41ece55412 100755 GIT binary patch delta 1633 zcmY+De{54#6vyv<_jSDc+I0(?YqvO3Gf<|HZkdxAofctP)nF!b11UsI*=%)j6A@>` zbqRlHDH?$#H$!xg1tl)hh5hlEfYhI~DBA=@)VGK+#1W@~XyOu0>bXD4O8;R~W6K7;3(A5YVX*^yi5KT) z-XG3p0gi1r5Oq6eE(~O|@ut~ee3o5xY2|yb9J$XqvrTR$nr7LQhCMr)ldm-=vDKW^ z8g0CW{qYX*u>A>Q;5PAYok)O@ z-TQduD?qi~F=STo-Ri3Z{{k5+VWvh-{RUufi*}Lbop+Xj{=C+bG0`12B=l9FCLPHo>VIs z>*U4jlR^p(u$rfb*#xA=!m7EH?8r42R#X&0<`cYPOU(hP+^belet;ixi#oDPRBcrn z$n4}*+xu1ase{)C^{2@Juey~_>LrnvYb_?#C!>fBP=jrwE({+Wd~!x#I-+P+z@ z!?9^fB2!@)DMH5OLWC~jX?oOwkOzeEG{SVqKxivaJZ)gA0g*v5rmt4z0xzb=t`i@o z@7;#b?LuHFruWt$)F^@grl%n7ArYi7{lbAtm0TLr7HA~9vIjf$RWX~Aw>?#KU#r3u>^x_! zz;?jo@b{Fg`%1A^_Cf?$6j)UOunUy*pHVEzN}|B}fPKc2J>cap$5t>jdZr6U}aFqF;({GNAHo#qmJMCTw*9edD3T=0fyR?W$ zs|1U<-xg7~V4I2#^4ot@X0AipHLf@y28U@LUQ+e-Nof(R z37yLH4MOP~gw9xNyY*|AsRx@zf%uLq?hTw^mzn!l;!iS!gV?y4N}~XK|Z#&ys@WCSGGb?=RR_^FP33XYv35 delta 1634 zcmY+Ce@t6d6vyv<_m#c-D22e*bp)3#Oob&1%W%|~X~`t1KjvomHNuEIK;(}%jk20419iOWP*G=GVu%{iY|%s#m(+9ayM?ZQywh_& z=X}ri-FM@Ob@9Zy@zq0x@ipP6i^(|oZRhz^>awd268y!gZ%y1ge)69CO7zhNZ{5`G`5)rzB_R@#_1 z97I3lDHXw37>66jq!hfs4s72iW}!X0Pc3&OThq&>6_rJZ*@zQe<)<9w9u-0PA$-X$ z^~!EJ)vYv$8OEtY{i^%oX=fUy{xT8Z)LnQ|FUr33YI#ziLngNU{arl^6>-qGG@Ps;Ca@Rh}O>d)-!GDM!rh*JEC{hY*Htzvt}2 ztb%UQ9np_?*8>|tHqY7hD~hcb1#Q5}fNj@-eaD%RW@TamSrxEfkbTQp`Il<0O4K|9 ztOnR&7qD+Q+x>-NHR5k%ZNQ4NfX#8%|G8pqV(?jDeZVduyUN+w8O8dBi_rFn7Dc%P<)1AN zO;f%L7CBp!l&~4_vK?=!%~@zlxyRx>RF)0enFj4lgLbAtJJX=;r{NWccBVsn*&!~@ zG-ziUw83D`HSj{u;bA1+3&N9-Sruu$_AA0s;eTE)ijD^0Hp8v<{n8AE0X`=#h6Uneis)^D%-hR%OFc^mbTl8W+0rx^tzg_9CIv! zHK}vQ)NMjjw+T&K4ITQ;1@5J$v2AA9*dd;*bG5MrV}tc^o$ClKIY+7a*raK^palwy u$Z^wn&=@wn=0Dozf_Y<&6Is5IZ*?@dX0Ff%>;5~lDot8zb(LkEDE}Wy)@k_w diff --git a/src/lib/system/linux/clang/Console.Mod b/src/lib/system/linux/clang/Console.Mod index e523ef7b..9b6b6611 100644 --- a/src/lib/system/linux/clang/Console.Mod +++ b/src/lib/system/linux/clang/Console.Mod @@ -7,6 +7,10 @@ MODULE Console; (* J. Templ, 29-June-96 *) VAR line: ARRAY 128 OF CHAR; pos: INTEGER; + (* for read(), write() *) + PROCEDURE -includeUnistd() + "#include "; + PROCEDURE -Write(adr, n: LONGINT) "write(1/*stdout*/, adr, n)"; diff --git a/src/lib/system/linux/clang/x86_64/Unix.Mod b/src/lib/system/linux/clang/x86_64/Unix.Mod index 7dfde70d..2e3099ce 100644 --- a/src/lib/system/linux/clang/x86_64/Unix.Mod +++ b/src/lib/system/linux/clang/x86_64/Unix.Mod @@ -313,6 +313,14 @@ from man gettimeofday PROCEDURE -includeErrno() "#include "; + (* for read(), write() *) + PROCEDURE -includeUnistd() + "#include "; + + (* for system() *) + PROCEDURE -includeStdlib() + "#include "; + PROCEDURE -err(): LONGINT "errno"; diff --git a/voc b/voc index 9986ddb20ed214b5db77e1a3ff72ac05bb12f8af..675d9ee513e6424d707a4e82ff97bddacb103fcc 100755 GIT binary patch delta 1730 zcmY+ET})I*6vtH$6|iiShJ@~xutb^?qXwgK zo7i>*l#i&HG-=exQ%h>Gl&+MvY^=#rU#e}b&|YGj_JKs2G^PZaex5UT7PdDzJA3AL z&VT+hcXF3!_Ak%uAHUe}gg>;YqrZeK#&0`GA}s)a@$vW7txjBT@TKSYKcR94<_3ZV1;Y({lDboK;6=X#*cH)B!baIkU}^h z7{msMGzcd|I)nznA#?~Aggcf9dJ0!)v-q{i>(ews4r-78Z4sV;*B32p^~MTYGtw65 zIkBtUD4>I)q1|lThy%i4c7!*6rv~ z{P4cDI;#?aa9~}p%lRZ`@5rpjeKH-gU6-XsH%ZqkQKU?iR2V*gnO)TDdh|3-CR?Oj z`KT0VbYDh+3Y+=e=>_YVNq8NqwTK~5+tE7QY&&|WM%Y0wHn)BtrC^iD6h<+TqPLUVwuId(hgsy+!Ezwih zwGEFdD(jL<%cDANXJNNI{7CG4rSX-MJ``;xyu_bkr%huwjVy3RhF>H2Xv;1_=I8>y z%?QZ_VY)ylzu_e0C{VhfQN9s~ofwqw-I7dvl;2q+1(bKg+ukV!iYQ-sijXRqn3Ugx zvb{2iQ~rRFjY@8o@*pf^uPSQy7_||Lv!Ws8Omm|%Yu%ZZ>dZ=YW~Dl_Qk_|;&a6~t zR;n}0c2;6Lvr?T|cPU|;!3%?J&>uK!98?B3yT#12#@Sp}40IIf_nh^fSF~7M+GF(R zR0FHo0BoMKtLGG}7G*WSnt=U`Y>uO@%*$J_!4%i^DFOc2m%~CIpLyv=e8wF9V0#7tscy3B@27UWQGenM%puOpp_3%6uvnJ ziGw1Y!aOPd$NC~S*B~w;Wv6V}9$R+GmJQpo)3$6oG2GY~CqWZ*326?RI1n1}dhm4P z%66M~TGrWZJsFR81H4r#eRmUw58*7P?Lia!$z;&PVNGZ@xqqoM`#+sK(L?n{>`;B? z+j%^f>RQ$G740SQ=PQ|AOso1b*4dHSPm9JV)$2dkwd0P8Y%P3I*PhX?XgT`tj?(N; lwNiUzSz2*4uQM~2*O@i+25pJG`zWikls3mQ^Rs`s^&eqLbn^fJ delta 1733 zcmY+Ee@q-j6vt4wB<-iq){3g zV$Y=N^+0~5H4_uln(`NtAWbEEY6N1N7X4?bily47CTe0*OqxbQjjj6L?%Z*`S6`6&J)`b(tr}w+c59OM;o8$7#K4y&Bip!(08kZ*kTzELpzj-34qLuyJI|ob?S!woT;J z0ILF4y#d%w&OUx$vMMoytP$9+$bRH(VNkM0(fkUq4q&I#fGu%$e?YPhv5M>@u+1J| zKX4XEu#@70-N1%{T|xFeXJ$;!4T~3oz%Byoz(@HVXW=uFT@*{mW`Hrg)*GCSMkSjO zy|qRx!ma}xN4UsY{5=V=xD1u6aPp_&QP4#~`6bx;O}J0Gs8aqE5H~R>uiczT0+fH7 zBn6ar7ZOtJ2ozDiR!YcDCow6%0d2KP1m)%_znL6bpgaT{xw|e>!ft_=YJ3Z9&VG4U z8pPr123%Wvo5p65hu& zsw!g#i9!)tm?p&kUf(31gz$TERV`PwN1u#1(3K6lvY)%M?ZogQoFyR>gb8U1nYa+z zqWkehn@!mM(rI(2dNLmD05)IZ*zP7u0O2)E+e0Rf6Dwrm;_4J2eM0Ek6G98o);hy# zt;_r{kLOZN-TBQ0b&vSxaAp_#UEO4L9?2Y_MH7^2b+ej!LaE4B!{;>hMfHN3tNo>v nWG|~Z?#i;%tY}_mrj^&3HS!KUU`^c1>MWs6R_4a+-@g7IS^Rd5 diff --git a/vocstatic.linux.clang.x86_64 b/vocstatic.linux.clang.x86_64 index 9986ddb20ed214b5db77e1a3ff72ac05bb12f8af..675d9ee513e6424d707a4e82ff97bddacb103fcc 100755 GIT binary patch delta 1730 zcmY+ET})I*6vtH$6|iiShJ@~xutb^?qXwgK zo7i>*l#i&HG-=exQ%h>Gl&+MvY^=#rU#e}b&|YGj_JKs2G^PZaex5UT7PdDzJA3AL z&VT+hcXF3!_Ak%uAHUe}gg>;YqrZeK#&0`GA}s)a@$vW7txjBT@TKSYKcR94<_3ZV1;Y({lDboK;6=X#*cH)B!baIkU}^h z7{msMGzcd|I)nznA#?~Aggcf9dJ0!)v-q{i>(ews4r-78Z4sV;*B32p^~MTYGtw65 zIkBtUD4>I)q1|lThy%i4c7!*6rv~ z{P4cDI;#?aa9~}p%lRZ`@5rpjeKH-gU6-XsH%ZqkQKU?iR2V*gnO)TDdh|3-CR?Oj z`KT0VbYDh+3Y+=e=>_YVNq8NqwTK~5+tE7QY&&|WM%Y0wHn)BtrC^iD6h<+TqPLUVwuId(hgsy+!Ezwih zwGEFdD(jL<%cDANXJNNI{7CG4rSX-MJ``;xyu_bkr%huwjVy3RhF>H2Xv;1_=I8>y z%?QZ_VY)ylzu_e0C{VhfQN9s~ofwqw-I7dvl;2q+1(bKg+ukV!iYQ-sijXRqn3Ugx zvb{2iQ~rRFjY@8o@*pf^uPSQy7_||Lv!Ws8Omm|%Yu%ZZ>dZ=YW~Dl_Qk_|;&a6~t zR;n}0c2;6Lvr?T|cPU|;!3%?J&>uK!98?B3yT#12#@Sp}40IIf_nh^fSF~7M+GF(R zR0FHo0BoMKtLGG}7G*WSnt=U`Y>uO@%*$J_!4%i^DFOc2m%~CIpLyv=e8wF9V0#7tscy3B@27UWQGenM%puOpp_3%6uvnJ ziGw1Y!aOPd$NC~S*B~w;Wv6V}9$R+GmJQpo)3$6oG2GY~CqWZ*326?RI1n1}dhm4P z%66M~TGrWZJsFR81H4r#eRmUw58*7P?Lia!$z;&PVNGZ@xqqoM`#+sK(L?n{>`;B? z+j%^f>RQ$G740SQ=PQ|AOso1b*4dHSPm9JV)$2dkwd0P8Y%P3I*PhX?XgT`tj?(N; lwNiUzSz2*4uQM~2*O@i+25pJG`zWikls3mQ^Rs`s^&eqLbn^fJ delta 1733 zcmY+Ee@q-j6vt4wB<-iq){3g zV$Y=N^+0~5H4_uln(`NtAWbEEY6N1N7X4?bily47CTe0*OqxbQjjj6L?%Z*`S6`6&J)`b(tr}w+c59OM;o8$7#K4y&Bip!(08kZ*kTzELpzj-34qLuyJI|ob?S!woT;J z0ILF4y#d%w&OUx$vMMoytP$9+$bRH(VNkM0(fkUq4q&I#fGu%$e?YPhv5M>@u+1J| zKX4XEu#@70-N1%{T|xFeXJ$;!4T~3oz%Byoz(@HVXW=uFT@*{mW`Hrg)*GCSMkSjO zy|qRx!ma}xN4UsY{5=V=xD1u6aPp_&QP4#~`6bx;O}J0Gs8aqE5H~R>uiczT0+fH7 zBn6ar7ZOtJ2ozDiR!YcDCow6%0d2KP1m)%_znL6bpgaT{xw|e>!ft_=YJ3Z9&VG4U z8pPr123%Wvo5p65hu& zsw!g#i9!)tm?p&kUf(31gz$TERV`PwN1u#1(3K6lvY)%M?ZogQoFyR>gb8U1nYa+z zqWkehn@!mM(rI(2dNLmD05)IZ*zP7u0O2)E+e0Rf6Dwrm;_4J2eM0Ek6G98o);hy# zt;_r{kLOZN-TBQ0b&vSxaAp_#UEO4L9?2Y_MH7^2b+ej!LaE4B!{;>hMfHN3tNo>v nWG|~Z?#i;%tY}_mrj^&3HS!KUU`^c1>MWs6R_4a+-@g7IS^Rd5