Die on CStruct without any fields.

Raku · Sep 30, 2016 · f4e333a · f4e333a
1 parent ec03b35
commit f4e333a
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/reprs/CStruct.java b/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/reprs/CStruct.java
@@ -22,6 +22,7 @@
 import org.perl6.nqp.sixmodel.reprs.NativeCall.ArgType;
 
 import org.perl6.nqp.runtime.ExceptionHandling;
+import org.perl6.nqp.runtime.Ops;
 import org.perl6.nqp.runtime.ThreadContext;
 
 public class CStruct extends REPR {
@@ -110,6 +111,10 @@ private void generateStructClass(ThreadContext tc, STable st, List<AttrInfo> fie
 
         int attributes = fields.size();
 
+        if (attributes == 0) {
+            ExceptionHandling.dieInternal(tc, "Class " + Ops.typeName(st.WHAT, tc) + " has repr CStruct but no fields");
+        }
+
         // public $className extends com.sun.jna.Structure implements com.sun.jna.Structure.ByReference { ... }
         cw.visit(Opcodes.V1_7, Opcodes.ACC_PUBLIC | Opcodes.ACC_SUPER, className, null, "com/sun/jna/Structure", null);