Skip to content

Commit 6f9f15e

Browse files
OldesOldes
committed
FIX: resolved some of the unused variable warnings
1 parent c55d247 commit 6f9f15e

11 files changed

+24
-20
lines changed

‎src/core/l-scan.c

+1-1
Original file line numberDiff line numberDiff line change
@@ -483,7 +483,7 @@
483483
**
484484
***********************************************************************/
485485
{
486-
REBOOL comm = FALSE;
486+
// REBOOL comm = FALSE;
487487
REBINT chr;
488488
REBCNT lines = 0;
489489
REBSER *buf = BUF_MOLD;

‎src/core/m-gc.c

+1-1
Original file line numberDiff line numberDiff line change
@@ -111,7 +111,7 @@ REBVAL *N_watch(REBFRM *frame, REBVAL **inter_block)
111111
#endif
112112

113113
static void Mark_Series(REBSER *series, REBCNT depth);
114-
static void Mark_Value(REBVAL *val, REBCNT depth);
114+
//static void Mark_Value(REBVAL *val, REBCNT depth);
115115

116116
/***********************************************************************
117117
**

‎src/core/n-crypt.c

+6-4
Original file line numberDiff line numberDiff line change
@@ -596,7 +596,6 @@ static uECC_Curve get_ecc_curve(REBCNT curve_type) {
596596
REBOOL ref_release = D_REF(8);
597597

598598
REBSER *bin = NULL;
599-
REBVAL *ret;
600599
uECC_Curve curve = NULL;
601600
ECC_CTX *ecc = NULL;
602601

@@ -766,6 +765,9 @@ static uECC_Curve get_ecc_curve(REBCNT curve_type) {
766765
REBOOL ref_stream = D_REF(7);
767766
REBVAL *val_data = D_ARG(8);
768767
REBOOL ref_into = D_REF(9);
768+
769+
if(ref_into)
770+
Trap0(RE_FEATURE_NA);
769771

770772
REBINT len;
771773
REBU64 sequence;
@@ -853,9 +855,9 @@ static uECC_Curve get_ecc_curve(REBCNT curve_type) {
853855
REBVAL *val_mac = D_ARG(6);
854856

855857
REBVAL *ret = D_RET;
856-
REBSER *ctx_ser;
858+
// REBSER *ctx_ser;
857859
REBINT len;
858-
REBCNT i;
860+
// REBCNT i;
859861
REBYTE mac[16];
860862

861863
if (IS_BINARY(val_ctx)) {
@@ -991,7 +993,7 @@ static uECC_Curve get_ecc_curve(REBCNT curve_type) {
991993
// length (2 bytes)
992994
unsigned char aad[13];
993995
aad_size = sizeof(aad);
994-
unsigned char *sequence = aad;
996+
// unsigned char *sequence = aad;
995997

996998
chacha20_poly1305_aead(&chacha->local_chacha, VAL_BIN_AT(val_plain), (REBCNT)len-POLY1305_TAGLEN, VAL_BIN_AT(val_local_aad), VAL_LEN(val_local_aad), poly1305_key, ctx_ser->data);
997999

‎src/core/n-math.c

+1-1
Original file line numberDiff line numberDiff line change
@@ -369,7 +369,7 @@ enum {SINE, COSINE, TANGENT};
369369
**
370370
***********************************************************************/
371371
{
372-
double a, aa, b, m;
372+
double a, b, m;
373373
if (IS_INTEGER(val1) && IS_INTEGER(val2)) {
374374
REBI64 ia = VAL_INT64(val1);
375375
REBI64 ib = VAL_INT64(val2);

‎src/core/s-unicode.c

+3-2
Original file line numberDiff line numberDiff line change
@@ -246,14 +246,15 @@ static const char trailingBytesForUTF8[256] = {
246246
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
247247
2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 3,3,3,3,3,3,3,3,4,4,4,4,5,5,5,5
248248
};
249-
#endif
250249
/*
251250
* Magic values subtracted from a buffer value during UTF8 conversion.
252251
* This table contains as many values as there might be trailing bytes
253252
* in a UTF-8 sequence.
254253
*/
255-
static const UTF32 offsetsFromUTF8[6] = { 0x00000000UL, 0x00003080UL, 0x000E2080UL,
254+
static const UTF32 offsetsFromUTF8[6] = { 0x00000000UL, 0x00003080UL, 0x000E2080UL,
256255
0x03C82080UL, 0xFA082080UL, 0x82082080UL };
256+
#endif
257+
257258

258259
/*
259260
* Once the bits are split out into bytes of UTF-8, this is a mask OR-ed

‎src/core/t-struct.c

+6-6
Original file line numberDiff line numberDiff line change
@@ -158,15 +158,15 @@ static get_scalar(REBSTU *stu,
158158
return FALSE;
159159
}
160160

161-
161+
#ifdef unused
162162
/***********************************************************************
163163
**
164164
*/ static void Set_Struct_Vars(REBSTU *strut, REBVAL *blk)
165165
/*
166166
***********************************************************************/
167167
{
168168
}
169-
169+
#endif
170170

171171
/***********************************************************************
172172
**
@@ -666,12 +666,12 @@ static REBOOL parse_field_type(struct Struct_Field *field, REBVAL *spec, REBVAL
666666
REBVAL *blk = VAL_BLK_DATA(data);
667667
REBINT field_idx = 0; /* for field index */
668668
u64 offset = 0; /* offset in data */
669-
REBCNT eval_idx = 0; /* for spec block evaluation */
669+
// REBCNT eval_idx = 0; /* for spec block evaluation */
670670
REBVAL *init = NULL; /* for result to save in data */
671671
REBOOL expect_init = FALSE;
672672
REBINT raw_size = -1;
673673
REBUPT raw_addr = 0;
674-
REBCNT alignment = 0;
674+
// REBCNT alignment = 0;
675675

676676
VAL_STRUCT_SPEC(out) = Copy_Series(VAL_SERIES(data));
677677
VAL_STRUCT_DATA(out) = Make_Series(1, sizeof(struct Struct_Data), FALSE);
@@ -857,8 +857,8 @@ static REBOOL parse_field_type(struct Struct_Field *field, REBVAL *spec, REBVAL
857857
/*
858858
***********************************************************************/
859859
{
860-
struct Struct_Field *field = NULL;
861-
REBCNT i = 0;
860+
// struct Struct_Field *field = NULL;
861+
// REBCNT i = 0;
862862
REBSTU *stu = &VAL_STRUCT(pvs->value);
863863
if (!IS_WORD(pvs->select)) {
864864
return PE_BAD_SELECT;

‎src/core/t-vector.c

+1-1
Original file line numberDiff line numberDiff line change
@@ -128,7 +128,7 @@ void set_vect(REBCNT bits, REBYTE *data, REBCNT n, REBI64 i, REBDEC f) {
128128

129129
void Set_Vector_Row(REBSER *ser, REBVAL *blk)
130130
{
131-
REBCNT idx = VAL_INDEX(blk);
131+
// REBCNT idx = VAL_INDEX(blk);
132132
REBCNT len = VAL_LEN(blk);
133133
REBVAL *val;
134134
REBCNT n = 0;

‎src/core/u-bincode.c

+1-1
Original file line numberDiff line numberDiff line change
@@ -225,7 +225,7 @@ static REBCNT EncodedU32_Size(u32 value) {
225225
REBVAL *val_read = D_ARG(7);
226226
REBOOL ref_into = D_REF(8);
227227
REBVAL *val_into = D_ARG(9);
228-
REBOOL ref_with = D_REF(10);
228+
// REBOOL ref_with = D_REF(10);
229229
REBVAL *val_num = D_ARG(11);
230230

231231
REBVAL *ret = D_RET;

‎src/core/u-iconv.c

+2
Original file line numberDiff line numberDiff line change
@@ -563,6 +563,7 @@ static REBYTE* get_codepage_name(REBVAL *cp)
563563
return NULL;
564564
}
565565

566+
#ifdef TO_WINDOWS
566567
/***********************************************************************
567568
**
568569
*/ static void Swap_Endianess_U16(u16 *data, REBCNT len)
@@ -576,6 +577,7 @@ static REBYTE* get_codepage_name(REBVAL *cp)
576577
data[i] = (num>>8) | (num<<8);
577578
}
578579
}
580+
#endif
579581

580582
/***********************************************************************
581583
**

‎src/os/host-main.c

+1-1
Original file line numberDiff line numberDiff line change
@@ -106,7 +106,7 @@ void Host_Crash(char *reason) {
106106
}
107107

108108
void Host_Repl() {
109-
REBOOL why_alert = TRUE;
109+
// REBOOL why_alert = TRUE;
110110

111111
#define MAX_CONT_LEVEL 1024
112112
REBYTE cont_str[] = "\x1B[1;31;49m \x1B[1;33;49m ";

‎src/os/posix/host-lib.c

+1-2
Original file line numberDiff line numberDiff line change
@@ -743,8 +743,8 @@ int pipe2(int pipefd[2], int flags); //to avoid "implicit-function-declaration"
743743
**
744744
***********************************************************************/
745745
{
746-
REBINT thread;
747746
/*
747+
REBINT thread;
748748
Task_Ready = CreateEvent(NULL, TRUE, FALSE, "REBOL_Task_Launch");
749749
if (!Task_Ready) return -1;
750750
@@ -1015,7 +1015,6 @@ static inline REBOOL Open_Pipe_Fails(int pipefd[2]) {
10151015
off_t input_size = 0;
10161016
off_t output_size = 0;
10171017
off_t err_size = 0;
1018-
int exited = 0;
10191018

10201019
/* initialize outputs */
10211020
if (output_type != NONE_TYPE

0 commit comments

Comments
 (0)