PolymorphicInlineCache.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Sun, 02 Oct 2011 17:42:05 +0100
branchjv
changeset 17875 76b088500bd1
parent 17872 55a6f54e36ff
child 17876 874a323bb674
permissions -rw-r--r--
First (unchecked) try for bind:to: method in PolymorphicInlineCache
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
17868
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     1
"
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     2
 COPYRIGHT (c) 2011 by Jan Vrany & Jan Kurs
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     3
                       SWING Research Group, Czech Technical University in Prague
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     4
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     5
 Permission is hereby granted, free of charge, to any person
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     6
 obtaining a copy of this software and associated documentation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     7
 files (the 'Software'), to deal in the Software without
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     8
 restriction, including without limitation the rights to use,
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
 copy, modify, merge, publish, distribute, sublicense, and/or sell
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
 copies of the Software, and to permit persons to whom the
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    11
 Software is furnished to do so, subject to the following
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
 conditions:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    14
 The above copyright notice and this permission notice shall be
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
 included in all copies or substantial portions of the Software.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    20
 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    21
 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    22
 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    23
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    24
 OTHER DEALINGS IN THE SOFTWARE.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    25
"
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    26
"{ Package: 'stx:libbasic' }"
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    27
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    28
Object subclass:#PolymorphicInlineCache
17872
55a6f54e36ff New parameter added to PolymorhicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17868
diff changeset
    29
	instanceVariableNames:'address argSize'
17868
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    30
	classVariableNames:''
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    31
	poolDictionaries:''
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    32
	category:'Kernel-Classes'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    33
!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    34
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    35
!PolymorphicInlineCache class methodsFor:'documentation'!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    36
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    37
copyright
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    38
"
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    39
 COPYRIGHT (c) 2011 by Jan Vrany & Jan Kurs
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    40
                       SWING Research Group, Czech Technical University in Prague
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    41
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    42
 Permission is hereby granted, free of charge, to any person
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    43
 obtaining a copy of this software and associated documentation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    44
 files (the 'Software'), to deal in the Software without
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    45
 restriction, including without limitation the rights to use,
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    46
 copy, modify, merge, publish, distribute, sublicense, and/or sell
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    47
 copies of the Software, and to permit persons to whom the
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    48
 Software is furnished to do so, subject to the following
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    49
 conditions:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    50
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    51
 The above copyright notice and this permission notice shall be
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    52
 included in all copies or substantial portions of the Software.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    53
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    54
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    55
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    56
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    57
 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    58
 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    59
 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    60
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    61
 OTHER DEALINGS IN THE SOFTWARE.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    62
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    63
"
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    64
!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    65
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    66
documentation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    67
"
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    68
    This class provides a basic access to inline cache structure as
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    69
    used by the virtual machine.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    70
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    71
    [author:]
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    72
        Jan Vrany <jan.vrany@fit.cvut.cz>
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    73
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    74
    [instance variables:]
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    75
        address     <ExternalAddress> a pointer to the VM inline cache structure.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    76
                                    if the adress is NULL, then PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    77
                                    is invalid.
17872
55a6f54e36ff New parameter added to PolymorhicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17868
diff changeset
    78
        argSize       <SmallInt> is a number of arguments
17868
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    79
    [class variables:]
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    80
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    81
    [see also:]
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    82
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    83
"
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    84
! !
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    85
17875
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
    86
!PolymorphicInlineCache methodsFor:'* uncategorized *'!
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
    87
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
    88
bind: aMethod to: initialSearchClass
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
    89
    | selector |
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
    90
    selector := aMethod selector.
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
    91
%{
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
    92
    inlineCachePtr pIlc;
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
    93
    OBJ srch;
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
    94
    OBJFUNC code;
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
    95
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
    96
    pIlc = __externalAddressVal(__INST(xyz));
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
    97
    srch = initialSearchClass;
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
    98
    code = __MethodInstrPtr(aMethod)->m_code;
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
    99
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
   100
    __poly_enter(pIlc, srch, code, __SEND0ADDR__, selector);
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
   101
    RETURN(1);
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
   102
%}.
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
   103
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
   104
    self primitiveFailed.
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
   105
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
   106
    "Created: / 02-10-2011 / 18:05:26 / Jan Kurs <kursjan@fit.cvut.cz>"
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
   107
! !
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
   108
17868
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   109
!PolymorphicInlineCache class methodsFor:'documentation'!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   110
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   111
version_SVN
17875
76b088500bd1 First (unchecked) try for bind:to: method in PolymorphicInlineCache
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17872
diff changeset
   112
    ^ '$Id: PolymorphicInlineCache.st 10707 2011-10-02 16:42:05Z kursjan $'
17868
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   113
! !