mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-07-06 20:12:53 +00:00
Code Issues 1 Releases Wiki Activity

fix: Fix tests warnings on Mingw

Browse Source
This commit is contained in:
GrayJack 2024-04-16 07:35:32 -03:00
parent 3be71dcc0b
commit 46bf5d1ce5
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/core/os.c
View File

@ -309,7 +309,7 @@ static EnvBlock os_execute_env(int32_t argc, const Janet *argv) {
JanetDictView dict = janet_getdictionary(argv, 2); JanetDictView dict = janet_getdictionary(argv, 2);
#ifdef JANET_WINDOWS #ifdef JANET_WINDOWS
JanetBuffer *temp = janet_buffer(10); JanetBuffer *temp = janet_buffer(10);
for (int32_t i = 0; i < dict.cap; i++) { for (size_t i = 0; i < dict.cap; i++) {
const JanetKV *kv = dict.kvs + i; const JanetKV *kv = dict.kvs + i;
if (!janet_checktype(kv->key, JANET_STRING)) continue; if (!janet_checktype(kv->key, JANET_STRING)) continue;
if (!janet_checktype(kv->value, JANET_STRING)) continue; if (!janet_checktype(kv->value, JANET_STRING)) continue;
@ -380,7 +380,7 @@ static void os_execute_cleanup(EnvBlock envp, const char **child_argv) {
* a single string of this format. Returns a buffer that can be cast into a c string. */ * a single string of this format. Returns a buffer that can be cast into a c string. */
static JanetBuffer *os_exec_escape(JanetView args) { static JanetBuffer *os_exec_escape(JanetView args) {
JanetBuffer *b = janet_buffer(0); JanetBuffer *b = janet_buffer(0);
for (int32_t i = 0; i < args.len; i++) { for (size_t i = 0; i < args.len; i++) {
const char *arg = janet_getcstring(args.items, i); const char *arg = janet_getcstring(args.items, i);
/* Push leading space if not first */ /* Push leading space if not first */

6
src/core/pp.c
View File

@ -895,13 +895,13 @@ void janet_formatbv(JanetBuffer *b, const char *format, va_list args) {
case 's': case 's':
case 'S': { case 'S': {
const char *str = va_arg(args, const char *); const char *str = va_arg(args, const char *);
int32_t len = c[-1] == 's' size_t len = c[-1] == 's'
? (int32_t) strlen(str) ? strlen(str)
: janet_string_length((JanetString) str); : janet_string_length((JanetString) str);
if (form[2] == '\0') if (form[2] == '\0')
janet_buffer_push_bytes(b, (const uint8_t *) str, len); janet_buffer_push_bytes(b, (const uint8_t *) str, len);
else { else {
if (len != (int32_t) strlen((const char *) str)) if (len != strlen((const char *) str))
janet_panic("string contains zeros"); janet_panic("string contains zeros");
if (!strchr(form, '.') && len >= 100) { if (!strchr(form, '.') && len >= 100) {
janet_panic("no precision and string is too long to be formatted"); janet_panic("no precision and string is too long to be formatted");