JavaLocalVariableTable.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 28 Aug 2013 09:16:36 +0100
branchdevelopment
changeset 2674 8b3736c87626
parent 2429 ebece4dcaab9
child 2711 a00302fe5083
permissions -rw-r--r--
Added InetAddressTests to cover different layouts in different OpenJDK 6. There seems to be at least two different clas layouts for Inet4Address and Inet6Address. This testcase should test whether native methods handle both layouts correctly.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
454
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
     1
"
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
     2
 COPYRIGHT (c) 1996-2011 by Claus Gittinger
454
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
     3
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
     4
 New code and modifications done at SWING Research Group [1]:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
     5
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
     6
 COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
     7
                            SWING Research Group, Czech Technical University in Prague
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
     8
454
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
     9
 This software is furnished under a license and may be used
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    10
 only in accordance with the terms of that license and with the
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    11
 inclusion of the above copyright notice.   This software may not
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    12
 be provided or otherwise made available to, or used by, any
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    13
 other person.  No title to or ownership of the software is
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    14
 hereby transferred.
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
    15
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
    16
 [1] Code written at SWING Research Group contains a signature
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
    17
     of one of the above copright owners. For exact set of such code,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
    18
     see the differences between this version and version stx:libjava
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
    19
     as of 1.9.2010
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    20
"
713
75e92ac63bf1 category change
cg
parents: 454
diff changeset
    21
"{ Package: 'stx:libjava' }"
75e92ac63bf1 category change
cg
parents: 454
diff changeset
    22
2396
fadc6d7a2f5b Updated to rev 009a0df3afce
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2353
diff changeset
    23
Array subclass:#JavaLocalVariableTable
103
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    24
	instanceVariableNames:''
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    25
	classVariableNames:''
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    26
	poolDictionaries:''
713
75e92ac63bf1 category change
cg
parents: 454
diff changeset
    27
	category:'Languages-Java-Support'
103
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    28
!
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    29
454
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    30
!JavaLocalVariableTable class methodsFor:'documentation'!
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    31
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    32
copyright
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    33
"
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    34
 COPYRIGHT (c) 1996-2011 by Claus Gittinger
454
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    35
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
    36
 New code and modifications done at SWING Research Group [1]:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
    37
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
    38
 COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
    39
                            SWING Research Group, Czech Technical University in Prague
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
    40
454
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    41
 This software is furnished under a license and may be used
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    42
 only in accordance with the terms of that license and with the
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    43
 inclusion of the above copyright notice.   This software may not
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    44
 be provided or otherwise made available to, or used by, any
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    45
 other person.  No title to or ownership of the software is
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    46
 hereby transferred.
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
    47
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
    48
 [1] Code written at SWING Research Group contains a signature
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
    49
     of one of the above copright owners. For exact set of such code,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
    50
     see the differences between this version and version stx:libjava
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
    51
     as of 1.9.2010
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
    52
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    53
"
454
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    54
! !
103
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    55
2396
fadc6d7a2f5b Updated to rev 009a0df3afce
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2353
diff changeset
    56
103
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    57
!JavaLocalVariableTable methodsFor:'queries'!
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    58
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    59
nameForSlot:slot atPC:pc
255
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    60
    |numEntryForSlot entryForSlot|
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    61
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    62
    numEntryForSlot := 0.
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    63
    self do:[:entry |
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    64
        entry slot == slot ifTrue:[
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    65
            entry startPC <= pc ifTrue:[
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    66
                entry endPC >= pc ifTrue:[
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    67
                    ^ entry name
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    68
                ]
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    69
            ].
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    70
            numEntryForSlot := numEntryForSlot + 1.
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    71
            entryForSlot := entry.
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    72
        ]
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    73
    ].
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    74
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    75
    "/ not at this pc - but maybe the name is valid
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    76
    "/ for all of the methods lines ...
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    77
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    78
    numEntryForSlot == 1 ifTrue:[
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    79
        ^ entryForSlot name
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    80
    ].
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    81
103
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    82
    ^ nil
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    83
255
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    84
    "Created: / 2.7.1996 / 11:30:09 / cg"
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    85
    "Modified: / 8.1.1998 / 18:56:20 / cg"
103
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    86
! !
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    87
2396
fadc6d7a2f5b Updated to rev 009a0df3afce
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2353
diff changeset
    88
135
098936234135 *** empty log message ***
cg
parents: 103
diff changeset
    89
!JavaLocalVariableTable class methodsFor:'documentation'!
103
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    90
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    91
version
2396
fadc6d7a2f5b Updated to rev 009a0df3afce
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2353
diff changeset
    92
    ^ '$Header: /cvs/stx/stx/libjava/JavaLocalVariableTable.st,v 1.13 2013-02-25 11:15:31 vrany Exp $'
2242
ca34c8fde5dd added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 2151
diff changeset
    93
!
ca34c8fde5dd added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 2151
diff changeset
    94
ca34c8fde5dd added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 2151
diff changeset
    95
version_CVS
2396
fadc6d7a2f5b Updated to rev 009a0df3afce
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2353
diff changeset
    96
    ^ '$Header: /cvs/stx/stx/libjava/JavaLocalVariableTable.st,v 1.13 2013-02-25 11:15:31 vrany Exp $'
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
    97
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
    98
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
    99
version_HG
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
   100
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
   101
    ^ '$Changeset: <not expanded> $'
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
   102
!
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
   103
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
   104
version_SVN
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
   105
    ^ '§Id§'
2108
ca8c4e7db2e8 category change
Claus Gittinger <cg@exept.de>
parents: 749
diff changeset
   106
! !
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2302
diff changeset
   107