here - Stefan-Marr.de

7.2. Virtual Machine Support
1 void storeAndPopReceiverVariableBytecode () {
2 if ( requires_delegation ( roots .rcvr ,
3 Domain :: WriteToFieldMask )) {
4 Oop value = stackTop ();
5 Oop newTop = stackValue (1);
6 pop (2);
7 redirect_write_field ( roots .rcvr ,
8 currentBytecode & 7,
9 value , newTop );
10 }
11 else {
12 fetchNextBytecode ();
13 receiver_obj ()-> storePointer ( prevBytecode & 7, stackTop ());
14 pop (1);
15 }
16 }
17
18 bool requires_delegation ( Oop rcvr , oop_int_t selector_mask ) {
19 if ( executes_unenforced ())
20 return false ;
21
22 Oop rcvr_domain = rcvr . as_object ()-> domain_oop ();
23 Oop customization = rcvr_domain . customization_encoding ();
24 return The_Domain . customizes_selectors ( customization ,
25 selector_mask );
26 }
27
28 void redirect_write_field ( Oop obj_oop , int idx ,
29 Oop value , Oop newTop ) {
30 Oop domain = obj_oop . as_object ()-> domain_oop ();
31 set_argumentCount (4);
32 roots . lkupClass = domain . fetchClass ();
33 roots . messageSelector = The_Domain . write_field_with_return ();
34 create_context_and_activate ( domain , value ,
35 Oop :: from_int ( idx + 1) , obj_oop , newTop );
36 }
Listing 7.3: Implementation of store and pop bytecodes.
193