? paflof-64bit.diff
Index: paflof.c
===================================================================
RCS file: /srv/cvs/openbios/paflof/paflof.c,v
retrieving revision 1.6
diff -u -r1.6 paflof.c
--- paflof.c	2002/05/30 04:11:05	1.6
+++ paflof.c	2002/06/03 15:40:39
@@ -64,10 +64,10 @@
 		cell *p;
 
 		for (p = interpreter->data_stack; p <= dp; p++)
-			fprintf(stderr, "%x ", p->n);
+			fprintf(stderr, "%lx ", (unsigned long)(p->n));
 		fprintf(stderr, "  R: ");
 		for (p = rp; p >= interpreter->return_stack; p--)
-			fprintf(stderr, "%x ", p->n);
+			fprintf(stderr, "%lx ", (unsigned long)(p->n));
 		fprintf(stderr, "\n");
 	}
 	
@@ -134,13 +134,13 @@
 	int i;
 	struct interpreter *interpreter;
 
-fprintf(stderr, "SANITY CHECK: (%d==1 %d==2 %d==4 %d==%d==%d %d==%d %d==%d)\n", 
-sizeof(type_c),
-sizeof(type_w),
-sizeof(type_l),
-sizeof(type_n), sizeof(type_u), sizeof(void *),
-sizeof(type_d), sizeof(type_du),
-sizeof(type_d), 2*sizeof(type_n)
+fprintf(stderr, "SANITY CHECK: (%ld==1 %ld==2 %ld==4 %ld==%ld==%ld %ld==%ld %ld==%ld)\n", 
+(unsigned long)sizeof(type_c),
+(unsigned long)sizeof(type_w),
+(unsigned long)sizeof(type_l),
+(unsigned long)sizeof(type_n), (unsigned long)sizeof(type_u), (unsigned long)sizeof(void *),
+(unsigned long)sizeof(type_d), (unsigned long)sizeof(type_du),
+(unsigned long)sizeof(type_d), (unsigned long)(2*sizeof(type_n))
 );
 
 	init_terminal();
@@ -148,7 +148,8 @@
 	interpreter = init_engine();
 	for (i = 0; i < 1; i++) run_engine(interpreter);
 { cell *p;
-for (p = interpreter->dictionary; (void *)p < interpreter->here; p++) fprintf(stderr, "%p: 0x%0*x\n", p, 2 * CELLSIZE, p->u);
+for (p = interpreter->dictionary; (void *)p < interpreter->here; p++)
+	fprintf(stderr, "%p: 0x%0*lx\n", p, (unsigned long)(2 * CELLSIZE), (unsigned long)(p->u));
 }
 	fini_engine(interpreter);