OpenXM_contrib2/asir2000/builtin/ec.c - diff

Return to ec.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

version 1.1, 1999/12/03 07:39:07

version 1.2, 2000/07/13 05:08:59

Line 1

/* $OpenXM: OpenXM/src/asir99/builtin/ec.c,v 1.1.1.1 1999/11/10 08:12:25 noro Exp $ */

/* $OpenXM: OpenXM_contrib2/asir2000/builtin/ec.c,v 1.1.1.1 1999/12/03 07:39:07 noro Exp $ */

#include "ca.h"

#include "parse.h"

#include "inline.h"

Line 78 struct ftab ec_tab[] = {

{"separate_vect",Pseparate_vect,1},

{"ecm_find_match",Pecm_find_match,2},

{"ecm_set_addcounter",Pecm_set_addcounter,-1},

{"sha1",Psha1,1},

{"sha1",Psha1,-2},

#if 0

{"sha1_free",Psha1_free,1},

#endif

Line 99 Q *rp;

z = NM((Q)ARG0(arg));

n = PL(z);

l = n_bits(z);

bl = (l+7)/8;

if ( argc(arg) == 2 )

bl = QTOS((Q)ARG1(arg));

else

bl = (l+7)/8;

s = (unsigned char *)MALLOC(bl);

for ( i = 0, j = bl-1; i < n; i++ ) {

t = BD(z)[i];