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

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