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
a1a68e8d
Commit
a1a68e8d
authored
Feb 03, 2003
by
Diederik van Arkel
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
add stack traces
parent
bdeec1a5
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
37 additions
and
2 deletions
+37
-2
Win/Clean System Files/printStackNow.obj
Win/Clean System Files/printStackNow.obj
+0
-0
Win/dodebug.dcl
Win/dodebug.dcl
+3
-1
Win/dodebug.icl
Win/dodebug.icl
+17
-1
Win/printStackNow.s
Win/printStackNow.s
+17
-0
No files found.
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
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