@@ -168,7 +168,7 @@ typedef union {
168
168
#define WRITE_BE_3 (cp , bp ) cp[0] = bp[2]; cp[1] = bp[1]; cp[2] = bp[0];
169
169
#define WRITE_BE_4 (cp , bp ) cp[0] = bp[3]; cp[1] = bp[2]; cp[2] = bp[1]; cp[3] = bp[0];
170
170
#define WRITE_BE_8 (cp , bp ) cp[0] = bp[7]; cp[1] = bp[6]; cp[2] = bp[5]; cp[3] = bp[4]; \
171
- cp[4] = bp[3]; cp[5] = bp[2]; cp[6] = bp[1]; cp[7] = bp[0];
171
+ cp[4] = bp[3]; cp[5] = bp[2]; cp[6] = bp[1]; cp[7] = bp[0];
172
172
#define WRITE_LE_2 (cp , bp ) memcpy(cp, bp, 2);
173
173
#define WRITE_LE_3 (cp , bp ) memcpy(cp, bp, 3);
174
174
#define WRITE_LE_4 (cp , bp ) memcpy(cp, bp, 4);
@@ -182,7 +182,7 @@ typedef union {
182
182
#define WRITE_LE_3 (cp , bp ) cp[0] = bp[2]; cp[1] = bp[1]; cp[2] = bp[0];
183
183
#define WRITE_LE_4 (cp , bp ) cp[0] = bp[3]; cp[1] = bp[2]; cp[2] = bp[1]; cp[3] = bp[0];
184
184
#define WRITE_LE_8 (cp , bp ) cp[0] = bp[7]; cp[1] = bp[6]; cp[2] = bp[5]; cp[3] = bp[4]; \
185
- cp[4] = bp[3]; cp[5] = bp[2]; cp[6] = bp[1]; cp[7] = bp[0];
185
+ cp[4] = bp[3]; cp[5] = bp[2]; cp[6] = bp[1]; cp[7] = bp[0];
186
186
187
187
#endif
188
188
@@ -239,19 +239,19 @@ static REBCNT EncodedU32_Size(u32 value) {
239
239
// ]
240
240
***********************************************************************/
241
241
{
242
- REBVAL * val_ctx = D_ARG (1 );
242
+ REBVAL * val_ctx = D_ARG (1 );
243
243
REBOOL ref_init = D_REF (2 );
244
244
REBVAL * val_spec = D_ARG (3 );
245
245
REBOOL ref_write = D_REF (4 );
246
- REBVAL * val_write = D_ARG (5 );
246
+ REBVAL * val_write = D_ARG (5 );
247
247
REBOOL ref_read = D_REF (6 );
248
248
REBVAL * val_read = D_ARG (7 );
249
249
REBOOL ref_into = D_REF (8 );
250
250
REBVAL * val_into = D_ARG (9 );
251
251
// REBOOL ref_with = D_REF(10);
252
252
REBVAL * val_num = D_ARG (11 );
253
253
254
- REBVAL * ret = D_RET ;
254
+ REBVAL * ret = D_RET ;
255
255
//REBVAL *buf;
256
256
REBSER * bin , * bin_new ;
257
257
REBSER * obj ;
@@ -331,7 +331,7 @@ static REBCNT EncodedU32_Size(u32 value) {
331
331
}
332
332
}
333
333
334
- if (IS_BINARY (val_ctx ) || IS_NONE (val_ctx ) || IS_INTEGER (val_ctx )) {
334
+ if (IS_BINARY (val_ctx ) || IS_NONE (val_ctx ) || IS_INTEGER (val_ctx )) {
335
335
REBVAL * ctx = Get_System (SYS_STANDARD , STD_BINCODE );
336
336
if (!IS_OBJECT (ctx )) Trap_Arg (ctx );
337
337
obj = CLONE_OBJECT (VAL_OBJ_FRAME (ctx ));
@@ -1119,8 +1119,8 @@ static REBCNT EncodedU32_Size(u32 value) {
1119
1119
ASSERT_READ_SIZE (value , cp , ep , n );
1120
1120
VAL_SET (temp , REB_INTEGER );
1121
1121
SET_INT32 (temp , ((u32 )cp [2 ] << 0 ) |
1122
- ((u32 )cp [1 ] << 8 ) |
1123
- ((u32 )cp [0 ] << 16 ));
1122
+ ((u32 )cp [1 ] << 8 ) |
1123
+ ((u32 )cp [0 ] << 16 ));
1124
1124
break ;
1125
1125
case SYM_SI24 :
1126
1126
case SYM_SI24BE :
@@ -1139,37 +1139,37 @@ static REBCNT EncodedU32_Size(u32 value) {
1139
1139
ASSERT_READ_SIZE (value , cp , ep , n );
1140
1140
VAL_SET (temp , REB_INTEGER );
1141
1141
VAL_UNT64 (temp ) = ((u64 )cp [3 ] ) |
1142
- ((u64 )cp [2 ] << 8 ) |
1143
- ((u64 )cp [1 ] << 16 ) |
1144
- ((u64 )cp [0 ] << 24 ) ;
1142
+ ((u64 )cp [2 ] << 8 ) |
1143
+ ((u64 )cp [1 ] << 16 ) |
1144
+ ((u64 )cp [0 ] << 24 ) ;
1145
1145
break ;
1146
1146
case SYM_UI32LE :
1147
1147
n = 4 ;
1148
1148
ASSERT_READ_SIZE (value , cp , ep , n );
1149
1149
VAL_SET (temp , REB_INTEGER );
1150
1150
VAL_UNT64 (temp ) = ((u64 )cp [0 ] << 0 ) |
1151
- ((u64 )cp [1 ] << 8 ) |
1152
- ((u64 )cp [2 ] << 16 ) |
1153
- ((u64 )cp [3 ] << 24 ) ;
1151
+ ((u64 )cp [1 ] << 8 ) |
1152
+ ((u64 )cp [2 ] << 16 ) |
1153
+ ((u64 )cp [3 ] << 24 ) ;
1154
1154
break ;
1155
1155
case SYM_SI32 :
1156
1156
case SYM_SI32BE :
1157
1157
n = 4 ;
1158
1158
ASSERT_READ_SIZE (value , cp , ep , n );
1159
1159
VAL_SET (temp , REB_INTEGER );
1160
1160
SET_INT32 (temp , ((i32 )cp [3 ] << 0 ) |
1161
- ((i32 )cp [2 ] << 8 ) |
1162
- ((i32 )cp [1 ] << 16 ) |
1163
- ((i32 )cp [0 ] << 24 ));
1161
+ ((i32 )cp [2 ] << 8 ) |
1162
+ ((i32 )cp [1 ] << 16 ) |
1163
+ ((i32 )cp [0 ] << 24 ));
1164
1164
break ;
1165
1165
case SYM_SI32LE :
1166
1166
n = 4 ;
1167
1167
ASSERT_READ_SIZE (value , cp , ep , n );
1168
1168
VAL_SET (temp , REB_INTEGER );
1169
1169
SET_INT32 (temp , ((i32 )cp [0 ] << 0 ) |
1170
- ((i32 )cp [1 ] << 8 ) |
1171
- ((i32 )cp [2 ] << 16 ) |
1172
- ((i32 )cp [3 ] << 24 ));
1170
+ ((i32 )cp [1 ] << 8 ) |
1171
+ ((i32 )cp [2 ] << 16 ) |
1172
+ ((i32 )cp [3 ] << 24 ));
1173
1173
break ;
1174
1174
case SYM_UI64 :
1175
1175
case SYM_UI64BE :
@@ -1450,21 +1450,21 @@ static REBCNT EncodedU32_Size(u32 value) {
1450
1450
case SYM_UI32BYTES :
1451
1451
ASSERT_READ_SIZE (value , cp , ep , 4 );
1452
1452
n = (REBCNT )(
1453
- ((u64 )cp [3 ] ) |
1454
- ((u64 )cp [2 ] << 8 ) |
1455
- ((u64 )cp [1 ] << 16 ) |
1456
- ((u64 )cp [0 ] << 24 ));
1453
+ ((u64 )cp [3 ] ) |
1454
+ ((u64 )cp [2 ] << 8 ) |
1455
+ ((u64 )cp [1 ] << 16 ) |
1456
+ ((u64 )cp [0 ] << 24 ));
1457
1457
ASSERT_READ_SIZE (value , cp , ep , n );
1458
1458
cp += 4 ;
1459
1459
VAL_INDEX (buffer_read ) += 4 ;
1460
1460
goto readNBytes ;
1461
1461
case SYM_UI32LEBYTES :
1462
1462
ASSERT_READ_SIZE (value , cp , ep , 4 );
1463
- n = (REBCNT )(
1464
- ((u64 )cp [0 ] ) |
1465
- ((u64 )cp [1 ] << 8 ) |
1466
- ((u64 )cp [2 ] << 16 ) |
1467
- ((u64 )cp [3 ] << 24 ));
1463
+ n = (REBCNT )(
1464
+ ((u64 )cp [0 ] ) |
1465
+ ((u64 )cp [1 ] << 8 ) |
1466
+ ((u64 )cp [2 ] << 16 ) |
1467
+ ((u64 )cp [3 ] << 24 ));
1468
1468
ASSERT_READ_SIZE (value , cp , ep , n );
1469
1469
cp += 4 ;
1470
1470
VAL_INDEX (buffer_read ) += 4 ;
@@ -1619,8 +1619,8 @@ static REBCNT EncodedU32_Size(u32 value) {
1619
1619
VAL_DAY (temp ) = msdt -> val .day ;
1620
1620
VAL_ZONE (temp ) = 0 ;
1621
1621
VAL_TIME (temp ) = TIME_SEC (msdt -> val .second * 2
1622
- + msdt -> val .minute * 60
1623
- + msdt -> val .hour * 3600 );
1622
+ + msdt -> val .minute * 60
1623
+ + msdt -> val .hour * 3600 );
1624
1624
break ;
1625
1625
case SYM_MSDOS_DATE :
1626
1626
n = 2 ;
@@ -1640,8 +1640,8 @@ static REBCNT EncodedU32_Size(u32 value) {
1640
1640
CLEARS (temp );
1641
1641
VAL_SET (temp , REB_TIME );
1642
1642
VAL_TIME (temp ) = TIME_SEC (mst -> time .second * 2 // this format has only 2 sec resolution!
1643
- + mst -> time .minute * 60
1644
- + mst -> time .hour * 3600 );
1643
+ + mst -> time .minute * 60
1644
+ + mst -> time .hour * 3600 );
1645
1645
break ;
1646
1646
case SYM_CROP :
1647
1647
n = 0 ;
@@ -1709,7 +1709,7 @@ static REBCNT EncodedU32_Size(u32 value) {
1709
1709
}
1710
1710
1711
1711
//printf("DS_TOP end: %x\n", DS_TOP);
1712
- return R_ARG1 ;
1712
+ return R_ARG1 ;
1713
1713
1714
1714
error :
1715
1715
Trap_Word (RE_DIALECT , SYM_BINCODE , value );
0 commit comments