1 "{ Package: 'jv:dragonfly/asm' }"

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 AJInstruction subclass:#AJStackInstruction

     6 	instanceVariableNames:'callInfo'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'AsmJit-StackManagement'

    10 !

    11 

    12 AJStackInstruction comment:''

    13 !

    14 

    15 !AJStackInstruction methodsFor:'accessing'!

    16 

    17 callInfo

    18 

    19     ^ callInfo

    20 !

    21 

    22 callInfo: anObject

    23 

    24     callInfo := anObject

    25 ! !

    26