steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix windows stack effects

slava 2006-09-24 04:02:40 +00:00
parent 6d9f6f0246
commit 03046508d8
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/compiler/x86/assembler.factor
View File

@ -146,7 +146,7 @@ M: indirect sib-present?
M: register sib-present? drop f ; M: register sib-present? drop f ;
GENERIC: r/m GENERIC: r/m ( operand -- n )
M: indirect r/m M: indirect r/m
dup sib-present? dup sib-present?

2
library/io/windows/io-internals.factor
View File

@ -10,7 +10,7 @@ SYMBOL: io-queue
TUPLE: io-queue free-list callbacks ; TUPLE: io-queue free-list callbacks ;
TUPLE: io-callback overlapped quotation stream ; TUPLE: io-callback overlapped quotation stream ;
: expected-error? ( -- bool ) : expected-error? ( obj -- bool )
[ [
ERROR_IO_PENDING ERROR_HANDLE_EOF ERROR_SUCCESS WAIT_TIMEOUT ERROR_IO_PENDING ERROR_HANDLE_EOF ERROR_SUCCESS WAIT_TIMEOUT
997 997

4
library/ui/windows/ui.factor
View File

@ -42,7 +42,7 @@ SYMBOL: class-name
2nip 2nip
dup { 0 0 } = [ 2drop ] [ swap window set-gadget-dim ] if ; dup { 0 0 } = [ 2drop ] [ swap window set-gadget-dim ] if ;
: wm-keydown-codes ( n -- key ) : wm-keydown-codes ( -- key )
H{ H{
{ 8 "BACKSPACE" } { 8 "BACKSPACE" }
{ 9 "TAB" } { 9 "TAB" }
@ -256,7 +256,7 @@ SYMBOL: hWnd
[ do-events ui-step ] ui-try event-loop [ do-events ui-step ] ui-try event-loop
] unless ; ] unless ;
: register-wndclassex ( classname wndproc -- ) : register-wndclassex ( classname wndproc -- class )
"WNDCLASSEX" <c-object> "WNDCLASSEX" <c-object>
"WNDCLASSEX" c-size over set-WNDCLASSEX-cbSize "WNDCLASSEX" c-size over set-WNDCLASSEX-cbSize
CS_HREDRAW CS_VREDRAW bitor CS_OWNDC bitor over set-WNDCLASSEX-style CS_HREDRAW CS_VREDRAW bitor CS_OWNDC bitor over set-WNDCLASSEX-style