XS: secaudit issue #12

Moddable-OpenSource · Nov 24, 2021 · 691c895 · 691c895
1 parent abd72cf
commit 691c895
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/xs/sources/xsModule.c b/xs/sources/xsModule.c
@@ -1730,9 +1730,11 @@ txBoolean fxModuleSetPrototype(txMachine* the, txSlot* instance, txSlot* prototy
 
 txSlot* fxCheckCompartmentInstance(txMachine* the, txSlot* slot)
 {
-	txSlot* instance = slot->value.reference;
-	if (((slot = instance->next)) && (slot->flag & XS_INTERNAL_FLAG) && (slot->kind == XS_PROGRAM_KIND)) {
-		return instance;
+	if (slot->kind == XS_REFERENCE_KIND) {
+		txSlot* instance = slot->value.reference;
+		if (((slot = instance->next)) && (slot->flag & XS_INTERNAL_FLAG) && (slot->kind == XS_PROGRAM_KIND)) {
+			return instance;
+		}
 	}
 	mxTypeError("this is no Compartment instance");
 	return C_NULL;