fix endian issue

cvs
Slava Pestov 2005-10-25 04:17:25 +00:00
parent cd10fc269d
commit a827a56c15
2 changed files with 8 additions and 6 deletions

View File

@ -1,6 +1,9 @@
0.79:
- fix remaining cosmetic issues in UI
- tutorial gradient does not appear
- sig11 on first startup
- fix initial font metrics being incorrect
- fix solid boundary paint
- investigate UI on Linux/x86
- swap @{ and { syntax
- get stuff in examples dir running in the ui
@ -95,6 +98,7 @@
+ kernel:
- better prettyprinting of cond
- better handling of random arrangements of html words when
prettyprinting
- friendlier .factor-rc load error handling

View File

@ -129,12 +129,10 @@ C: font ( handle -- font )
: with-locked-block ( size quot -- | quot: address -- )
swap 1 calloc [ swap call ] keep free ; inline
: b/b>w 8 shift bitor ;
: copy-pixel ( bit tex -- bit tex )
f pick alien-unsigned-1 255 b/b>w
f pick set-alien-unsigned-2
>r 1+ r> 2 + ;
255 f pick set-alien-unsigned-1 1+
f pick alien-unsigned-1
f pick set-alien-unsigned-1 >r 1+ r> 1+ ;
: (copy-row) ( bit tex bitend texend -- bitend texend )
>r pick over >= [