Commit 8f89101f authored by John van Groningen's avatar John van Groningen
Browse files

print record name and module name of records without pointers

(instead of "Record" with arity and "unknow module:)
parent dba1dc4c
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment