Smalltalk.st
changeset 20876 9849da11291a
parent 20875 22d2a9136e61
child 20877 6610823dab1c
equal deleted inserted replaced
20875:22d2a9136e61 20876:9849da11291a
   741     (idx := CommandLineArguments indexOf:'--verboseStartup') ~~ 0 ifTrue:[
   741     (idx := CommandLineArguments indexOf:'--verboseStartup') ~~ 0 ifTrue:[
   742         VerboseLoading := true.
   742         VerboseLoading := true.
   743         VerboseStartup := true.
   743         VerboseStartup := true.
   744         CommandLineArguments removeIndex:idx
   744         CommandLineArguments removeIndex:idx
   745     ].
   745     ].
   746     (idx := CommandLineArguments indexOf:'--verbose') ~~ 0 ifTrue:[
       
   747         VerboseLoading := true.
       
   748         VerboseStartup := true.
       
   749         CommandLineArguments removeIndex:idx.
       
   750         Logger notNil ifTrue:[
       
   751             Logger loggingThreshold: Logger severityALL.
       
   752         ].    
       
   753     ].
       
   754 
   746 
   755     "/ reinterpret those, in case given after the VM options.
   747     "/ reinterpret those, in case given after the VM options.
   756     (idx := CommandLineArguments indexOf:'--debugPrint') ~~ 0 ifTrue:[
   748     (idx := CommandLineArguments indexOf:'--debugPrint') ~~ 0 ifTrue:[
   757         ObjectMemory debugPrinting:true.
   749         ObjectMemory debugPrinting:true.
   758         CommandLineArguments removeIndex:idx
   750         CommandLineArguments removeIndex:idx
   764 
   756 
   765     (idx := CommandLineArguments indexOf:'--verbose') ~~ 0 ifTrue:[
   757     (idx := CommandLineArguments indexOf:'--verbose') ~~ 0 ifTrue:[
   766         Verbose := true.
   758         Verbose := true.
   767         VerboseLoading := true.
   759         VerboseLoading := true.
   768         VerboseStartup := true.
   760         VerboseStartup := true.
       
   761         Logger notNil ifTrue:[
       
   762             Logger loggingThreshold: Logger severityALL.
       
   763         ].    
   769         CommandLineArguments removeIndex:idx
   764         CommandLineArguments removeIndex:idx
   770     ].
   765     ].
   771 !
   766 !
   772 
   767 
   773 isInitialized
   768 isInitialized