# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1412801780 -3600
# Node ID 74c9c229033bc6073cc721e3fbb114c8113ccee9
# Parent  e2b2ccaa4de69ebcc95dbffd3e3ad46c6915f992
Workaround to fix PPComposedTest>>testLeftRecursion - make PPStream>>size returning size of the input.

For whatever reason, in Smalltalk/X ReadStream>>size returns size remaning data, not
the size of a whole stream. This is a bug and should be fixed in Smalltalk/X libbasic. Meanwhile,
override PPStream>>size to return proper value. In Pharo, the method is not needed as the inherited
method is exactly the same.

diff -r e2b2ccaa4de6 -r 74c9c229033b PPStream.st
--- a/PPStream.st	Wed Oct 08 00:33:44 2014 +0100
+++ b/PPStream.st	Wed Oct 08 21:56:20 2014 +0100
@@ -79,6 +79,14 @@
         ^ (self peekBack = (Character codePoint: 13)) or: [ self peekBack = (Character codePoint: 10)].
 
     "Modified: / 03-10-2014 / 23:52:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+size
+    ^ readLimit
+    "DO NOT REMOVE this method event though in Pharo it is the same as
+     inherited. This is required for Smalltalk/X compatibility"
+
+    "Created: / 08-10-2014 / 12:25:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PPStream class methodsFor:'documentation'!
@@ -91,6 +99,11 @@
     ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPStream.st,v 1.4 2014-03-04 14:32:00 cg Exp $'
 !
 
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+!
+
 version_SVN
     ^ '$Id: PPStream.st,v 1.4 2014-03-04 14:32:00 cg Exp $'
 ! !