- type *tp = unknown_type;
- /* removing this somehow causes errors in jack. */
- return new_rd_Const_type (db, irg, block, mode, con, tp);
+ return new_rd_Const_type (db, irg, block, mode, con, firm_unknown_type);
+}
+
+ir_node *
+new_rd_Const_long (dbg_info* db, ir_graph *irg, ir_node *block, ir_mode *mode, long value)
+{
+ return new_rd_Const(db, irg, block, mode, new_tarval_from_long(value, mode));