@@ -35,7 +35,7 @@ var nodeC = /* record */[/* contents */1];
35
35
36
36
var sz_1 = /* record */ [ /* contents */ 8191 ] ;
37
37
38
- var htab = /* record */ [ /* contents */ Caml_array . caml_make_vect ( sz_1 [ 0 ] + 1 | 0 , /* [] */ 0 ) ] ;
38
+ var htab = /* record */ [ /* contents */ Caml_array . caml_make_vect ( sz_1 [ /* contents */ 0 ] + 1 | 0 , /* [] */ 0 ) ] ;
39
39
40
40
var n_items = /* record */ [ /* contents */ 0 ] ;
41
41
@@ -44,7 +44,7 @@ function hashVal(x, y, v) {
44
44
}
45
45
46
46
function resize ( newSize ) {
47
- var arr = htab [ 0 ] ;
47
+ var arr = htab [ /* contents */ 0 ] ;
48
48
var newSz_1 = newSize - 1 | 0 ;
49
49
var newArr = Caml_array . caml_make_vect ( newSize , /* [] */ 0 ) ;
50
50
var copyBucket = function ( _bucket ) {
@@ -74,37 +74,37 @@ function resize(newSize) {
74
74
}
75
75
} ;
76
76
} ;
77
- for ( var n = 0 , n_finish = sz_1 [ 0 ] ; n <= n_finish ; ++ n ) {
77
+ for ( var n = 0 , n_finish = sz_1 [ /* contents */ 0 ] ; n <= n_finish ; ++ n ) {
78
78
copyBucket ( Caml_array . caml_array_get ( arr , n ) ) ;
79
79
}
80
- htab [ 0 ] = newArr ;
81
- sz_1 [ 0 ] = newSz_1 ;
80
+ htab [ /* contents */ 0 ] = newArr ;
81
+ sz_1 [ /* contents */ 0 ] = newSz_1 ;
82
82
return /* () */ 0 ;
83
83
}
84
84
85
85
function insert ( idl , idh , v , ind , bucket , newNode ) {
86
- if ( n_items [ 0 ] <= sz_1 [ 0 ] ) {
87
- Caml_array . caml_array_set ( htab [ 0 ] , ind , /* :: */ [
86
+ if ( n_items [ /* contents */ 0 ] <= sz_1 [ /* contents */ 0 ] ) {
87
+ Caml_array . caml_array_set ( htab [ /* contents */ 0 ] , ind , /* :: */ [
88
88
newNode ,
89
89
bucket
90
90
] ) ;
91
- n_items [ 0 ] = n_items [ 0 ] + 1 | 0 ;
91
+ n_items [ /* contents */ 0 ] = n_items [ /* contents */ 0 ] + 1 | 0 ;
92
92
return /* () */ 0 ;
93
93
} else {
94
- resize ( ( sz_1 [ 0 ] + sz_1 [ 0 ] | 0 ) + 2 | 0 ) ;
95
- var ind$1 = hashVal ( idl , idh , v ) & sz_1 [ 0 ] ;
96
- return Caml_array . caml_array_set ( htab [ 0 ] , ind$1 , /* :: */ [
94
+ resize ( ( sz_1 [ /* contents */ 0 ] + sz_1 [ /* contents */ 0 ] | 0 ) + 2 | 0 ) ;
95
+ var ind$1 = hashVal ( idl , idh , v ) & sz_1 [ /* contents */ 0 ] ;
96
+ return Caml_array . caml_array_set ( htab [ /* contents */ 0 ] , ind$1 , /* :: */ [
97
97
newNode ,
98
- Caml_array . caml_array_get ( htab [ 0 ] , ind$1 )
98
+ Caml_array . caml_array_get ( htab [ /* contents */ 0 ] , ind$1 )
99
99
] ) ;
100
100
}
101
101
}
102
102
103
103
function resetUnique ( param ) {
104
- sz_1 [ 0 ] = 8191 ;
105
- htab [ 0 ] = Caml_array . caml_make_vect ( sz_1 [ 0 ] + 1 | 0 , /* [] */ 0 ) ;
106
- n_items [ 0 ] = 0 ;
107
- nodeC [ 0 ] = 1 ;
104
+ sz_1 [ /* contents */ 0 ] = 8191 ;
105
+ htab [ /* contents */ 0 ] = Caml_array . caml_make_vect ( sz_1 [ /* contents */ 0 ] + 1 | 0 , /* [] */ 0 ) ;
106
+ n_items [ /* contents */ 0 ] = 0 ;
107
+ nodeC [ /* contents */ 0 ] = 1 ;
108
108
return /* () */ 0 ;
109
109
}
110
110
@@ -114,8 +114,8 @@ function mkNode(low, v, high) {
114
114
if ( idl === idh ) {
115
115
return low ;
116
116
} else {
117
- var ind = hashVal ( idl , idh , v ) & sz_1 [ 0 ] ;
118
- var bucket = Caml_array . caml_array_get ( htab [ 0 ] , ind ) ;
117
+ var ind = hashVal ( idl , idh , v ) & sz_1 [ /* contents */ 0 ] ;
118
+ var bucket = Caml_array . caml_array_get ( htab [ /* contents */ 0 ] , ind ) ;
119
119
var _b = bucket ;
120
120
while ( true ) {
121
121
var b = _b ;
@@ -138,7 +138,7 @@ function mkNode(low, v, high) {
138
138
continue ;
139
139
}
140
140
} else {
141
- var n_002 = ( nodeC [ 0 ] = nodeC [ 0 ] + 1 | 0 , nodeC [ 0 ] ) ;
141
+ var n_002 = ( nodeC [ /* contents */ 0 ] = nodeC [ /* contents */ 0 ] + 1 | 0 , nodeC [ /* contents */ 0 ] ) ;
142
142
var n$1 = /* Node */ [
143
143
low ,
144
144
v ,
@@ -328,8 +328,8 @@ function hwb(n) {
328
328
var seed = /* record */ [ /* contents */ 0 ] ;
329
329
330
330
function random ( param ) {
331
- seed [ 0 ] = Caml_int32 . imul ( seed [ 0 ] , 25173 ) + 17431 | 0 ;
332
- return ( seed [ 0 ] & 1 ) > 0 ;
331
+ seed [ /* contents */ 0 ] = Caml_int32 . imul ( seed [ /* contents */ 0 ] , 25173 ) + 17431 | 0 ;
332
+ return ( seed [ /* contents */ 0 ] & 1 ) > 0 ;
333
333
}
334
334
335
335
function random_vars ( n ) {
0 commit comments