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
23834920
Commit
23834920
authored
Jan 21, 2009
by
John van Groningen
Browse files
remove set_return_code_pst
parent
65cc2600
Changes
3
Hide whitespace changes
Inline
Side-by-side
Win/PlatformObjectIO.icl
View file @
23834920
...
...
@@ -6,6 +6,7 @@ import set_return_code
import
StdPSt
from
UtilIO
import
GetLongPathName
import
StdIOCommon
from
IdeState
import
app_world_instead_of_ps
,
ioStGetWorld
,
ioStSetWorld
cl_args
=:
getCommandLine
...
...
@@ -27,7 +28,7 @@ initPlatformCommandLineArguments ps
pAbort
::
!(
PSt
.
a
)
->
PSt
.
a
pAbort
ps
=
set_return_code_
pst
(
-1
)
ps
=
app_world_instead_of_ps
(
set_return_code_
world
(
-1
)
)
ps
installPlatformEventHandlers
::
!*(
PSt
.
l
)
->
*(
PSt
.
l
)
installPlatformEventHandlers
ps
...
...
Win/set_return_code.dcl
View file @
23834920
definition
module
set_return_code
from
StdPSt
import
::
PSt
::
*
UniqueWorld
:==
World
set_return_code_world
::
!
Int
!
UniqueWorld
->
UniqueWorld
set_return_code_pst
::
!
Int
!(
PSt
.
l
)
->
PSt
.
l
set_return_code_world
::
!
Int
!*
World
->
*
World
Win/set_return_code.icl
View file @
23834920
...
...
@@ -2,18 +2,13 @@ implementation module set_return_code;
import
code
from
"c_set_return_code."
;
import
StdString
;
import
StdPSt
;
::
*
UniqueWorld
:==
World
;
set_return_code_world
::
!
Int
!
UniqueWorld
->
UniqueWorld
;
set_return_code_world
::
!
Int
!*
World
->
*
World
;
set_return_code_world
a0
a1
=
code {
ccall
set_return_code
"I:V:A"
fill_a
0
1
pop_a
1
}
/*
set_return_code_pst :: !Int !(PSt .l) -> PSt .l;
set_return_code_pst a0 a1 = set_return_code_a a0 a1;
...
...
@@ -21,5 +16,5 @@ set_return_code_a :: !Int !.a -> .a;
set_return_code_a a0 a1 = code {
ccall set_return_code "I:V:A"
}
*/
// void set_return_code (int return_code);
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