Commented JK's debugging code.
--- a/compiler/PPCContext.st Sat Nov 08 01:03:21 2014 +0000
+++ b/compiler/PPCContext.st Sat Nov 08 02:08:45 2014 +0000
@@ -7,6 +7,7 @@
category:'PetitCompiler-Context'
!
+
!PPCContext class methodsFor:'as yet unclassified'!
new
@@ -234,19 +235,23 @@
!
remember
- | memento |
+ | memento |
"
- ^ position
+ ^ position
"
- memento := PPCContextMemento new
- position: position;
- yourself.
-
- self rememberProperties: memento.
- "JK: Just while developing"
- rc := rc + 1.
- (rc > ((self size + 1)* 1000*1000)) ifTrue: [ self error: 'Hey, this is not normal, is it?' ].
- ^ memento
+ memento := PPCContextMemento new
+ position: position;
+ yourself.
+
+ self rememberProperties: memento.
+ "JK: Just while developing"
+ "
+ rc := rc + 1.
+ (rc > ((self size + 1)* 1000*1000)) ifTrue: [ self error: 'Hey, this is not normal, is it?' ].
+ "
+ ^ memento
+
+ "Modified (comment): / 08-11-2014 / 02:08:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
rememberProperties: aPPContextMemento
@@ -281,3 +286,10 @@
]
! !
+!PPCContext class methodsFor:'documentation'!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+! !
+