phash.ph: yet another attempt at getting Perl to behave, arithmetically
[nasm/avx512.git] / test / cofftest.c
blob0ffce3e3aa6f44d24a71e90dad06284f45a651cb
1 /*
2 * test source file for assembling to COFF
3 * build with (under DJGPP, for example):
4 * nasm -f coff cofftest.asm
5 * gcc -o cofftest cofftest.c cofftest.o
6 */
8 #include <stdio.h>
10 extern int lrotate(int32_t, int);
11 extern void greet(void);
12 extern int8_t asmstr[];
13 extern void *selfptr;
14 extern void *textptr;
15 extern int integer, commvar;
17 int main(void)
20 printf("Testing lrotate: should get 0x00400000, 0x00000001\n");
21 printf("lrotate(0x00040000, 4) = 0x%08lx\n", lrotate(0x40000, 4));
22 printf("lrotate(0x00040000, 14) = 0x%08lx\n", lrotate(0x40000, 14));
24 printf("This string should read `hello, world': `%s'\n", asmstr);
26 printf("The integers here should be 1234, 1235 and 4321:\n");
27 integer = 1234;
28 commvar = 4321;
29 greet();
31 printf("These pointers should be equal: %p and %p\n", &greet, textptr);
33 printf("So should these: %p and %p\n", selfptr, &selfptr);