[svn:parrot] r49604 - trunk/config/gen/platform/win32
bacek at svn.parrot.org
bacek at svn.parrot.org
Wed Oct 20 09:35:32 UTC 2010
Author: bacek
Date: Wed Oct 20 09:35:31 2010
New Revision: 49604
URL: https://trac.parrot.org/parrot/changeset/49604
Log:
Second blind commit to fix win32 build based on http://www.perlmonks.org/?node_id=749964
Modified:
trunk/config/gen/platform/win32/sysmem.c
Modified: trunk/config/gen/platform/win32/sysmem.c
==============================================================================
--- trunk/config/gen/platform/win32/sysmem.c Wed Oct 20 09:14:44 2010 (r49603)
+++ trunk/config/gen/platform/win32/sysmem.c Wed Oct 20 09:35:31 2010 (r49604)
@@ -26,6 +26,22 @@
#include <windows.h>
#include <stdio.h>
+/* Solution copied from http://www.perlmonks.org/?node_id=749964 */
+#ifndef _MSC_VER
+typedef struct _MEMORYSTATUSEX {
+ DWORD dwLength;
+ DWORD dwMemoryLoad;
+ DWORDLONG ullTotalPhys;
+ DWORDLONG ullAvailPhys;
+ DWORDLONG ullTotalPageFile;
+ DWORDLONG ullAvailPageFile;
+ DWORDLONG ullTotalVirtual;
+ DWORDLONG ullAvailVirtual;
+ DWORDLONG ullAvailExtendedVirtual;
+} MEMORYSTATUSEX,*LPMEMORYSTATUSEX;
+
+WINBASEAPI BOOL WINAPI GlobalMemoryStatusEx(LPMEMORYSTATUSEX);
+
/*
=item C<PMC * Parrot_sysmem_amount(PARROT_INTERP)>
@@ -36,6 +52,8 @@
*/
+
+
size_t
Parrot_sysmem_amount(PARROT_INTERP)
{
More information about the parrot-commits
mailing list