'From Smalltalk/X, Version:3.3.1 on 8-jan-1998 at 9:38:22 pm'                   !

Array subclass:#JavaLocalVariableTable
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Java-Support'
!


!JavaLocalVariableTable methodsFor:'queries'!

nameForSlot:slot atPC:pc
    |numEntryForSlot entryForSlot|

    numEntryForSlot := 0.
    self do:[:entry |
        entry slot == slot ifTrue:[
            entry startPC <= pc ifTrue:[
                entry endPC >= pc ifTrue:[
                    ^ entry name
                ]
            ].
            numEntryForSlot := numEntryForSlot + 1.
            entryForSlot := entry.
        ]
    ].

    "/ not at this pc - but maybe the name is valid
    "/ for all of the methods lines ...

    numEntryForSlot == 1 ifTrue:[
        ^ entryForSlot name
    ].

    ^ nil

    "Created: / 2.7.1996 / 11:30:09 / cg"
    "Modified: / 8.1.1998 / 18:56:20 / cg"
! !

!JavaLocalVariableTable class methodsFor:'documentation'!

version
    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaLocalVariableTable.st,v 1.3 1998/01/12 14:24:33 cg Exp $'
! !