AbstractLauncherApplication.st
changeset 11813 4b506523f3bc
parent 11684 f405935b2a6e
child 11817 76227c9e12bc
--- a/AbstractLauncherApplication.st	Wed Sep 26 12:41:23 2012 +0200
+++ b/AbstractLauncherApplication.st	Wed Sep 26 14:17:39 2012 +0200
@@ -3031,7 +3031,7 @@
         fullDebugSupport := ObjectMemory fullSingleStepSupport.
     ] ifFalse:[
         justInTimeCompilation := false.
-        fullDebugSupport := (Compiler lineNumberInfo == #full) asValue.
+        fullDebugSupport := (ParserFlags fullLineNumberInfo) asValue.
     ].
     justInTimeCompilation := justInTimeCompilation asValue.
     fullDebugSupport := fullDebugSupport asValue.
@@ -3257,11 +3257,7 @@
         Compiler allowReservedWordsAsSelectors:allowReservedWordsAsSelectors value.
 
         Compiler arraysAreImmutable:immutableArrays value.
-        fullDebugSupport value ifTrue:[
-            Compiler lineNumberInfo:#full.
-        ] ifFalse:[
-            Compiler lineNumberInfo:true
-        ].
+        ParserFlags lineNumberInfo:(fullDebugSupport value ifTrue:[#full] ifFalse:[true]).
 
         ParserFlags stcCompilation:(stcCompilationOptions at:stcCompilation selectionIndex).
         Compiler foldConstants:(constantFoldingOptions at:constantFolding selectionIndex).
@@ -3282,9 +3278,10 @@
 "
     self compilerSettings
 "
-    "Modified: / 10.9.1995 / 19:19:18 / claus"
-    "Modified: / 9.9.1996 / 22:42:47 / stefan"
-    "Modified: / 5.11.1998 / 14:25:59 / cg"
+
+    "Modified: / 10-09-1995 / 19:19:18 / claus"
+    "Modified: / 09-09-1996 / 22:42:47 / stefan"
+    "Modified: / 26-09-2012 / 14:16:39 / cg"
 !
 
 displaySettings
@@ -6973,11 +6970,11 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.416 2012-07-27 07:53:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.417 2012-09-26 12:17:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.416 2012-07-27 07:53:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.417 2012-09-26 12:17:39 cg Exp $'
 !
 
 version_SVN