Implemented GdiFreeResources (GDI.609).

87dbaa9a · Ulrich Weigand · Alexandre Julliard · b9950124 · 87dbaa9a · 87dbaa9a
Commit 87dbaa9a authored Dec 01, 1998 by Ulrich Weigand Committed by Alexandre Julliard Dec 01, 1998
Hide whitespace changes
Inline Side-by-side

Showing with 10 additions and 1 deletion

gdi.spec if1632/gdi.spec +1 -1

gdiobj.c objects/gdiobj.c +9 -0

No files found.
--- a/if1632/gdi.spec
+++ b/if1632/gdi.spec
@@ -378,7 +378,7 @@ file	gdi.exe
 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

--- a/objects/gdiobj.c
+++ b/objects/gdiobj.c
@@ -948,6 +948,15 @@ DWORD WINAPI GdiSeeGdiDo( WORD wReqType, WORD wParam1, WORD wParam2,
 }

 /***********************************************************************
+ *           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 )