GsMethod>recompileIntoMethodDict:intoCategories: in GS/64 3.0.0

> recompileIntoMethodDict: aMethodDict intoCategories: aCategDict
>
> "Recompiles the method for execution in a Gs64 v3.0 or later system.
>
>  Literal variables whose key is in the GsMethod class variable ObsoleteClassesDict
>  are replaced by the appropriate association from the ObsoleteClassesDict .
>  Other literal variables are looked up in the literal pool of the receiver,
>  before searching class variables, class pool dictionaries, or
>  the current symbolList.  Thus recompilation should work without knowing
>  what symbolList was used when the receiver was created.  
>
>  The result is a GsNMethod if compilation succeeds, otherwise
>  an error is generated.  environmentId zero is used for all compilations.
>
>  If aMethodDict is not nil, and the compilation succeeds,
>  the resulting method is added to aMethodDict instead of to
>  the receiver's method dictionary.  This is used to add methods
>  to per-session dictionaries.
>
>  If aMethodDict is not nil and aCategDict is not nil and
>  the compilation succeeds, the resulting method is added aCategDict
>  instead of the receiver's categories.
>
>  If the receiver is an anonymous method, the sender of this method is
>  reponsible for saving the result."
>
> | cls litVars symAssocCls obsDict newSrc |
> litVars := { }  .
> symAssocCls := SymbolAssociation .
> obsDict := ObsoleteClassesDict .
> literalsOffset to: self size do: [:i | | aLit |
>   (aLit isKindOf: symAssocCls) ifTrue:[ | litName obsArr aVal newLit |

>     obsArr := obsDict at: (litName:= aLit key) otherwise: nil .
>     obsArr ~~ nil ifTrue:[
>       aVal := aLit value .
>       (aVal ~~ nil and:[ aVal == (obsArr at:1)]) ifTrue:[ | newName |
>          newName := obsArr at: 2 .
>          newName ~~ nil ifTrue:[
>            newLit := Globals associationAt: newName   "such as ExceptionA-->Exception"
>          ] ifFalse:[
>            newLit := Globals associationAt: litName   "such as GsFile-->GsFile"
>          ].
>       ].
>     ].
>     newLit ~~ nil ifTrue:[
>       litVars add: newLit
>     ] ifFalse:[
>       litVars add: aLit
>     ].
>   ].
> ].
> newSrc := GsNMethod convertArrayBuildersInString: sourceString  .
> cls := self inClass .
> cls ifNil:[
>   ^ newSrc _compileInContext: nil symbolList: nil oldLitVars: litVars