--- a/ParserFlags.st Tue Jul 09 21:09:59 2013 +0200
+++ b/ParserFlags.st Tue Jul 09 21:14:20 2013 +0200
@@ -51,7 +51,7 @@
allowUnicodeStrings allowUnicodeCharacters allowCharacterEscapes
allowStringEscapes allowAssignmentToBlockArgument
allowAssignmentToMethodArgument allowAssignmentToPoolVariable
- lineNumberInfo allowSTXDelimiterComments byteArraysAreImmutable'
+ lineNumberInfo allowSTXDelimiterComments'
classVariableNames:'WarnST80Directives WarnUnusedVars WarnUndeclared
WarnAboutWrongVariableNames WarnAboutBadComments
WarnAboutVariableNameConventions WarnSTXSpecials
@@ -159,13 +159,13 @@
!
arraysAreImmutable
- "return true if arrays are immutable literals"
+ "return true if arrays and byteArrays are compiled as immutable literals"
^ ArraysAreImmutable
!
arraysAreImmutable:aBoolean
- "turn on/off immutable array literals - default is false for ST-80 compatibilty."
+ "turn on/off immutable array and byteArrays literals - default is false for ST-80 compatibilty."
ArraysAreImmutable := aBoolean.
@@ -177,27 +177,6 @@
"
!
-byteArraysAreImmutable
- "return true if bytearrays are immutable literals"
-
- ^ ByteArraysAreImmutable
-
- "Created: / 3.8.1998 / 14:53:25 / cg"
-!
-
-byteArraysAreImmutable:aBoolean
- "turn on/off immutable byte array literals - default is false for ST-80 compatibilty."
-
- ByteArraysAreImmutable := aBoolean.
-
- "
- can be added to your private.rc file:
-
- ParserFlags byteArraysAreImmutable:true
- ParserFlags byteArraysAreImmutable:false
- "
-!
-
fullLineNumberInfo
^ (self lineNumberInfo == #full)
@@ -1518,7 +1497,6 @@
AllowAssignmentToPoolVariable := false.
"/ AllowAssignmentToPoolVariable := true.
- ByteArraysAreImmutable := false. "/ still care for ST-80 compatibility
ArraysAreImmutable := false. "/ still care for ST-80 compatibility
StringsAreImmutable := false. "/ still care for ST-80 compatibility
ImplicitSelfSends := false.
@@ -1751,14 +1729,6 @@
arraysAreImmutable := aBoolean.
!
-byteArraysAreImmutable
- ^ byteArraysAreImmutable
-!
-
-byteArraysAreImmutable:aBoolean
- byteArraysAreImmutable := aBoolean.
-!
-
flattenVisualWorksNamespaces
^ true
!
@@ -2541,7 +2511,6 @@
allowAssignmentToPoolVariable := AllowAssignmentToPoolVariable.
arraysAreImmutable := ArraysAreImmutable ? true.
- byteArraysAreImmutable := ByteArraysAreImmutable ? true.
stringsAreImmutable := StringsAreImmutable ? true.
implicitSelfSends := ImplicitSelfSends ? false.
lineNumberInfo := LineNumberInfo ? false.
@@ -2573,11 +2542,11 @@
!ParserFlags class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.108 2013-07-09 19:09:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.109 2013-07-09 19:14:20 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.108 2013-07-09 19:09:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.109 2013-07-09 19:14:20 cg Exp $'
! !