1  /*
 2   * Copyright (c) 2016 Thomas Pornin <pornin@bolet.org>
 3   *
 4   * Permission is hereby granted, free of charge, to any person obtaining 
 5   * a copy of this software and associated documentation files (the
 6   * "Software"), to deal in the Software without restriction, including
 7   * without limitation the rights to use, copy, modify, merge, publish,
 8   * distribute, sublicense, and/or sell copies of the Software, and to
 9   * permit persons to whom the Software is furnished to do so, subject to
10   * the following conditions:
11   *
12   * The above copyright notice and this permission notice shall be 
13   * included in all copies or substantial portions of the Software.
14   *
15   * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, 
16   * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17   * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND 
18   * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
19   * BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
20   * ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
21   * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
22   * SOFTWARE.
23   */
24  
25  using System;
26  using System.Collections.Generic;
27  
28  class OpcodeCall : Opcode {
29  
30  	Word target;
31  
32  	internal OpcodeCall() : this(null)
33  	{
34  	}
35  
36  	internal OpcodeCall(Word target)
37  	{
38  		this.target = target;
39  	}
40  
41  	internal override void ResolveTarget(Word target)
42  	{
43  		if (this.target != null) {
44  			throw new Exception("Opcode already resolved");
45  		}
46  		this.target = target;
47  	}
48  
49  	internal override void Run(CPU cpu)
50  	{
51  		target.Run(cpu);
52  	}
53  
54  	internal override Word GetReference(T0Comp ctx)
55  	{
56  		if (target == null) {
57  			throw new Exception("Unresolved call target");
58  		}
59  		return target;
60  	}
61  
62  	internal override CodeElement ToCodeElement()
63  	{
64  		return new CodeElementUInt((uint)target.Slot);
65  	}
66  
67  	public override string ToString()
68  	{
69  		return "call " + (target == null ? "UNRESOLVED" : target.Name);
70  	}
71  }