Codebase list libcryptx-perl / 9efa078
old perl compatibility Karel Miko 10 years ago
3 changed file(s) with 9 addition(s) and 3 deletion(s). Raw diff Collapse all Expand all
00 #include "EXTERN.h"
11 #include "perl.h"
22 #include "XSUB.h"
3
4 #define NEED_sv_2pvbyte
5 #define NEED_sv_2pv_flags_GLOBAL
6 #include "ppport.h"
37
48 #undef LTC_SOURCE
59 #include "tomcrypt.h"
212212 int x;
213213 ulong64 A, B;
214214
215 // LTC_ARGCHK(key != NULL);
216 // LTC_ARGCHK(skey != NULL);
215 /*
216 LTC_ARGCHK(key != NULL);
217 LTC_ARGCHK(skey != NULL);
218 */
217219
218220 /* Valid sizes (in bytes) are 16, 24, 32 */
219221 if (keylen != 16 && keylen != 24 && keylen != 32) {
171171 }
172172
173173 } else {
174 // B_0 != NULL
174 /* B_0 != NULL */
175175 XMEMCPY(PAD, B_0, 16);
176176 }
177177