caught segfault when recompressing zero-length data

[zhengxwen]

library(gdsfmt)

f <- createfn.gds("test.gds")
n <- add.gdsn(f, "i1", integer(), compress="ZIP_RA", closezip=TRUE)
closefn.gds(f)

f <- openfn.gds("test.gds", FALSE)
compression.gdsn(index.gdsn(f, "i1"), "LZMA_RA")
closefn.gds(f)

openfn.gds("test.gds")

showing that

 *** caught segfault ***
address 0xd00000062, cause 'memory not mapped'

Traceback:
 1: ls.gdsn(node, include.hidden = all)