+ check and report an error if a passive data segment is encountered by the wasm object reader

compiler/ogwasm.pas

@@ -2890,6 +2890,11 @@ implementation
                       InputError('Memory index other than 0 not supported (got ' + tostr(MemIdx) + ')');
                       exit;
                     end;
+                  if not Active then
+                    begin
+                      InputError('Passive memory segments not supported');
+                      exit;
+                    end;
                   if not ReadUleb32(Len) then
                     begin
                       InputError('Error reading data segment length');