--- a/ConstNode.st Wed May 13 19:58:56 1998 +0200
+++ b/ConstNode.st Thu May 14 19:24:30 1998 +0200
@@ -10,8 +10,6 @@
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'
@@ -131,6 +129,11 @@
!ConstantNode methodsFor:'accessing'!
+lineNr:ignoredLineNumber
+
+ "Created: / 14.5.1998 / 19:24:17 / cg"
+!
+
type:t value:val
type := t.
value := val
@@ -285,5 +288,5 @@
!ConstantNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Attic/ConstNode.st,v 1.24 1997-09-20 21:03:30 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/ConstNode.st,v 1.25 1998-05-14 17:24:30 cg Exp $'
! !
--- a/ConstantNode.st Wed May 13 19:58:56 1998 +0200
+++ b/ConstantNode.st Thu May 14 19:24:30 1998 +0200
@@ -10,8 +10,6 @@
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'
@@ -131,6 +129,11 @@
!ConstantNode methodsFor:'accessing'!
+lineNr:ignoredLineNumber
+
+ "Created: / 14.5.1998 / 19:24:17 / cg"
+!
+
type:t value:val
type := t.
value := val
@@ -285,5 +288,5 @@
!ConstantNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.24 1997-09-20 21:03:30 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.25 1998-05-14 17:24:30 cg Exp $'
! !