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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Slava Pestov 2009-09-12 14:05:18 -05:00
parent 54de7f09f6 74cebff371
commit 699695ba14
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/tools/deploy/test/test.factor Normal file → Executable file
View File

@ -12,7 +12,11 @@ IN: tools.deploy.test
: small-enough? ( n -- ? ) : small-enough? ( n -- ? )
[ "test.image" temp-file file-info size>> ] [ "test.image" temp-file file-info size>> ]
[ cell 4 / * cpu ppc? [ 100000 + ] when ] bi* [
cell 4 / *
cpu ppc? [ 100000 + ] when
os windows? [ 150000 + ] when
] bi*
<= ; <= ;
: run-temp-image ( -- ) : run-temp-image ( -- )

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 -- )