1 "{ Package: 'stx:goodies/newcompiler' }"

     2 

     3 IRInstruction subclass:#IRLine

     4 	instanceVariableNames:'line'

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'NewCompiler-IR'

     8 !

     9 

    10 

    11 !IRLine methodsFor:'accessing'!

    12 

    13 line

    14     ^ line

    15 

    16     "Created: / 02-12-2008 / 08:58:59 / Jan Vrany <vranyj1@fel.cvut.cz>"

    17 !

    18 

    19 line:anInteger

    20     line := anInteger.

    21 

    22     "Created: / 02-12-2008 / 08:58:59 / Jan Vrany <vranyj1@fel.cvut.cz>"

    23 ! !

    24 

    25 !IRLine methodsFor:'interpret'!

    26 

    27 executeOn: interpreter

    28 

    29         ^ interpreter line: line

    30 

    31     "Created: / 02-12-2008 / 08:59:28 / Jan Vrany <vranyj1@fel.cvut.cz>"

    32 ! !

    33 

    34 !IRLine class methodsFor:'documentation'!

    35 

    36 version

    37     ^'$Id$'

    38 ! !