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