mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-24 17:27:18 +00:00
Code Issues 1 Releases Wiki Activity

Test removing 32bit ptr marshalling.

Browse Source
This commit is contained in:
Calvin Rose 2023-06-24 11:52:22 -05:00
parent ff2f71d2bc
commit 566b45ea44
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/core/marsh.c
View File

@ -364,7 +364,7 @@ void janet_marshal_int(JanetMarshalContext *ctx, int32_t value) {
/* Only use in unsafe - don't marshal pointers otherwise */ /* Only use in unsafe - don't marshal pointers otherwise */
void janet_marshal_ptr(JanetMarshalContext *ctx, const void *ptr) { void janet_marshal_ptr(JanetMarshalContext *ctx, const void *ptr) {
#ifdef JANET_32 #ifdef JANET_32_DONTUSE
janet_marshal_int(ctx, (intptr_t) ptr); janet_marshal_int(ctx, (intptr_t) ptr);
#else #else
janet_marshal_int64(ctx, (intptr_t) ptr); janet_marshal_int64(ctx, (intptr_t) ptr);
@ -1176,7 +1176,7 @@ int64_t janet_unmarshal_int64(JanetMarshalContext *ctx) {
void *janet_unmarshal_ptr(JanetMarshalContext *ctx) { void *janet_unmarshal_ptr(JanetMarshalContext *ctx) {
UnmarshalState *st = (UnmarshalState *)(ctx->u_state); UnmarshalState *st = (UnmarshalState *)(ctx->u_state);
#ifdef JANET_32 #ifdef JANET_32_DONTUSE
return (void *) ((intptr_t) readint(st, &(ctx->data))); return (void *) ((intptr_t) readint(st, &(ctx->data)));
#else #else
return (void *) ((intptr_t) read64(st, &(ctx->data))); return (void *) ((intptr_t) read64(st, &(ctx->data)));