Skip to content
GitLab
Menu
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
a1a68e8d
Commit
a1a68e8d
authored
Feb 03, 2003
by
Diederik van Arkel
Browse files
add stack traces
parent
bdeec1a5
Changes
4
Hide whitespace changes
Inline
Side-by-side
Win/Clean System Files/printStackNow.obj
0 → 100644
View file @
a1a68e8d
File added
Win/dodebug.dcl
View file @
a1a68e8d
...
...
@@ -36,4 +36,6 @@ listToString :: [x] -> String | toString x
//instance toString (WItemHandle .ls .ps)
instance
toString
WElementHandle`
instance
toString
WItemHandle`
instance
toString
UpdateInfo
\ No newline at end of file
instance
toString
UpdateInfo
printStackNow
::
!
Int
->
Int
Win/dodebug.icl
View file @
a1a68e8d
...
...
@@ -196,4 +196,20 @@ instance toString UpdateInfo where
","
+++
toString
info
.
updWindowArea
+++
// "," +++ toString info.updControls+++
","
+++
toString
info
.
updGContext
+++
"}"
\ No newline at end of file
"}"
import
code
from
"printStackNow.obj"
printStackNow
::
!
Int
->
Int
// in 2.0.2 only works with stack trace only...
printStackNow
stackDepth
=
code {
ccall
printStackNow
"I:I"
}
/*
Start = testPS 8
testPS n
| n == 0 = printStackNow 10
| testPS (dec n) == 0 = 0
= 1
*/
Win/printStackNow.s
0 → 100644
View file @
a1a68e8d
.
model
small
.
code
public
_printStackNow
_printStackNow
:
movl
4
(%
esp
),%
eax
pushl
_stack_trace_depth
movl
%
eax
,
_stack_trace_depth
pushl
%
esi
pushl
%
edi
pushl
%
ebp
call
write_profile_stack
popl
%
ebp
popl
%
edi
popl
%
esi
popl
%
eax
movl
%
eax
,
_stack_trace_depth
ret
Write
Preview
Supports
Markdown
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