1 "{ Package: 'jv:tea/compiler' }"

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 TCompilerPass subclass:#TTypeseeder

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'Languages-Tea-Compiler'

    10 !

    11 

    12 !TTypeseeder methodsFor:'visiting'!

    13 

    14 visitArgument: anRBVariableNode

    15     super visitArgument: anRBVariableNode.

    16     anRBVariableNode binding type: anRBVariableNode typeSpec asType

    17 

    18     "Created: / 31-08-2015 / 11:51:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    19 ! !

    20 

    21 !TTypeseeder methodsFor:'visitor-double dispatching'!

    22 

    23 acceptMethodNode: aMethodNode 

    24     super acceptMethodNode: aMethodNode.

    25     aMethodNode binding 

    26             returnType: aMethodNode returnTypeSpec asType;

    27             parameterTypes: (aMethodNode arguments collect: [ :arg | arg binding type ])

    28 

    29     "Created: / 31-08-2015 / 12:13:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    30     "Modified: / 02-09-2015 / 17:05:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    31 ! !

    32