Commit 76740ca1 authored by bp's avatar bp
Browse files

removed superfluous and

git-svn-id: https://forth-ev.de/repos/bigforth@1681 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 833e6ec5
......@@ -453,7 +453,7 @@ Code WinProc ( R: lparam wparam msg wnd ret -- result ) R:
2drop 0 THEN r> s0 ! ( u o si ret res )
>c: R: sys-sp A#) pop OP pop UP pop SI pop
$10 # ret end-code
: >lohi ( lparam -- lo hi ) dup $FFFF and wextend swap $10 >> ;
: >lohi ( lparam -- lo hi ) dup wextend swap $10 >> ;
: hilo> ( lo hi -- lparam ) $10 << swap $FFFF and or ;
Create Xform0 $3F800000 , 0 , 0 , $3F800000 , 0 , 0 , 0 , 0 ,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment