print record name and module name of records without pointers

(instead of "Record" with arity and "unknow module:)

HeapProfile/ShowHeapProfile.icl

@@ -240,7 +240,7 @@ Bool_name :== ("Bool","_system");
 Real_name :== ("Real","_system");
 String_name :== ("String","_system");
 StringLarge_name :== ("String(large)","_system");
-Record_name r_size :== ("Record"+++toString r_size, "unknown module");
+//Record_name r_size :== ("Record"+++toString r_size, "unknown module");
 Total_name :== ("Total","");
 
 // Module, 2nd string is module name
@@ -407,10 +407,12 @@ compute_sizes_by_node_kind header descriptors heap heap2 data text stack
 				// arity <> 0
 				# a_size=data WORD (data_offset+2);
 				| arity>=256 && a_size==0
-					# r_size=arity-256;			
+					# r_size=arity-256;
+//					  name=Record_name r_size
+					  name=record_name header data_offset data text;
 					| r_size<=2
-						= add_size_of_node_kind_and_compute_size_next_graph_by_node_kind descriptors header heap2 data text (Record_name r_size) /*("Record"+++toString r_size)*/ (1+r_size) s a bits1 bits2 heap next;
-						= add_size_of_node_kind_and_compute_size_next_graph_by_node_kind descriptors header heap2 data text (Record_name r_size) (2+r_size) s a bits1 bits2 heap next;
+						= add_size_of_node_kind_and_compute_size_next_graph_by_node_kind descriptors header heap2 data text name (1+r_size) s a bits1 bits2 heap next;
+						= add_size_of_node_kind_and_compute_size_next_graph_by_node_kind descriptors header heap2 data text name (2+r_size) s a bits1 bits2 heap next;
 					= abort "compute_size_graph_by_node_kind";
 			# (two_bits,bits1)=u_get_two_bits bits1 heap_offset;
 			| two_bits<>0