mirror of
https://github.com/janet-lang/janet
synced 2025-06-13 12:04:12 +00:00
More work on compile-opt
This commit is contained in:
parent
b6fb7ae69c
commit
3510e235ee
@ -337,6 +337,10 @@
|
|||||||
[]
|
[]
|
||||||
(print (sysir/to-x64 ctx)))
|
(print (sysir/to-x64 ctx)))
|
||||||
|
|
||||||
|
(defn dumpx64-windows
|
||||||
|
[]
|
||||||
|
(print (sysir/to-x64 ctx @"" :windows)))
|
||||||
|
|
||||||
(defn dumpc
|
(defn dumpc
|
||||||
[]
|
[]
|
||||||
(print (sysir/to-c ctx)))
|
(print (sysir/to-c ctx)))
|
||||||
|
@ -11,4 +11,4 @@
|
|||||||
(compile1 winmain)
|
(compile1 winmain)
|
||||||
#(dump)
|
#(dump)
|
||||||
#(dumpc)
|
#(dumpc)
|
||||||
(dumpx64)
|
(dumpx64-windows)
|
||||||
|
@ -1891,9 +1891,9 @@ JANET_CORE_FN(cfun_sysir_tox64,
|
|||||||
#else
|
#else
|
||||||
target = JANET_SYS_TARGET_X64_LINUX;
|
target = JANET_SYS_TARGET_X64_LINUX;
|
||||||
#endif
|
#endif
|
||||||
} else if (janet_keyeq(argv[1], "windows")) {
|
} else if (janet_keyeq(argv[2], "windows")) {
|
||||||
target = JANET_SYS_TARGET_X64_WINDOWS;
|
target = JANET_SYS_TARGET_X64_WINDOWS;
|
||||||
} else if (janet_keyeq(argv[1], "linux")) {
|
} else if (janet_keyeq(argv[2], "linux")) {
|
||||||
target = JANET_SYS_TARGET_X64_LINUX;
|
target = JANET_SYS_TARGET_X64_LINUX;
|
||||||
} else {
|
} else {
|
||||||
janet_panicf("unknown target %v", argv[1]);
|
janet_panicf("unknown target %v", argv[1]);
|
||||||
|
@ -67,7 +67,7 @@ typedef enum {
|
|||||||
JANET_SYSREG_16,
|
JANET_SYSREG_16,
|
||||||
JANET_SYSREG_32,
|
JANET_SYSREG_32,
|
||||||
JANET_SYSREG_64,
|
JANET_SYSREG_64,
|
||||||
JANET_SYSREG_2x64,
|
JANET_SYSREG_2x64, /* Figure out how to represent this */
|
||||||
JANET_SYSREG_XMM
|
JANET_SYSREG_XMM
|
||||||
} x64RegKind;
|
} x64RegKind;
|
||||||
|
|
||||||
|
@ -972,7 +972,7 @@ const char *janet_strerror(int e) {
|
|||||||
#ifdef JANET_WINDOWS
|
#ifdef JANET_WINDOWS
|
||||||
/* Microsoft strerror seems sane here and is thread safe by default */
|
/* Microsoft strerror seems sane here and is thread safe by default */
|
||||||
return strerror(e);
|
return strerror(e);
|
||||||
#elif defined(_GNU_SOURCE)
|
#elif defined(__GLIBC__)
|
||||||
/* See https://linux.die.net/man/3/strerror_r */
|
/* See https://linux.die.net/man/3/strerror_r */
|
||||||
return strerror_r(e, janet_vm.strerror_buf, sizeof(janet_vm.strerror_buf));
|
return strerror_r(e, janet_vm.strerror_buf, sizeof(janet_vm.strerror_buf));
|
||||||
#else
|
#else
|
||||||
|
Loading…
x
Reference in New Issue
Block a user