Commit 2a46e1dd authored by bp's avatar bp

Add padding to polygon pointer

git-svn-id: https://forth-ev.de/repos/bigforth@1748 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent e0137afe
......@@ -241,7 +241,7 @@ Variable (poly#
: wsat ( n -- w ) $7FFF min -$8000 max ;
: <poly ( x y -- x y ) (poly# off (poly' @ 0=
IF $1000 NewPtr (poly' !
IF $1010 NewPtr (poly' !
[defined] win32 [IF] $2008 NewPtr (poly'' ! (poly' @ off [THEN]
THEN 2dup (lastp 2! ;
: poly' ( -- addr ) (poly' @ (poly# @ cells + ;
......
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