@@ -8,7 +8,7 @@ function $$eval(_bdd, vars) {
88 if ( typeof bdd === "number" ) {
99 return bdd === 0 ;
1010 }
11- if ( Caml_array . caml_array_get ( vars , bdd . _1 ) ) {
11+ if ( Caml_array . get ( vars , bdd . _1 ) ) {
1212 _bdd = bdd . _3 ;
1313 continue ;
1414 }
@@ -72,16 +72,16 @@ function resize(newSize) {
7272 } ;
7373 }
7474 var ind = hashVal ( getId ( n . _0 ) , getId ( n . _3 ) , n . _1 ) & newSz_1 ;
75- Caml_array . caml_array_set ( newArr , ind , {
75+ Caml_array . set ( newArr , ind , {
7676 hd : n ,
77- tl : Caml_array . caml_array_get ( newArr , ind )
77+ tl : Caml_array . get ( newArr , ind )
7878 } ) ;
7979 _bucket = bucket . tl ;
8080 continue ;
8181 } ;
8282 } ;
8383 for ( var n = 0 , n_finish = sz_1 . contents ; n <= n_finish ; ++ n ) {
84- copyBucket ( Caml_array . caml_array_get ( arr , n ) ) ;
84+ copyBucket ( Caml_array . get ( arr , n ) ) ;
8585 }
8686 htab . contents = newArr ;
8787 sz_1 . contents = newSz_1 ;
@@ -90,7 +90,7 @@ function resize(newSize) {
9090
9191function insert ( idl , idh , v , ind , bucket , newNode ) {
9292 if ( n_items . contents <= sz_1 . contents ) {
93- Caml_array . caml_array_set ( htab . contents , ind , {
93+ Caml_array . set ( htab . contents , ind , {
9494 hd : newNode ,
9595 tl : bucket
9696 } ) ;
@@ -99,9 +99,9 @@ function insert(idl, idh, v, ind, bucket, newNode) {
9999 }
100100 resize ( ( sz_1 . contents + sz_1 . contents | 0 ) + 2 | 0 ) ;
101101 var ind$1 = hashVal ( idl , idh , v ) & sz_1 . contents ;
102- return Caml_array . caml_array_set ( htab . contents , ind$1 , {
102+ return Caml_array . set ( htab . contents , ind$1 , {
103103 hd : newNode ,
104- tl : Caml_array . caml_array_get ( htab . contents , ind$1 )
104+ tl : Caml_array . get ( htab . contents , ind$1 )
105105 } ) ;
106106}
107107
@@ -120,7 +120,7 @@ function mkNode(low, v, high) {
120120 return low ;
121121 }
122122 var ind = hashVal ( idl , idh , v ) & sz_1 . contents ;
123- var bucket = Caml_array . caml_array_get ( htab . contents , ind ) ;
123+ var bucket = Caml_array . get ( htab . contents , ind ) ;
124124 var _b = bucket ;
125125 while ( true ) {
126126 var b = _b ;
@@ -199,12 +199,12 @@ function not(n) {
199199 }
200200 var id = n . _2 ;
201201 var h = id % 1999 ;
202- if ( id === Caml_array . caml_array_get ( notslot1 , h ) ) {
203- return Caml_array . caml_array_get ( notslot2 , h ) ;
202+ if ( id === Caml_array . get ( notslot1 , h ) ) {
203+ return Caml_array . get ( notslot2 , h ) ;
204204 }
205205 var f = mkNode ( not ( n . _0 ) , n . _1 , not ( n . _3 ) ) ;
206- Caml_array . caml_array_set ( notslot1 , h , id ) ;
207- Caml_array . caml_array_set ( notslot2 , h , f ) ;
206+ Caml_array . set ( notslot1 , h , id ) ;
207+ Caml_array . set ( notslot2 , h , f ) ;
208208 return f ;
209209}
210210
@@ -232,8 +232,8 @@ function and2(n1, n2) {
232232 var v2 = n2 . _1 ;
233233 var l2 = n2 . _0 ;
234234 var h = hash ( i1 , i2 ) ;
235- if ( i1 === Caml_array . caml_array_get ( andslot1 , h ) && i2 === Caml_array . caml_array_get ( andslot2 , h ) ) {
236- return Caml_array . caml_array_get ( andslot3 , h ) ;
235+ if ( i1 === Caml_array . get ( andslot1 , h ) && i2 === Caml_array . get ( andslot2 , h ) ) {
236+ return Caml_array . get ( andslot3 , h ) ;
237237 }
238238 var match = cmpVar ( v1 , v2 ) ;
239239 var f ;
@@ -249,9 +249,9 @@ function and2(n1, n2) {
249249 break ;
250250
251251 }
252- Caml_array . caml_array_set ( andslot1 , h , i1 ) ;
253- Caml_array . caml_array_set ( andslot2 , h , i2 ) ;
254- Caml_array . caml_array_set ( andslot3 , h , f ) ;
252+ Caml_array . set ( andslot1 , h , i1 ) ;
253+ Caml_array . set ( andslot2 , h , i2 ) ;
254+ Caml_array . set ( andslot3 , h , f ) ;
255255 return f ;
256256}
257257
@@ -279,8 +279,8 @@ function xor(n1, n2) {
279279 var v2 = n2 . _1 ;
280280 var l2 = n2 . _0 ;
281281 var h = hash ( i1 , i2 ) ;
282- if ( i1 === Caml_array . caml_array_get ( andslot1 , h ) && i2 === Caml_array . caml_array_get ( andslot2 , h ) ) {
283- return Caml_array . caml_array_get ( andslot3 , h ) ;
282+ if ( i1 === Caml_array . get ( andslot1 , h ) && i2 === Caml_array . get ( andslot2 , h ) ) {
283+ return Caml_array . get ( andslot3 , h ) ;
284284 }
285285 var match = cmpVar ( v1 , v2 ) ;
286286 var f ;
@@ -296,9 +296,9 @@ function xor(n1, n2) {
296296 break ;
297297
298298 }
299- Caml_array . caml_array_set ( andslot1 , h , i1 ) ;
300- Caml_array . caml_array_set ( andslot2 , h , i2 ) ;
301- Caml_array . caml_array_set ( andslot3 , h , f ) ;
299+ Caml_array . set ( andslot1 , h , i1 ) ;
300+ Caml_array . set ( andslot2 , h , i2 ) ;
301+ Caml_array . set ( andslot3 , h , f ) ;
302302 return f ;
303303}
304304
@@ -332,7 +332,7 @@ function random(param) {
332332function random_vars ( n ) {
333333 var vars = Caml_array . caml_make_vect ( n , false ) ;
334334 for ( var i = 0 ; i < n ; ++ i ) {
335- Caml_array . caml_array_set ( vars , i , random ( undefined ) ) ;
335+ Caml_array . set ( vars , i , random ( undefined ) ) ;
336336 }
337337 return vars ;
338338}
@@ -354,12 +354,12 @@ function bool_equal(a, b) {
354354function test_hwb ( bdd , vars ) {
355355 var ntrue = 0 ;
356356 for ( var i = 0 , i_finish = vars . length ; i < i_finish ; ++ i ) {
357- if ( Caml_array . caml_array_get ( vars , i ) ) {
357+ if ( Caml_array . get ( vars , i ) ) {
358358 ntrue = ntrue + 1 | 0 ;
359359 }
360360
361361 }
362- return bool_equal ( $$eval ( bdd , vars ) , ntrue > 0 ? Caml_array . caml_array_get ( vars , ntrue - 1 | 0 ) : false ) ;
362+ return bool_equal ( $$eval ( bdd , vars ) , ntrue > 0 ? Caml_array . get ( vars , ntrue - 1 | 0 ) : false ) ;
363363}
364364
365365function main ( param ) {
0 commit comments