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

windows.dinput.constants: fix load error

Slava Pestov 2009-09-12 13:25:31 -05:00
parent c8d96aee9f
commit a217f16b88
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/windows/dinput/constants/constants.factor
View File

@ -49,7 +49,7 @@ MEMO: heap-size* ( c-type -- n ) heap-size ;
} cleave } cleave
DIOBJECTDATAFORMAT <struct-boa> ; DIOBJECTDATAFORMAT <struct-boa> ;
:: malloc-DIOBJECTDATAFORMAT-array ( struct array -- alien ) :: make-DIOBJECTDATAFORMAT-array ( struct array -- alien )
[let | alien [ array length malloc-DIOBJECTDATAFORMAT-array ] | [let | alien [ array length malloc-DIOBJECTDATAFORMAT-array ] |
array [| args i | array [| args i |
struct args <DIOBJECTDATAFORMAT> struct args <DIOBJECTDATAFORMAT>
@ -60,7 +60,7 @@ MEMO: heap-size* ( c-type -- n ) heap-size ;
: <DIDATAFORMAT> ( dwFlags dwDataSize struct rgodf-array -- alien ) : <DIDATAFORMAT> ( dwFlags dwDataSize struct rgodf-array -- alien )
[ DIDATAFORMAT heap-size DIOBJECTDATAFORMAT heap-size ] 4 ndip [ DIDATAFORMAT heap-size DIOBJECTDATAFORMAT heap-size ] 4 ndip
[ nip length ] [ malloc-DIOBJECTDATAFORMAT-array ] 2bi [ nip length ] [ make-DIOBJECTDATAFORMAT-array ] 2bi
DIDATAFORMAT <struct-boa> ; DIDATAFORMAT <struct-boa> ;
: initialize ( symbol quot -- ) : initialize ( symbol quot -- )