here - Stefan-Marr.de

7.2. Virtual Machine Support
1 void primitiveClone () {
2 Oop x = stackTop ();
3
4 if ( requires_delegation (x, Domain :: PrimShallowCopy__Mask )) {
5 request_primitive_clone ();
6 return ;
7 }
8
9 if (x. is_int ()) // is immediate value , no copying necessary
10 return ;
11
12 Oop nc = x. as_object ()-> clone ();
13 popThenPush (1 , nc );
14 }
15
16 void request_primitive_clone () {
17 Oop value = stackTop ();
18 Oop domain = value . as_object ()-> domain_oop ();
19
20 popThenPush (1 , domain );
21 push ( value );
22
23 set_argumentCount (1);
24
25 roots . messageSelector = The_Domain . prim_shallow_copy ();
26 roots . lkupClass = domain . fetchClass ();
27
28 commonSend ( roots . lkupClass );
29 }
Listing 7.4: Adapted primitive for shallow object copies.
195