Allow passing enum-structs to natives.

compiler/messages.h

@@ -159,7 +159,7 @@ static const char* errmsg[] = {
     /*132*/ "cannot coerce non-object type %s to object type %s\n",
     /*133*/ "cannot coerce unrelated object types %s and %s\n",
     /*134*/ "type mismatch (expected \"%s\", got \"%s\")\n",
-    /*135*/ "cannot use enum struct type \"%s\" in natives\n",
+    /*135*/ "unused135\n",
     /*136*/ "reference is redundant, enum struct types are array-like\n",
     /*137*/ "cannot mix reference and array types\n",
     /*138*/ "const was specified twice\n",

compiler/name-resolution.cpp

@@ -821,10 +821,6 @@ FunctionDecl::BindArgs(SemaContext& sc)
         }
 
         Type* type = typeinfo.type;
-        if (type->isEnumStruct()) {
-            if (is_native_)
-                report(var->pos(), 135) << type;
-        }
 
         /* Stack layout:
          *   base + 0*sizeof(cell)  == previous "base"

tests/enum-structs/native-access.out

@@ -0,0 +1,2 @@
+x: 5
+y: 10

tests/enum-structs/native-access.sp

@@ -0,0 +1,8 @@
+#include <shell>
+
+public void main() {
+    TestStruct ts;
+    ts.x = 5;
+    ts.y = 10;
+    print_test_struct(ts);
+}

tests/shell.inc

@@ -2,6 +2,11 @@
 #include <float>
 #include <handles>
 
+enum struct TestStruct {
+    int x;
+    int y;
+}
+
 native void printnum(int n);
 native void writenum(int n);
 native void printfloat(float n);
@@ -45,3 +50,5 @@ native void copy_2d_array_to_callback(const int[] flat_array, int length, int st
                                       Array2dCallback callback);
 
 native void assert_eq(any a1, any a2);
+
+native void print_test_struct(TestStruct x);

vm/shell/shell.cpp

@@ -308,6 +308,25 @@ static cell_t Copy2dArrayToCallback(IPluginContext* cx, const cell_t* params)
   return 0;
 }
 
+#pragma pack(push, 1)
+struct TestStruct {
+  cell_t x;
+  cell_t y;
+};
+#pragma pack(pop)
+
+static cell_t PrintTestStruct(IPluginContext* cx, const cell_t* params) {
+  TestStruct* ts;
+
+  int err;
+  if ((err = cx->LocalToPhysAddr(params[1], reinterpret_cast<cell_t**>(&ts))) != SP_ERROR_NONE)
+    return cx->ThrowNativeErrorEx(err, "Could not read argument 1");
+
+  printf("x: %d\n", ts->x);
+  printf("y: %d\n", ts->y);
+  return 0;
+}
+
 class DynamicNative : public INativeCallback
 {
   public:
@@ -366,6 +385,7 @@ static int Execute(const char* file)
   BindNative(rt, "call_with_string", CallWithString);
   BindNative(rt, "assert_eq", AssertEq);
   BindNative(rt, "printf", Printf);
+  BindNative(rt, "print_test_struct", PrintTestStruct);
 
   IPluginFunction* fun = rt->GetFunctionByName("main");
   if (!fun)