fixed CompiledMethod>>preambleCode

This commit is contained in:
hyunghwan.chung
2017-04-26 16:01:56 +00:00
parent be57cffbe6
commit b0a3b4aef7
3 changed files with 10 additions and 12 deletions

View File

@ -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

View File

@ -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.