diff -r 601b44c71329 -r 810798c5c2e5 CompiledCode.st --- a/CompiledCode.st Sat Feb 11 17:42:24 1995 +0100 +++ b/CompiledCode.st Wed Feb 15 11:22:05 1995 +0100 @@ -10,7 +10,7 @@ hereby transferred. " -ExecutableFunction subclass:#ExecutableCodeObject +ExecutableFunction subclass:#CompiledCode instanceVariableNames:'byteCode literals' classVariableNames:'NoByteCodeSignal InvalidByteCodeSignal InvalidInstructionSignal BadLiteralsSignal @@ -19,14 +19,14 @@ category:'Kernel-Methods' ! -ExecutableCodeObject comment:' +CompiledCode comment:' COPYRIGHT (c) 1994 by Claus Gittinger All Rights Reserved -$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.7 1995-02-05 21:30:33 claus Exp $ +$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.8 1995-02-15 10:21:38 claus Exp $ '! -!ExecutableCodeObject class methodsFor:'documentation'! +!CompiledCode class methodsFor:'documentation'! copyright " @@ -44,7 +44,7 @@ version " -$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.7 1995-02-05 21:30:33 claus Exp $ +$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.8 1995-02-15 10:21:38 claus Exp $ " ! @@ -75,7 +75,7 @@ " ! ! -!ExecutableCodeObject class methodsFor:'initialization'! +!CompiledCode class methodsFor:'initialization'! initialize NoByteCodeSignal isNil ifTrue:[ @@ -107,7 +107,7 @@ ] ! ! -!ExecutableCodeObject class methodsFor:'signal access'! +!CompiledCode class methodsFor:'signal access'! executionErrorSignal "return the parent-signal of all execution errors" @@ -122,7 +122,7 @@ ^ ArgumentSignal ! ! -!ExecutableCodeObject class methodsFor:'queries'! +!CompiledCode class methodsFor:'queries'! isBuiltInClass "this class is known by the run-time-system" @@ -130,7 +130,7 @@ ^ true ! ! -!ExecutableCodeObject methodsFor:'accessing'! +!CompiledCode methodsFor:'accessing'! byteCode "return the bytecode (a ByteArray)" @@ -144,7 +144,7 @@ ^ literals ! ! -!ExecutableCodeObject methodsFor:'private accessing'! +!CompiledCode methodsFor:'private accessing'! byteCode:aByteArray "set the bytecode field - DANGER ALERT" @@ -158,7 +158,7 @@ literals := aLiteralArray ! ! -!ExecutableCodeObject methodsFor:'error handling'! +!CompiledCode methodsFor:'error handling'! noByteCode "this error is triggered when the interpreter tries to execute a