Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
C
clean-ide
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
6
Issues
6
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
clean-and-itasks
clean-ide
Commits
8f89101f
Commit
8f89101f
authored
Apr 24, 2008
by
John van Groningen
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
print record name and module name of records without pointers
(instead of "Record" with arity and "unknow module:)
parent
dba1dc4c
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
4 deletions
+6
-4
HeapProfile/ShowHeapProfile.icl
HeapProfile/ShowHeapProfile.icl
+6
-4
No files found.
HeapProfile/ShowHeapProfile.icl
View file @
8f89101f
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment