cvut_stx_goodies_newcompiler.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 09 May 2012 08:38:46 +0000
changeset 38 a64f4ad690f5
parent 37 be8c2dd09dff
child 39 d361eb9419e6
permissions -rw-r--r--
Build files regenerated
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
23
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 21
diff changeset
     1
"{ Package: 'cvut:stx/goodies/newcompiler' }"
1
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     2
23
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 21
diff changeset
     3
LibraryDefinition subclass:#cvut_stx_goodies_newcompiler
1
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     4
	instanceVariableNames:''
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     5
	classVariableNames:''
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     6
	poolDictionaries:''
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     7
	category:'* Projects & Packages *'
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     8
!
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
23
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 21
diff changeset
    11
!cvut_stx_goodies_newcompiler class methodsFor:'description'!
1
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
preRequisites
38
a64f4ad690f5 Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 37
diff changeset
    14
    "list all required packages.
a64f4ad690f5 Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 37
diff changeset
    15
     This list can be maintained manually or (better) generated and
a64f4ad690f5 Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 37
diff changeset
    16
     updated by scanning the superclass hierarchies and looking for
a64f4ad690f5 Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 37
diff changeset
    17
     global variable accesses. (the browser has a menu function for that)
a64f4ad690f5 Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 37
diff changeset
    18
     Howevery, often too much is found, and you may want to explicitely
a64f4ad690f5 Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 37
diff changeset
    19
     exclude individual packages in the #excludedFromPrerequisites method."
a64f4ad690f5 Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 37
diff changeset
    20
1
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    21
    ^ #(
38
a64f4ad690f5 Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 37
diff changeset
    22
        #'stx:goodies/refactoryBrowser/parser'    "RBSequenceNode - referenced by IRDecompiler>>endCase: "
27
45902cde2ab1 Makefiles regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 26
diff changeset
    23
        #'stx:goodies/sunit'    "TestCase - superclass of IRTransformTest "
38
a64f4ad690f5 Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 37
diff changeset
    24
        #'stx:libbasic'    "LibraryDefinition - superclass of cvut_stx_goodies_newcompiler "
4
7195866510e1 symbolic code generation fixed (wrong code was generated when ir had more than 10 sequences)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
    25
        #'stx:libbasic2'    "OrderedDictionary - referenced by IRBytecodeGenerator>>initialize "
38
a64f4ad690f5 Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 37
diff changeset
    26
        #'stx:libcomp'    "Scanner - superclass of extended ByteCodeCompiler "
37
be8c2dd09dff Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 34
diff changeset
    27
        #'stx:libcompat'    "Preferences - referenced by IRDecompiler>>removeClosureCreation: "
38
a64f4ad690f5 Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 37
diff changeset
    28
        #'stx:libtool'    "Tools::Inspector2Tab - referenced by IRFunction>>inspector2TabIRCode "
a64f4ad690f5 Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 37
diff changeset
    29
        #'stx:libwidg'    "TextView - referenced by IRFunction>>inspector2TabIRCode "
1
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    30
    )
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    31
! !
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    32
23
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 21
diff changeset
    33
!cvut_stx_goodies_newcompiler class methodsFor:'description - contents'!
1
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    34
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    35
classNamesAndAttributes
38
a64f4ad690f5 Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 37
diff changeset
    36
    "lists the classes which are to be included in the project.
a64f4ad690f5 Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 37
diff changeset
    37
     Each entry in the list may be: a single class-name (symbol),
a64f4ad690f5 Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 37
diff changeset
    38
     or an array-literal consisting of class name and attributes.
a64f4ad690f5 Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 37
diff changeset
    39
     Attributes are: #autoload or #<os> where os is one of win32, unix,..."
a64f4ad690f5 Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 37
diff changeset
    40
1
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    41
    ^ #(
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    42
        "<className> or (<className> attributes...) in load order"
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    43
        IRBuilder
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    44
        IRBytecodeGenerator
9
04518c7fb91c Initial support for closures.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 8
diff changeset
    45
        IRFunction
1
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    46
        IRInstruction
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    47
        IRInterpreter
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    48
        IRSequence
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    49
        IRStackCount
23
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 21
diff changeset
    50
        #'cvut_stx_goodies_newcompiler'
1
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    51
        IRAccess
9
04518c7fb91c Initial support for closures.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 8
diff changeset
    52
        IRClosure
1
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    53
        IRConstant
37
be8c2dd09dff Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 34
diff changeset
    54
        IRDecompiler
1
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    55
        IRDup
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    56
        IRJump
6
49a61123c743 A new IRLine pseudoinstruction added to include debugging info into the bytecode.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    57
        IRLine
9
04518c7fb91c Initial support for closures.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 8
diff changeset
    58
        IRMethod
1
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    59
        IRPop
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    60
        IRPrinter
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    61
        IRReturn
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    62
        IRSend
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    63
        IRTranslator
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    64
        IRBlockReturnTop
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    65
        IRInstVarAccess
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    66
        IRJumpIf
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    67
        IRJumpOverBlock
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    68
        IRLiteralVariableAccess
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    69
        IRTempAccess
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    70
        IRInstVarRead
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    71
        IRInstVarStore
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    72
        IRLiteralVariableRead
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    73
        IRLiteralVariableStore
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    74
        IRTempRead
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    75
        IRTempStore
38
a64f4ad690f5 Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 37
diff changeset
    76
        (IRBuilderTest autoload)
a64f4ad690f5 Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 37
diff changeset
    77
        (IRTransformTest autoload)
1
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    78
    )
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    79
!
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    80
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    81
extensionMethodNames
38
a64f4ad690f5 Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 37
diff changeset
    82
    "lists the extension methods which are to be included in the project.
a64f4ad690f5 Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 37
diff changeset
    83
     Entries are 2-element array literals, consisting of class-name and selector."
a64f4ad690f5 Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 37
diff changeset
    84
1
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    85
    ^ #(
3
c9845c180bd4 Fixes IRBytecodeGenerator >> #pushLiteral and IRBuilder >> #jumpAheadTo:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2
diff changeset
    86
        ByteCodeCompiler literalArray:
1
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    87
        Class binding
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    88
        Class bindingOf:
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    89
    )
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    90
! !
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    91
23
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 21
diff changeset
    92
!cvut_stx_goodies_newcompiler class methodsFor:'description - project information'!
1
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    93
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    94
companyName
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    95
    "Return a companyname which will appear in <lib>.rc"
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    96
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    97
    ^ 'CVUT FEI & Mathieu Suen'
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    98
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    99
    "Created: / 11-06-2008 / 16:50:46 / Jan Vrany <vranyj1@fel.cvut.cz>"
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   100
!
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   101
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   102
description
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   103
    "Return a description string which will appear in vc.def / bc.def"
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   104
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   105
    ^ 'Smalltalk/X Bytecode generation library based on Squeak''s NewCompiler'
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   106
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   107
    "Created: / 11-06-2008 / 16:50:46 / Jan Vrany <vranyj1@fel.cvut.cz>"
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   108
!
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   109
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   110
legalCopyright
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   111
    "Return a copyright string which will appear in <lib>.rc"
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   112
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   113
    ^ 'Copyright Jan Vrany & Mathieu Suen 2008'
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   114
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   115
    "Created: / 11-06-2008 / 16:50:46 / Jan Vrany <vranyj1@fel.cvut.cz>"
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   116
!
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   117
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   118
productName
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   119
    "Return a product name which will appear in <lib>.rc"
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   120
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   121
    ^ 'NewCompiler'
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   122
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   123
    "Created: / 11-06-2008 / 16:50:46 / Jan Vrany <vranyj1@fel.cvut.cz>"
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   124
! !
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   125
23
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 21
diff changeset
   126
!cvut_stx_goodies_newcompiler class methodsFor:'description - svn'!
21
a5d30403049c Small improvement in IRFunction>>addTemps:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   127
37
be8c2dd09dff Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 34
diff changeset
   128
svnRepositoryUrlString
be8c2dd09dff Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 34
diff changeset
   129
    "Return a SVN repository URL of myself.
be8c2dd09dff Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 34
diff changeset
   130
     (Generated since 2011-04-08)
be8c2dd09dff Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 34
diff changeset
   131
     Do not make the string shorter!!!!!! We have to use fixed-length keyword!!!!!!
be8c2dd09dff Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 34
diff changeset
   132
    "        
be8c2dd09dff Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 34
diff changeset
   133
be8c2dd09dff Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 34
diff changeset
   134
    ^ '$URL::                                                                                                                        $'
be8c2dd09dff Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 34
diff changeset
   135
!
be8c2dd09dff Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 34
diff changeset
   136
21
a5d30403049c Small improvement in IRFunction>>addTemps:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   137
svnRevisionNr
a5d30403049c Small improvement in IRFunction>>addTemps:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   138
    "Return a SVN revision number of myself.
a5d30403049c Small improvement in IRFunction>>addTemps:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   139
     This number is updated after a commit"
a5d30403049c Small improvement in IRFunction>>addTemps:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   140
38
a64f4ad690f5 Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 37
diff changeset
   141
    ^ "$SVN-Revision:"'38              '"$"
21
a5d30403049c Small improvement in IRFunction>>addTemps:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   142
! !
a5d30403049c Small improvement in IRFunction>>addTemps:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   143
23
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 21
diff changeset
   144
!cvut_stx_goodies_newcompiler class methodsFor:'documentation'!
1
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   145
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   146
version
37
be8c2dd09dff Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 34
diff changeset
   147
    ^ '$Id$'
23
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 21
diff changeset
   148
!
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 21
diff changeset
   149
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 21
diff changeset
   150
version_CVS
37
be8c2dd09dff Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 34
diff changeset
   151
    ^ '§Header: /cvs/stx/cvut/stx/goodies/newcompiler/cvut_stx_goodies_newcompiler.st,v 1.4 2009/10/08 12:00:46 fm Exp §'
23
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 21
diff changeset
   152
!
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 21
diff changeset
   153
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 21
diff changeset
   154
version_SVN
37
be8c2dd09dff Build files regenerated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 34
diff changeset
   155
    ^ '$Id::                                                                                                                        $'
1
0dd36941955f Initial revision. All tests pass.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   156
! !