CHANGE: Disable support for Rebol values in struct

Oldes · Jul 28, 2021 · 2cc8c73 · 2cc8c73
1 parent 4763277
commit 2cc8c73
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 2 deletions.
diff --git a/src/core/m-gc.c b/src/core/m-gc.c
@@ -167,6 +167,7 @@ static void Mark_Value(REBVAL *val, REBCNT depth);
  Mark_Struct_Field(stu, (struct Struct_Field *)SERIES_SKIP(series, len), depth + 1);
  }
  }
+#ifdef unused
  else if (field->type == STRUCT_TYPE_REBVAL) {
  REBCNT i;
  ASSERT2(field->size == sizeof(REBVAL), RP_BAD_SIZE);
@@ -178,7 +179,7 @@ static void Mark_Value(REBVAL *val, REBCNT depth);
  }
  }
  }
-
+#endif
  /* ignore primitive datatypes */
 }
 

diff --git a/src/core/t-struct.c b/src/core/t-struct.c
@@ -110,9 +110,11 @@ static get_scalar(REBSTU *stu,
  VAL_STRUCT_LEN(val) = field->size;
  }
  break;
+#ifdef unused
  case STRUCT_TYPE_REBVAL:
  memcpy(val, data, sizeof(REBVAL));
  break;
+#endif
  default:
  /* should never be here */
  return FALSE;
@@ -437,6 +439,7 @@ static void parse_attr (REBVAL *blk, REBINT *raw_size, REBUPT *raw_addr)
  }
  break;
  case SYM_EXTERN:
+#ifdef unused
  ++ attr;
 
  if (*raw_addr != 0) /* raw-memory is exclusive with extern */
@@ -466,6 +469,9 @@ static void parse_attr (REBVAL *blk, REBINT *raw_size, REBUPT *raw_addr)
 
  *raw_addr = (REBUPT)addr;
  }
+#else
+ Trap0(RE_FEATURE_NA);
+#endif
  break;
  /*
  case SYM_ALIGNMENT:
@@ -848,7 +854,11 @@ static REBOOL parse_field_type(struct Struct_Field *field, REBVAL *spec, REBVAL
  return PE_BAD_SELECT;
 }
 
-REBINT Cmp_Struct(REBVAL *s, REBVAL *t)
+/***********************************************************************
+**
+*/ REBINT Cmp_Struct(REBVAL *s, REBVAL *t)
+/*
+***********************************************************************/
 {
  REBINT n = VAL_STRUCT_FIELDS(s) - VAL_STRUCT_FIELDS(t);
  if (n != 0) {