--- a/stage4/generate_c/generate_c_typedecl.cc Tue Jun 12 17:15:24 2012 +0100
+++ b/stage4/generate_c/generate_c_typedecl.cc Tue Jun 12 22:32:09 2012 +0200
@@ -255,7 +255,7 @@
case array_td:
if (current_basetypedeclaration == arraysubrange_bd) {
s4o_incl.print("[");
- dimension = extract_integer_value(symbol->upper_limit) - extract_integer_value(symbol->lower_limit) + 1;
+ dimension = extract_int64_value(symbol->upper_limit) - extract_int64_value(symbol->lower_limit) + 1;
print_integer_incl(dimension);
s4o_incl.print("]");
}