Ignore:
Timestamp:
Oct 7, 2010, 4:30:49 PM (9 years ago)
Author:
mulligan
Message:

Fixed bug with JNB not jumping correctly.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • Deliverables/D4.1/BitVectors.ml

    r162 r163  
     1open Util;;
     2
    13type bit = bool
    24type 'a vect = bit list
    … …  
    3739let from_word11 = from_byte7
    3840
    39 let get_bit index l =
     41let get_bit l index =
    4042  try
    41     List.nth index l
     43    List.nth (List.rev l) index
    4244  with (Failure _ | Invalid_argument _) -> assert false
    4345
Note: See TracChangeset for help on using the changeset viewer.