File tree 3 files changed +18
-2
lines changed
3 files changed +18
-2
lines changed Original file line number Diff line number Diff line change @@ -47,6 +47,20 @@ if exists? opts: temp-dir/tmp-options.reb [
47
47
48
48
49
49
;-- UTILITIES ----------------------------------------------------------
50
+ ; using checksum mezzanines to be able use build scripts also with old Rebol versions
51
+ needs-new-checksum-version?: error? try [checksum #{} ]
52
+ crc24 : func [ data [binary! ]] either needs-new-checksum-version? [
53
+ [checksum data 'crc24]
54
+ ][ ; old R2 compatible:
55
+ [checksum data]
56
+ ]
57
+ ; for some reason extensions are tested agains IP checksum :-/
58
+ ipc : func [ data [binary! ]] either needs-new-checksum-version? [
59
+ [checksum data 'tcp]
60
+ ][ ; old R2 compatible:
61
+ [checksum /tcp data]
62
+ ]
63
+
50
64
51
65
error : func [ msg [string! block! ]] [
52
66
if block? msg [msg: reform msg]
Original file line number Diff line number Diff line change @@ -1184,7 +1184,7 @@ emit [
1184
1184
{
1185
1185
#define MAX_NATS } nat-count {
1186
1186
#define NAT_SPEC_SIZE } length? comp-data {
1187
- #define CHECK_TITLE } checksum to binary! title {
1187
+ #define CHECK_TITLE } crc24 to binary! title {
1188
1188
1189
1189
extern const REBYTE Native_Specs[];
1190
1190
extern const REBFUN Native_Funcs[];
Original file line number Diff line number Diff line change @@ -147,11 +147,13 @@ foreach file files [
147
147
148
148
remit "} REBOL_HOST_LIB;"
149
149
150
+ ;@@ TODO: there is used IP checksum form HOST_LIB
151
+ ;@@ but CRC24 for boot data
150
152
out: rejoin [
151
153
form-header/gen "Host Access Library" %host-lib.h %make-os-ext.reb
152
154
{
153
155
#define HOST_LIB_VER } lib-version {
154
- #define HOST_LIB_SUM } checksum /tcp to-binary xsum {
156
+ #define HOST_LIB_SUM } ipc to-binary xsum {
155
157
#define HOST_LIB_SIZE } cnt {
156
158
157
159
extern REBDEV *Devices[];
You can’t perform that action at this time.
0 commit comments