FEAT: conversion of struct! to binary!

Oldes · Jul 29, 2021 · 515c163 · 515c163
1 parent 85097fc
commit 515c163
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/src/core/t-string.c b/src/core/t-string.c
@@ -268,6 +268,10 @@ static REBSER *make_binary(REBVAL *arg, REBOOL make)
 		ser->data[12] = 0;
 		break;
 
+	case REB_STRUCT:
+		ser = Copy_Series_Part(VAL_STRUCT_DATA_BIN(arg), VAL_STRUCT_OFFSET(arg), VAL_STRUCT_LEN(arg));
+		break;
+
 	default:
 		ser = 0;
 	}

diff --git a/src/tests/units/struct-test.r3 b/src/tests/units/struct-test.r3
@@ -133,6 +133,14 @@ Rebol [
 
 ===end-group===
 
+
+===start-group=== "Struct conversion"
+--test-- "to binary! struct!"
+	s: make struct! [a: [uint16!] 1 b: [int32!] -1]
+	--assert #{0100FFFFFFFF} = to binary! s
+===end-group===
+
+
 ===start-group=== "Invalid struct construction"
 --test-- "Missing struct init value"
 ;@@ https://github.com/zsx/r3/issues/50