Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-ide
Commits
48ef631f
Commit
48ef631f
authored
Jun 28, 2006
by
John van Groningen
Browse files
add reading profiles for 64 bit windows
parent
e6942e52
Changes
1
Hide whitespace changes
Inline
Side-by-side
TimeProfile/ShowProfile.icl
View file @
48ef631f
...
...
@@ -315,7 +315,18 @@ where
=
error
file
#
(
ok
,
time_lo
,
file
)=
freadi
file
|
not
ok
=
error
file
#
time_lo
=
time_hi
#
time_hi
=
0
#
time
=
compute_time_function
(
time_hi
,
time_lo
,
n_profiler_calls
)
=
(
True
,
{
module_name
=
module_name
,
function_name
=
function_name
,
n_strict_calls
=
n_strict_calls
,
n_lazy_calls
=
n_lazy_calls
,
n_curried_calls
=
n_curried_calls
,
n_allocated_words
=
n_allocated_words
,
time
=
time
},
file
)
#
(
ok
,
c
,
file
)
=
freadc
file
|
not
ok
||
c
<>
'\n'
=
error
file
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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