1 files changed, 56 insertions, 0 deletions
diff --git a/mcs/ilasm/codegen/CalliInstr.cs b/mcs/ilasm/codegen/CalliInstr.cs
new file mode 100644
index 00000000000..676e7462f63
--- /dev/null
+++ b/mcs/ilasm/codegen/CalliInstr.cs
@@ -0,0 +1,56 @@
+//
+// Mono.ILASM.CalliInstr
+//
+// Author(s):
+//  Jackson Harper (Jackson@LatitudeGeo.com)
+//
+// (C) 2003 Jackson Harper, All rights reserved
+//
+
+
+using System;
+
+
+namespace Mono.ILASM {
+
+        public class CalliInstr : IInstr {
+
+                private PEAPI.CallConv call_conv;
+                private BaseTypeRef ret_type;
+                private BaseTypeRef[] param;
+
+                public CalliInstr (PEAPI.CallConv call_conv, BaseTypeRef ret_type,
+				   BaseTypeRef[] param, Location loc)
+			: base (loc)
+                {
+                        this.call_conv = call_conv;
+                        this.ret_type = ret_type;
+                        this.param = param;
+                }
+
+                public override void Emit (CodeGen code_gen, MethodDef meth,
+					   PEAPI.CILInstructions cil)
+                {
+                        PEAPI.Type[] param_array;
+                        PEAPI.CalliSig callisig;
+
+                        if (param != null) {
+                                param_array = new PEAPI.Type[param.Length];
+                                int count = 0;
+                                foreach (BaseTypeRef typeref in param) {
+                                        typeref.Resolve (code_gen);
+                                        param_array[count++] = typeref.PeapiType;
+                                }
+                        } else {
+                                param_array = new PEAPI.Type[0];
+                        }
+
+                        ret_type.Resolve (code_gen);
+                        callisig = new PEAPI.CalliSig (call_conv,
+                                        ret_type.PeapiType, param_array);
+
+                        cil.calli (callisig);
+                }
+        }
+
+}