# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 874789413 -7200
# Node ID 2748896a66c82992e5a5a53d1bf7f626c84c8e1a
# Parent  8a0dfadd41f5bb49fae9dfd9bb2994d832eb616e
comments

diff -r 8a0dfadd41f5 -r 2748896a66c8 ConstNode.st
--- a/ConstNode.st	Sat Sep 20 22:54:35 1997 +0200
+++ b/ConstNode.st	Sat Sep 20 23:03:33 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.1.10 on 20-sep-1997 at 11:49:43 pm'                !
+
 PrimaryNode subclass:#ConstantNode
 	instanceVariableNames:''
 	classVariableNames:'TrueNode FalseNode NilNode Const0Node Const1Node Float0Node'
@@ -231,7 +233,11 @@
 !ConstantNode methodsFor:'printing'!
 
 displayString
+    "return a printed representation of the receiver for displaying"
+
     ^ value displayString
+
+    "Modified: 20.9.1997 / 11:39:07 / cg"
 !
 
 printOn:aStream indent:i
@@ -279,5 +285,5 @@
 !ConstantNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ConstNode.st,v 1.23 1997-06-19 14:57:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ConstNode.st,v 1.24 1997-09-20 21:03:30 cg Exp $'
 ! !
diff -r 8a0dfadd41f5 -r 2748896a66c8 ConstantNode.st
--- a/ConstantNode.st	Sat Sep 20 22:54:35 1997 +0200
+++ b/ConstantNode.st	Sat Sep 20 23:03:33 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.1.10 on 20-sep-1997 at 11:49:43 pm'                !
+
 PrimaryNode subclass:#ConstantNode
 	instanceVariableNames:''
 	classVariableNames:'TrueNode FalseNode NilNode Const0Node Const1Node Float0Node'
@@ -231,7 +233,11 @@
 !ConstantNode methodsFor:'printing'!
 
 displayString
+    "return a printed representation of the receiver for displaying"
+
     ^ value displayString
+
+    "Modified: 20.9.1997 / 11:39:07 / cg"
 !
 
 printOn:aStream indent:i
@@ -279,5 +285,5 @@
 !ConstantNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.23 1997-06-19 14:57:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.24 1997-09-20 21:03:30 cg Exp $'
 ! !
diff -r 8a0dfadd41f5 -r 2748896a66c8 Make.proto
--- a/Make.proto	Sat Sep 20 22:54:35 1997 +0200
+++ b/Make.proto	Sat Sep 20 23:03:33 1997 +0200
@@ -1,4 +1,4 @@
-# $Header: /cvs/stx/stx/libcomp/Make.proto,v 1.53 1997-07-06 11:28:50 cg Exp $
+# $Header: /cvs/stx/stx/libcomp/Make.proto,v 1.54 1997-09-20 21:03:31 cg Exp $
 #
 # -------------- no need to change anything below ----------
 
@@ -9,7 +9,7 @@
 
 STCOPT=$(LIBCOMP_STCOPT)
 ZFLAG=-varPrefix=$(LIBNAME)
-STCLOCALOPT='-package=compiler-classes-(stx:libcomp)' $(COMMONSYMBOLS) $(SEPINITCODE) $(ZFLAG)
+STCLOCALOPT='-package=stx:libcomp' $(COMMONSYMBOLS) $(SEPINITCODE) $(ZFLAG)
 LINKOBJRULE=$(SEPINITLINKOBJRULE)
 
 LOCALDEFS=$(DLDEFS)
diff -r 8a0dfadd41f5 -r 2748896a66c8 PrimaryNd.st
--- a/PrimaryNd.st	Sat Sep 20 22:54:35 1997 +0200
+++ b/PrimaryNd.st	Sat Sep 20 23:03:33 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.1.10 on 20-sep-1997 at 11:48:45 pm'                !
+
 ParseNode subclass:#PrimaryNode
 	instanceVariableNames:'value'
 	classVariableNames:''
@@ -77,7 +79,11 @@
 !PrimaryNode methodsFor:'printing'!
 
 displayString
+    "return a string for display in inspectors etc."
+
     ^ self subclassResponsibility
