From 032f79826c855c3e969b186cd5eab03965c6d232 Mon Sep 17 00:00:00 2001 From: malc Date: Tue, 11 Nov 2008 02:20:46 +0300 Subject: [PATCH] Use check32 instead of more generic cmp --- anb.ml | 2 +- skb.ml | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/anb.ml b/anb.ml index 07c019f..1cfdc65 100644 --- a/anb.ml +++ b/anb.ml @@ -123,7 +123,7 @@ let r xff sbufxff = let sectpos = xff.Xff.sections.(1).Xff.off in let sectbuf = Xff.sbufplus sbufxff sectpos in let anbbuf = Xff.sbufplus sectbuf xff.Xff.entry in - if not (Xff.cmp anbbuf (`dwords [12l])) + if not (Xff.check32 anbbuf 0 12l) then Xff.sbuferr anbbuf 0 "bad anb signature" ; diff --git a/skb.ml b/skb.ml index 379ce43..0dac570 100644 --- a/skb.ml +++ b/skb.ml @@ -21,7 +21,7 @@ let r1 xff sbufxff = let sectpos = xff.Xff.sections.(1).Xff.off in let sectbuf = Xff.sbufplus sbufxff sectpos in let skbbuf = Xff.sbufplus sectbuf xff.Xff.entry in - if not (Xff.cmp skbbuf (`dwords [1l])) + if not (Xff.check32 skbbuf 0 1l) then Xff.sbuferr skbbuf 0 "bad skb signature" ; -- 2.11.4.GIT