mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-11-03 00:53:01 +00:00
Code Issues 1 Releases Wiki Activity

Fix compiler warnings with GCC.

Browse Source
This commit is contained in:
Calvin Rose
2018-02-02 17:14:27 -05:00
parent b6d90ed765
commit 278769f2bb
5 changed files with 15 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/core/io.c
View File

@@ -84,16 +84,16 @@ static int checkflags(const uint8_t *str, int32_t len) {
static IOFile *checkfile(DstArgs args, int32_t n) {
IOFile *iof;
if (n >= args.n) {
dst_throw(args, "expected core.file");
*args.ret = dst_cstringv("expected core.file");
return NULL;
}
if (!dst_checktype(args.v[n], DST_ABSTRACT)) {
dst_throw(args, "expected core.file");
*args.ret = dst_cstringv("expected core.file");
return NULL;
}
iof = (IOFile *) dst_unwrap_abstract(args.v[n]);
if (dst_abstract_type(iof) != &dst_io_filetype) {
dst_throw(args, "expected core.file");
*args.ret = dst_cstringv("expected core.file");
return NULL;
}
return iof;
@@ -105,11 +105,11 @@ static DstBuffer *checkbuffer(DstArgs args, int32_t n, int optional) {
return dst_buffer(0);
}
if (n >= args.n) {
dst_throw(args, "expected buffer");
*args.ret = dst_cstringv("expected buffer");
return NULL;
}
if (!dst_checktype(args.v[n], DST_BUFFER)) {
dst_throw(args, "expected buffer");
*args.ret = dst_cstringv("expected buffer");
return NULL;
}
return dst_unwrap_abstract(args.v[n]);
@@ -118,11 +118,11 @@ static DstBuffer *checkbuffer(DstArgs args, int32_t n, int optional) {
/* Check char array argument */
static int checkchars(DstArgs args, int32_t n, const uint8_t **str, int32_t *len) {
if (n >= args.n) {
dst_throw(args, "expected string/buffer");
*args.ret = dst_cstringv("expected string/buffer");
return 0;
}
if (!dst_chararray_view(args.v[n], str, len)) {
dst_throw(args, "expected string/buffer");
*args.ret = dst_cstringv("expected string/buffer");
return 0;
}
return 1;