--- a/ParserFlags.st	Mon Mar 06 10:00:27 2006 +0100
+++ b/ParserFlags.st	Wed Mar 08 13:10:42 2006 +0100
@@ -32,10 +32,10 @@
 		allowLazyValueExtension allowFixedPointLiterals
 		allowExtendedSTXSyntax allowVisualAgeESSymbolLiterals
 		allowExtensionsToPrivateClasses allowSqueakPrimitives
-		allowVisualAgePrimitives arraysAreImmutable stringsAreImmutable
-		implicitSelfSends stcKeepCIntermediate stcKeepOIntermediate
-		stcKeepSTIntermediate stcModulePath stcCompilation
-		stcCompilationIncludes stcCompilationDefines
+		allowVisualAgePrimitives allowSTVPrimitives arraysAreImmutable
+		stringsAreImmutable implicitSelfSends stcKeepCIntermediate
+		stcKeepOIntermediate stcKeepSTIntermediate stcModulePath
+		stcCompilation stcCompilationIncludes stcCompilationDefines
 		stcCompilationOptions stcPath ccCompilationOptions ccPath
 		linkArgs linkCommand libPath searchedLibraries'
 	classVariableNames:'WarnST80Directives WarnUnusedVars WarnUndeclared
@@ -54,12 +54,13 @@
 		AllowExtendedBinarySelectors AllowExtendedSTXSyntax
 		AllowFixedPointLiterals AllowLiteralNameSpaceSymbols
 		AllowVisualAgeESSymbolLiterals AllowExtensionsToPrivateClasses
-		AllowSqueakPrimitives AllowVisualAgePrimitives ArraysAreImmutable
-		StringsAreImmutable ImplicitSelfSends STCModulePath
-		STCKeepCIntermediate STCKeepOIntermediate STCKeepSTIntermediate
-		STCCompilation STCCompilationIncludes STCCompilationDefines
-		STCCompilationOptions STCPath CCCompilationOptions CCPath
-		LinkArgs LinkCommand LibPath SearchedLibraries'
+		AllowSqueakPrimitives AllowVisualAgePrimitives AllowSTVPrimitives
+		ArraysAreImmutable StringsAreImmutable ImplicitSelfSends
+		STCModulePath STCKeepCIntermediate STCKeepOIntermediate
+		STCKeepSTIntermediate STCCompilation STCCompilationIncludes
+		STCCompilationDefines STCCompilationOptions STCPath
+		CCCompilationOptions CCPath LinkArgs LinkCommand LibPath
+		SearchedLibraries'
 	poolDictionaries:''
 	category:'System-Compiler'
 !
@@ -481,6 +482,18 @@
     "
 !
 
+allowSTVPrimitives
+    "return true, if support for ST/V primitives is enabled."
+
+    ^ AllowSTVPrimitives
+!
+
+allowSTVPrimitives:aBoolean
+    "this allows turning on/off support for ST/V primitives"
+
+    AllowSTVPrimitives := aBoolean
+!
+
 allowSqueakExtensions
     "return true, if support for squeak extensions
         computed arrays { .., }
@@ -817,6 +830,7 @@
     AllowExtensionsToPrivateClasses := true.
     AllowVisualAgePrimitives := false.
     AllowSqueakPrimitives := false.
+    AllowSTVPrimitives := false.
 
     ArraysAreImmutable := false.                "/ no longer care for ST-80 compatibility
     StringsAreImmutable := false.               "/ no longer care for ST-80 compatibility
@@ -1386,6 +1400,7 @@
     allowExtensionsToPrivateClasses := AllowExtensionsToPrivateClasses.
     allowVisualAgePrimitives := AllowVisualAgePrimitives.
     allowSqueakPrimitives := AllowSqueakPrimitives.
+    allowSTVPrimitives := AllowSTVPrimitives.
 
     arraysAreImmutable := ArraysAreImmutable ? true.
     stringsAreImmutable := StringsAreImmutable ? true.
@@ -1416,7 +1431,7 @@
 !ParserFlags class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.12 2006-02-21 16:36:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.13 2006-03-08 12:10:42 cg Exp $'
 ! !
 
 ParserFlags initialize!