Parent Directory | Revision Log | Patch
revision 1.14 by spiralvoice, Fri Aug 26 21:12:23 2005 UTC | revision 1.15 by spiralvoice, Sun Oct 16 20:42:55 2005 UTC | |
---|---|---|
# | Line 387 module Make(M: sig | Line 387 module Make(M: sig |
387 | ||
388 | ||
389 | let up s = int_of_char s.[0] | let up s = int_of_char s.[0] |
390 | let up2 s = (int_of_char s.[0])*256+(int_of_char s.[1]) | let up2 s = ((int_of_char s.[0]) lsl 8) lor (int_of_char s.[1]) |
391 | let up3 s = (int_of_char s.[0])*65536+(int_of_char s.[1])*256+(int_of_char s.[2]) | let up3 s = ((int_of_char s.[0]) lsl 16) lor |
392 | ((int_of_char s.[1]) lsl 8) lor (int_of_char s.[2]) | |
393 | ||
394 | let enabled = true | let enabled = true |
395 | end | end |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |