Skip to content

Commit 430f1dc

Browse files
committed
Fixed failed shared library compilation
1 parent 7b24418 commit 430f1dc

File tree

2 files changed

+7
-3
lines changed

2 files changed

+7
-3
lines changed

src/core/a-lib.c

Lines changed: 6 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1291,7 +1291,9 @@ RL_API REBCNT RL_Decode_UTF8_Char(const REBYTE *str, REBCNT *len)
12911291
return To_REBOL_Path(src, len, uni, 0);
12921292
}
12931293

1294-
RL_API REBSER* RL_Struct_Spec(REBCNT id)
1294+
/***********************************************************************
1295+
**
1296+
*/ RL_API REBSER* RL_Struct_Spec(REBCNT id)
12951297
/*
12961298
** Get struct specification.
12971299
**
@@ -1310,7 +1312,9 @@ RL_API REBSER* RL_Struct_Spec(REBCNT id)
13101312
return VAL_SERIES(VAL_BLK_SKIP(struct_specs, n));
13111313
}
13121314

1313-
RL_API REBCNT RL_Encode_UTF8_Char(REBYTE *dst, REBU32 chr)
1315+
/***********************************************************************
1316+
**
1317+
*/ RL_API REBCNT RL_Encode_UTF8_Char(REBYTE *dst, REBU32 chr)
13141318
/*
13151319
** Converts a single char to UTF8 code-point.
13161320
**

src/core/f-extension.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -188,7 +188,7 @@ x*/ void RXI_To_Value(REBVAL *val, RXIARG arg, REBCNT type)
188188
// RXIARG is too small to hold all neccessary values...
189189
// so we must use central struct spec container when creating a struct value from external source
190190
// Avoid returning structs from the extension unless they are newly created, to prevent this lookup.
191-
REBSER *spec = RL_STRUCT_SPEC(arg.structure.id);
191+
REBSER *spec = RL_Struct_Spec(arg.structure.id);
192192
if (!spec) {
193193
SET_NONE(val); // or error instead?!
194194
}

0 commit comments

Comments
 (0)