+
+    "Modified: 20.9.1997 / 11:41:19 / cg"
 !
 
 printOn:aStream indent:i
@@ -95,5 +101,5 @@
 !PrimaryNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/PrimaryNd.st,v 1.16 1996-04-25 17:08:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/PrimaryNd.st,v 1.17 1997-09-20 21:03:31 cg Exp $'
 ! !
diff -r 8a0dfadd41f5 -r 2748896a66c8 PrimaryNode.st
--- a/PrimaryNode.st	Sat Sep 20 22:54:35 1997 +0200
+++ b/PrimaryNode.st	Sat Sep 20 23:03:33 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.1.10 on 20-sep-1997 at 11:48:45 pm'                !
+
 ParseNode subclass:#PrimaryNode
 	instanceVariableNames:'value'
 	classVariableNames:''
@@ -77,7 +79,11 @@
 !PrimaryNode methodsFor:'printing'!
 
 displayString
+    "return a string for display in inspectors etc."
+
     ^ self subclassResponsibility
+
+    "Modified: 20.9.1997 / 11:41:19 / cg"
 !
 
 printOn:aStream indent:i
@@ -95,5 +101,5 @@
 !PrimaryNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.16 1996-04-25 17:08:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.17 1997-09-20 21:03:31 cg Exp $'
 ! !
diff -r 8a0dfadd41f5 -r 2748896a66c8 SelfNode.st
--- a/SelfNode.st	Sat Sep 20 22:54:35 1997 +0200
+++ b/SelfNode.st	Sat Sep 20 23:03:33 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.1.10 on 20-sep-1997 at 11:48:04 pm'                !
+
 PrimaryNode subclass:#SelfNode
 	instanceVariableNames:''
 	classVariableNames:''
@@ -99,7 +101,11 @@
 !SelfNode methodsFor:'printing'!
 
 displayString
+    "return a string for display in inspectors etc."
+
     ^ 'InterpreterVariable(self)'
+
+    "Modified: 20.9.1997 / 11:41:41 / cg"
 !
 
 printOn:aStream indent:i
@@ -109,5 +115,5 @@
 !SelfNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/SelfNode.st,v 1.12 1997-06-19 16:38:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/SelfNode.st,v 1.13 1997-09-20 21:03:32 cg Exp $'
 ! !
diff -r 8a0dfadd41f5 -r 2748896a66c8 VarNode.st
--- a/VarNode.st	Sat Sep 20 22:54:35 1997 +0200
+++ b/VarNode.st	Sat Sep 20 23:03:33 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.1.10 on 20-sep-1997 at 11:47:04 pm'                !
+
 PrimaryNode subclass:#VariableNode
 	instanceVariableNames:'name token selfValue selfClass index block'
 	classVariableNames:''
@@ -566,7 +568,11 @@
 !VariableNode methodsFor:'printing'!
 
 displayString
+    "return a string for display in inspectors etc."
+
     ^ 'InterpreterVariable(' , self printString , ')'
+
+    "Modified: 20.9.1997 / 11:42:07 / cg"
 !
 
 printOn:aStream indent:i
@@ -653,5 +659,5 @@
 !VariableNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.32 1997-07-02 16:54:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.33 1997-09-20 21:03:33 cg Exp $'
 ! !
diff -r 8a0dfadd41f5 -r 2748896a66c8 VariableNode.st
--- a/VariableNode.st	Sat Sep 20 22:54:35 1997 +0200
+++ b/VariableNode.st	Sat Sep 20 23:03:33 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.1.10 on 20-sep-1997 at 11:47:04 pm'                !
+
 PrimaryNode subclass:#VariableNode
 	instanceVariableNames:'name token selfValue selfClass index block'
 	classVariableNames:''
@@ -566,7 +568,11 @@
 !VariableNode methodsFor:'printing'!
 
 displayString
+    "return a string for display in inspectors etc."
+
     ^ 'InterpreterVariable(' , self printString , ')'
+
+    "Modified: 20.9.1997 / 11:42:07 / cg"
 !
 
 printOn:aStream indent:i
@@ -653,5 +659,5 @@
 !VariableNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.32 1997-07-02 16:54:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.33 1997-09-20 21:03:33 cg Exp $'
 ! !