[Win32forth-cvs] win32forth/src Dc.f,1.7,1.8

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4294/win32forth/src

Modified Files:
	Dc.f 
Log Message:
gah: optimised InvertRect: to not use locals (since the stack order is already correct)

Index: Dc.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Dc.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Dc.f	8 Oct 2005 08:14:50 -0000	1.7
--- Dc.f	8 Oct 2005 11:50:36 -0000	1.8
***************
*** 278,282 ****
  \ Samstag, Oktober 08 2005 dbu
  \ Added as suggested by Larry Daniel
! :M RoundRect: { left top right bottom width height }
          height width bottom right top left hDC Call RoundRect ?win-error
          ;M
--- 278,282 ----
  \ Samstag, Oktober 08 2005 dbu
  \ Added as suggested by Larry Daniel
! :M RoundRect: { left top right bottom width height -- }
          height width bottom right top left hDC Call RoundRect ?win-error
          ;M
***************
*** 284,289 ****
  \ Samstag, Oktober 08 2005 dbu
  \ Added as suggested by Larry Daniel
! :M InvertRect: { left top right bottom  }
!         left top right bottom SetRect: FillRect
          Addrof: FillRect hDC Call InvertRect ?win-error
          ;M
--- 284,289 ----
  \ Samstag, Oktober 08 2005 dbu
  \ Added as suggested by Larry Daniel
! :M InvertRect: ( left top right bottom  -- )
!         SetRect: FillRect
          Addrof: FillRect hDC Call InvertRect ?win-error
          ;M