new interface to cater for perl use

HinTak · Aug 11, 2018 · dbea18a · dbea18a
1 parent f4ff357
commit dbea18a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Compat/Compat.cs b/Compat/Compat.cs
@@ -50,7 +50,7 @@ public class RasterInterf
         private static extern bool SetDllDirectory(string path);
 
         [UnmanagedFunctionPointer(CallingConvention.Cdecl)]
-        public delegate int diagnostics_Function(int messcode, string message, string opcode,
+        public delegate int diagnostics_Function(IntPtr face_handle, int messcode, string message, string opcode,
                                                  int range_base, int is_composite,
                                                  int IP, int callTop, int opc, int start);
 
@@ -184,7 +184,7 @@ public bool RastTest (int resX, int resY, int[] arrPointSizes,
                 _face.SetTransform(fmatrix, fdelta);
                 for (uint ig = 0; ig < numGlyphs; ig++) {
                     diagnostics_Function diagnostics =
-                        (messcode, message, opcode, range_base, is_composite, IP, callTop, opc, start) =>
+                        (face_handle, messcode, message, opcode, range_base, is_composite, IP, callTop, opc, start) =>
                         {
                             string sDetails = "Size " + arrPointSizes[i] + ", " + opcode;
                             switch ( range_base )