--- a/ParserFlags.st	Tue Sep 25 12:15:24 2012 +0200
+++ b/ParserFlags.st	Wed Sep 26 14:17:15 2012 +0200
@@ -50,7 +50,8 @@
 		warnAboutPeriodInSymbol allowPeriodInSymbol allowCaretAsBinop
 		allowUnicodeStrings allowUnicodeCharacters allowCharacterEscapes
 		allowStringEscapes allowAssignmentToBlockArgument
-		allowAssignmentToMethodArgument allowAssignmentToPoolVariable'
+		allowAssignmentToMethodArgument allowAssignmentToPoolVariable
+		lineNumberInfo'
 	classVariableNames:'WarnST80Directives WarnUnusedVars WarnUndeclared
 		WarnAboutWrongVariableNames WarnAboutBadComments
 		WarnAboutVariableNameConventions WarnSTXSpecials
@@ -87,9 +88,9 @@
 		AllowUnicodeStrings AllowUnicodeCharacters AllowCharacterEscapes
 		AllowStringEscapes AllowAssignmentToBlockArgument
 		AllowAssignmentToMethodArgument AllowAssignmentToPoolVariable
-		LibDirectory VCTop SDKTop BCCTop ForcedCompiler DefineForBorlandC
-		DefineForVisualC DefineForMSVER DefineForMSC DefineForGNUC
-		PerMethodFlags'
+		LineNumberInfo LibDirectory VCTop SDKTop BCCTop ForcedCompiler
+		DefineForBorlandC DefineForVisualC DefineForMSVER DefineForMSC
+		DefineForGNUC PerMethodFlags'
 	poolDictionaries:''
 	category:'System-Compiler'
 !
@@ -174,6 +175,12 @@
     "
 !
 
+fullLineNumberInfo
+    ^ (self lineNumberInfo == #full)
+
+    "Created: / 26-09-2012 / 14:16:09 / cg"
+!
+
 implicitSelfSends
     "return true if undefined variables with
      lowercase first character are to be turned
@@ -193,6 +200,18 @@
     "
 !
 
+lineNumberInfo
+    ^ LineNumberInfo
+
+    "Created: / 26-09-2012 / 13:27:34 / cg"
+!
+
+lineNumberInfo:aSymbol
+    LineNumberInfo := aSymbol.
+
+    "Created: / 26-09-2012 / 13:27:54 / cg"
+!
+
 stringsAreImmutable
     "return true if strings are immutable literals"
 
@@ -1603,6 +1622,24 @@
 
 allowAssignmentToPoolVariable:something
     allowAssignmentToPoolVariable := something.
+!
+
+fullLineNumberInfo
+    ^ (self lineNumberInfo == #full)
+
+    "Created: / 26-09-2012 / 14:13:42 / cg"
+!
+
+lineNumberInfo
+    ^ lineNumberInfo
+
+    "Created: / 26-09-2012 / 13:27:08 / cg"
+!
+
+lineNumberInfo:something
+    lineNumberInfo := something.
+
+    "Created: / 26-09-2012 / 13:27:17 / cg"
 ! !
 
 !ParserFlags methodsFor:'accessing-compilation control'!
@@ -2433,11 +2470,11 @@
 !ParserFlags class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.89 2012-07-20 11:12:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.90 2012-09-26 12:17:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.89 2012-07-20 11:12:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.90 2012-09-26 12:17:15 cg Exp $'
 ! !
 
 ParserFlags initialize!