equal
deleted
inserted
replaced
753 ObjectMemory infoPrinting:true. |
753 ObjectMemory infoPrinting:true. |
754 CommandLineArguments removeIndex:idx |
754 CommandLineArguments removeIndex:idx |
755 ]. |
755 ]. |
756 |
756 |
757 (idx := CommandLineArguments indexOf:'--verbose') ~~ 0 ifTrue:[ |
757 (idx := CommandLineArguments indexOf:'--verbose') ~~ 0 ifTrue:[ |
|
758 Object infoPrinting:true. |
758 Verbose := true. |
759 Verbose := true. |
759 VerboseLoading := true. |
760 VerboseLoading := true. |
760 VerboseStartup := true. |
761 VerboseStartup := true. |
761 Logger notNil ifTrue:[ |
762 Logger notNil ifTrue:[ |
762 Logger loggingThreshold: Logger severityALL. |
763 Logger loggingThreshold: Logger severityALL. |
4392 isEval := isPrint := isFilter := isRepl := isRunMain := false. |
4393 isEval := isPrint := isFilter := isRepl := isRunMain := false. |
4393 didReadRCFile := false. |
4394 didReadRCFile := false. |
4394 |
4395 |
4395 StandAlone ifFalse:[ |
4396 StandAlone ifFalse:[ |
4396 self initializeVerboseFlags. |
4397 self initializeVerboseFlags. |
4397 Stderr nextPutAll:'verbose is: '. |
4398 |
4398 Stderr nextPutLine:Verbose printString. |
|
4399 Stderr nextPutAll:'verboseStartup is: '. |
|
4400 Stderr nextPutLine:VerboseStartup printString. |
|
4401 "/ |
4399 "/ |
4402 "/ look for any '-q', '-e', '-l' or '-f' command line arguments |
4400 "/ look for any '-q', '-e', '-l' or '-f' command line arguments |
4403 "/ and handle them; |
4401 "/ and handle them; |
4404 "/ read startup and patches file |
4402 "/ read startup and patches file |
4405 "/ |
4403 "/ |