fixed CompiledMethod>>preambleCode
This commit is contained in:
@ -339,7 +339,7 @@ class(#pointer) CompiledMethod(Object)
|
||||
method preambleCode
|
||||
{
|
||||
(* TODO: make this a primtive for performance *)
|
||||
^(self.preamble bitAnd: 16rFF) bitShift: -2.
|
||||
^(self.preamble bitAnd: 16rFF) bitShift: -3.
|
||||
}
|
||||
|
||||
method owner
|
||||
|
@ -271,7 +271,7 @@ extend MethodContext
|
||||
|
||||
| excblk retval actpos |
|
||||
|
||||
(* position of the temporary variable 'active' in MethodContext>>on:do.
|
||||
(* position of the temporary variable 'exception_active' in MethodContext>>on:do.
|
||||
* for this code to work, it must be the last temporary variable in the method. *)
|
||||
actpos := (self basicSize) - 1.
|
||||
|
||||
|
Reference in New Issue
Block a user