- fix type casts on 64bit archs

[packages/Firebird.git] / Firebird-64bit.patch

--- Firebird-2.1.2.18118-0/src/gpre/pas.cpp~	2007-02-11 10:31:45.000000000 +0100
+++ Firebird-2.1.2.18118-0/src/gpre/pas.cpp	2009-07-02 23:08:50.683040590 +0200
@@ -1931,7 +1931,7 @@
 
 	args.pat_database = (DBB) init->nod_arg[3];
 	args.pat_vector1 = status_vector(action);
-	args.pat_value1 = (int) init->nod_arg[2];
+	args.pat_value1 = (int) (IPTR)init->nod_arg[2];
 	args.pat_value2 = (int) event_list->nod_count;
 	args.pat_string1 = GDS_EVENT_WAIT;
 	args.pat_string2 = GDS_EVENT_COUNTS;
@@ -2007,7 +2007,7 @@
 		event_init = (GPRE_NOD) event_action->act_object;
 		stack_name = (gpre_sym*) event_init->nod_arg[0];
 		if (!strcmp(event_name->sym_string, stack_name->sym_string)) {
-			ident = (int) event_init->nod_arg[2];
+			ident = (int) (IPTR)event_init->nod_arg[2];
 			database = (DBB) event_init->nod_arg[3];
 		}
 	}