This is the mail archive of the guile@cygnus.com mailing list for the guile project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

Re: RPM for patched version of guile 1.3 with slow read fix.


Lalo Martins <lalo@webcom.com> writes:

 > On Feb 09, Harvey J. Stein decided to present us with:
 > > 
 > > I made a patch for guile 1.3 with the (1 line) slow read fix.  I
 > > packaged it as an RPM and uploaded it to vicarious-existence.mit.edu:
 > 
 > If it's an one-line patch, maybe it can be also incorporated in
 > the Debian package. Could you please post it to
 > <craig@red-bean.com>? I think he is already in this list, so he
 > will know what you're talking about.


BTW, I extracted the fix via CVS.  It looks like this is the right
thing based on the log messages & seems to work for me, but YMMV...

Anyway, here's the patch:

Index: libguile/ports.h
===================================================================
RCS file: /egcs/carton/cvsfiles/guile/guile-core/libguile/ports.h,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -r1.33 -r1.34
--- ports.h	1998/10/30 08:22:50	1.33
+++ ports.h	1998/11/05 16:02:55	1.34
@@ -93,7 +93,7 @@
 #define SCM_CRDY	(32L<<16) /* Should char-ready? return #t? */
 
 /* A mask used to clear the char-ready port flag. */
-#define SCM_CUC		0x001fffffL
+#define SCM_CUC		(~SCM_CRDY)
 
 #define SCM_PORTP(x) (SCM_TYP7(x)==scm_tc7_port)
 #define SCM_OPPORTP(x) (((0x7f | SCM_OPN) & SCM_CAR(x))==(scm_tc7_port | SCM_OPN))


Don't cut & paste it to apply - beware tabs.

Just in case, here's the patch uuencoded:

begin 644 guile-slow-read-fix.patch
M26YD97@Z(&QI8F=U:6QE+W!O<G1S+F@*/3T]/3T]/3T]/3T]/3T]/3T]/3T]
M/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]
M/0I20U,@9FEL93H@+V5G8W,O8V%R=&]N+V-V<V9I;&5S+V=U:6QE+V=U:6QE
M+6-O<F4O;&EB9W5I;&4O<&]R=',N:"QV"G)E=')I979I;F<@<F5V:7-I;VX@
M,2XS,PIR971R:65V:6YG(')E=FES:6]N(#$N,S0*9&EF9B`M=2`M<C$N,S,@
M+7(Q+C,T"BTM+2!P;W)T<RYH"3$Y.3@O,3`O,S`@,#@Z,C(Z-3`),2XS,PHK
M*RL@<&]R=',N:`DQ.3DX+S$Q+S`U(#$V.C`R.C4U"3$N,S0*0$`@+3DS+#<@
M*SDS+#<@0$`*("-D969I;F4@4T--7T-21%D)*#,R3#P\,38I("\J(%-H;W5L
M9"!C:&%R+7)E861Y/R!R971U<FX@(W0_("HO"B`*("\J($$@;6%S:R!U<V5D
M('1O(&-L96%R('1H92!C:&%R+7)E861Y('!O<G0@9FQA9RX@*B\*+2-D969I
M;F4@4T--7T-50PD),'@P,#%F9F9F9DP**R-D969I;F4@4T--7T-50PD)*'Y3
M0TU?0U)$62D*(`H@(V1E9FEN92!30TU?4$]25%`H>"D@*%-#35]465`W*'@I
M/3US8VU?=&,W7W!O<G0I"B`C9&5F:6YE(%-#35]/4%!/4E10*'@I("@H*#!X
M-V8@?"!30TU?3U!.*2`F(%-#35]#05(H>"DI/3TH<V-M7W1C-U]P;W)T('P@
*4T--7T]03BDI"@``
`
end

-- 
Harvey J. Stein
BFM Financial Research
hjstein@bfr.co.il