[Scummvm-git-logs] scummvm branch-2-7 -> c7edbb86fe573e2ea1a049da08667f3d4b87e5f7

[sev-]

This automated email contains information about 1 new commit which have been
pushed to the 'scummvm' repo located at https://github.com/scummvm/scummvm .

Summary:
c7edbb86fe DIRECTOR: LINGO: Implemented mGetVM from MemoryXObj


Commit: c7edbb86fe573e2ea1a049da08667f3d4b87e5f7
    https://github.com/scummvm/scummvm/commit/c7edbb86fe573e2ea1a049da08667f3d4b87e5f7
Author: Eugene Sandulenko (sev at scummvm.org)
Date: 2023-01-31T14:39:14+01:00

Commit Message:
DIRECTOR: LINGO: Implemented mGetVM from MemoryXObj

Changed paths:
    engines/director/lingo/xlibs/memoryxobj.cpp
    engines/director/lingo/xlibs/memoryxobj.h


diff --git a/engines/director/lingo/xlibs/memoryxobj.cpp b/engines/director/lingo/xlibs/memoryxobj.cpp
index 2428366f5a3..5db6ada5d8d 100644
--- a/engines/director/lingo/xlibs/memoryxobj.cpp
+++ b/engines/director/lingo/xlibs/memoryxobj.cpp
@@ -46,6 +46,8 @@
 	I mGetLogicalPage
 	I mGetLogicalRAM
 	I mGetLowMemory
+
+	USED BY: Chop Suey (win)
  */
 
 #include "director/director.h"
@@ -67,6 +69,7 @@ static MethodProto xlibMethods[] = {
 	{ "new",					MemoryXObj::m_new,			0,	0,	300 },	// D3
 	{ "Clear",					MemoryXObj::m_clear,		0,	0,	300 },	// D3
 	{ "Purge",					MemoryXObj::m_purge,		0,	0,	400 },	// D4
+	{ "GetVM",					MemoryXObj::m_getVM,		0,  0,  300 },  // D3
 	{ nullptr, nullptr, 0, 0, 0 }
 };
 
@@ -100,4 +103,8 @@ void MemoryXObj::m_clear(int nargs) {
 void MemoryXObj::m_purge(int nargs) {
 }
 
+void MemoryXObj::m_getVM(int nargs) {
+	g_lingo->push(Datum(0)); // At least Chop Suey Win requires 0 bytes Virtual Memory for running
+}
+
 } // End of namespace Director
diff --git a/engines/director/lingo/xlibs/memoryxobj.h b/engines/director/lingo/xlibs/memoryxobj.h
index ad5f489ae2a..ba44aa3f958 100644
--- a/engines/director/lingo/xlibs/memoryxobj.h
+++ b/engines/director/lingo/xlibs/memoryxobj.h
@@ -41,6 +41,7 @@ void close(int type);
 void m_new(int nargs);
 void m_clear(int nargs);
 void m_purge(int nargs);
+void m_getVM(int nargs);
 
 } // End of namespace MemoryXObj