commit 87dbaa9a05e47f16de6c9326b2151249cf3172d8
author Ulrich Weigand <weigand@informatik.uni-erlangen.de> Tue Dec 01 13:00:05 1998 +0000
committer Alexandre Julliard <julliard@winehq.org> Tue Dec 01 13:00:05 1998 +0000
tree fffd1026fe6da26210faea536bee9afeb38b68ed
parent b9950124a1dc61b7221c754d72d474596cad4ab1

Implemented GdiFreeResources (GDI.609).

if1632/gdi.spec

diff --git a/if1632/gdi.spec b/if1632/gdi.spec
index 2501310..aab000b 100644
--- a/if1632/gdi.spec
+++ b/if1632/gdi.spec
@@ -378,7 +378,7 @@
 606 pascal16 SetMagicColors(word long word) SetMagicColors16
 607 pascal GetRegionData(word long ptr) GetRegionData16
 608 stub ExtCreateRegion
-609 stub GDIFreeResources
+609 pascal16 GdiFreeResources(long) GdiFreeResources
 610 stub GDISignalProc32
 611 stub GetRandomRgn
 612 pascal16 GetTextCharset(word) GetTextCharset16

objects/gdiobj.c

diff --git a/objects/gdiobj.c b/objects/gdiobj.c
index eba145a..6550c1b 100644
--- a/objects/gdiobj.c
+++ b/objects/gdiobj.c
@@ -948,6 +948,15 @@
 }
 
 /***********************************************************************
+ *           GdiFreeResources   (GDI.609)
+ */
+WORD WINAPI GdiFreeResources( DWORD reserve )
+{
+   return (WORD)( (int)LOCAL_CountFree( GDI_HeapSel ) * 100 /
+                  (int)LOCAL_HeapSize( GDI_HeapSel ) );
+}
+
+/***********************************************************************
  *           MulDiv16   (GDI.128)
  */
 INT16 WINAPI MulDiv16( INT16 foo, INT16 bar, INT16 baz )