summaryrefslogtreecommitdiff
path: root/xs.h
diff options
context:
space:
mode:
authorGravatar default2024-09-20 10:47:14 +0200
committerGravatar default2024-09-20 10:47:14 +0200
commit2d2a685ec8bb30452fbf66025391f34f2bd03685 (patch)
tree0da1501b7a71e4ca13dd24ceb744b9bf569e94cf /xs.h
parentMove migration work. (diff)
downloadpenes-snac2-2d2a685ec8bb30452fbf66025391f34f2bd03685.tar.gz
penes-snac2-2d2a685ec8bb30452fbf66025391f34f2bd03685.tar.xz
penes-snac2-2d2a685ec8bb30452fbf66025391f34f2bd03685.zip
More migration work.
Diffstat (limited to 'xs.h')
-rw-r--r--xs.h6
1 files changed, 2 insertions, 4 deletions
diff --git a/xs.h b/xs.h
index 9c12c4a..e5269a4 100644
--- a/xs.h
+++ b/xs.h
@@ -23,7 +23,6 @@ typedef enum {
23 XSTYPE_LITEM = 0x1f, /* Element of a list (any type) */ 23 XSTYPE_LITEM = 0x1f, /* Element of a list (any type) */
24 XSTYPE_DICT = 0x1c, /* Sequence of KEYVALs up to EOM (with size) */ 24 XSTYPE_DICT = 0x1c, /* Sequence of KEYVALs up to EOM (with size) */
25 XSTYPE_KEYVAL = 0x1e, /* key + value (STRING key + any type) */ 25 XSTYPE_KEYVAL = 0x1e, /* key + value (STRING key + any type) */
26 XSTYPE_EOM = 0x19, /* End of Multiple (LIST or DICT) */
27 XSTYPE_DATA = 0x10 /* A block of anonymous data */ 26 XSTYPE_DATA = 0x10 /* A block of anonymous data */
28} xstype; 27} xstype;
29 28
@@ -170,7 +169,7 @@ void *_xs_realloc(void *ptr, size_t size, const char *file, int line, const char
170 xs_val *ndata = realloc(ptr, size); 169 xs_val *ndata = realloc(ptr, size);
171 170
172 if (ndata == NULL) { 171 if (ndata == NULL) {
173 fprintf(stderr, "**OUT OF MEMORY**\n"); 172 fprintf(stderr, "ERROR: out of memory at %s:%d: %s()\n", file, line, func);
174 abort(); 173 abort();
175 } 174 }
176 175
@@ -266,7 +265,6 @@ xstype xs_type(const xs_val *data)
266 case XSTYPE_DICT: 265 case XSTYPE_DICT:
267 case XSTYPE_KEYVAL: 266 case XSTYPE_KEYVAL:
268 case XSTYPE_NUMBER: 267 case XSTYPE_NUMBER:
269 case XSTYPE_EOM:
270 case XSTYPE_DATA: 268 case XSTYPE_DATA:
271 t = data[0]; 269 t = data[0];
272 break; 270 break;
@@ -696,7 +694,7 @@ xs_list *xs_list_new(void)
696{ 694{
697 int sz = 1 + _XS_TYPE_SIZE + 1; 695 int sz = 1 + _XS_TYPE_SIZE + 1;
698 xs_list *l = xs_realloc(NULL, sz); 696 xs_list *l = xs_realloc(NULL, sz);
699 memset(l, XSTYPE_EOM, sz); 697 memset(l, '\0', sz);
700 698
701 l[0] = XSTYPE_LIST; 699 l[0] = XSTYPE_LIST;
702 _xs_put_size(l, sz); 700 _xs_put_size(l, sz);