TOPIC:

METHOD CheckDynMemSize() CLASS MyShell
     LOCAL nActualSizeAllocated AS DWORD
     LOCAL nActualSizeused     AS DWORD
     LOCAL nActualSizeMax     AS DWORD
     LOCAL nMaxDynAllowed     AS DWORD
     LOCAL nMaxPages             AS DWORD
     LOCAL nNewSizeInPages    AS DWORD
     LOCAL nNewSizeInBytes    AS DWORD
     LOCAL nUsed, nMax, nCheck  AS DWORD
      //STATIC aIamUsingMemory:= {}   as Array
     STATIC lBusy AS LOGIC
     IF ! lBusy
         lBusy := TRUE
         // Check RegisterAxit
         nUsed := Memory(MEMORY_REGISTERAXIT)
         nMax  := SetMaxRegisteredAxitMethods(0)
         nCheck := DWORD(MulDiv(LONG(nMax), 90, 100))
         //DebOut("RegisterAxit", nUsed, nCheck, nMax)
         IF nUsed > nCheck // > 90%
             DebOut("Approaching RegisterAxit limit, COLLECTFORCED")
             Sleep(2000)
             CollectForced()
             nUsed := Memory(MEMORY_REGISTERAXIT)
             IF nUsed > nCheck
                 SetMaxRegisteredAxitMethods(DWORD(nMax * 1.5)) // 50% more
             ENDIF
         ENDIF
         // Check RegisterKid
         nUsed := Memory(MEMORY_REGISTERKID)
         nMax  := SetMaxRegisteredKids(0)
         nCheck := DWORD(MulDiv(LONG(nMax), 90, 100))
         //DebOut("RegisterKid", nUsed, nCheck, nMax)
         IF nUsed > nCheck // > 90%
             DebOut("Approaching RegisterKid limit, COLLECTFORCED")
             Sleep(2000)
             CollectForced()
             nUsed := Memory(MEMORY_REGISTERKID)
             IF nUsed > nCheck
                 SetMaxRegisteredKids(DWORD(nMax * 1.5)) // 50% more
             ENDIF
         ENDIF
         // Check KidStackSize
         nUsed := Memory(MEMORY_STACKKID)
         nMax  := SetKidStackSize(0)
         nCheck := DWORD(MulDiv(LONG(nMax), 90, 100))
         //DebOut("KidStackSize", nUsed, nCheck, nMax)
         IF nUsed > nCheck // > 90%
             DebOut("Approaching KidStack limit, COLLECTFORCED")
             Sleep(2000)
             CollectForced()
             nUsed := Memory(MEMORY_STACKKID)
             IF nUsed > nCheck
                 SetKidStackSize(DWORD(nMax * 1.5)) // 50% more
             ENDIF
         ENDIF

         nMaxDynAllowed         := 1024*1024*256
         nMaxPages              := nMaxDynAllowed /0x10000
         nActualSizeAllocated := DynInfoSize() * 0x10000     // DyInfoSize returns the number of 64Kb pages
         nActualSizeused         := DynInfoUsed()
         nActualSizeMax         := SetMaxDynSize(0)
         // When we have used 80 % or more of the allocated memory, then it is time to allocate some more pages
         IF nActualSizeused > nActualSizeAllocated * 0.80
             CollectForced()
             nActualSizeused         := DynInfoUsed()
//             Debout("MaxAllowed ",nMaxDynAllowed, nMaxPages)
//             Debout("MaxDynSize ",nActualSizeMax, nActualSizeMax/0x10000)
//             Debout("DynSizeUsed",nActualSizeUsed, nActualSizeUsed/0x10000)
//             Debout("Allocated  ",nActualSizeAllocated, DynInfoSize())

             IF nActualSizeused > nActualSizeAllocated * 0.80
                 nNewSizeInPages := DynInfoSize() +32                  // 32 pages = 2 Mb pages extra
                 nNewSizeInBytes := nNewSizeInPages * 0x10000
                 //Debout("Allocating new dynamic memory, old size (in pages) ",DynInfoSize(), " new size ",nNewSizeInPages)
                 // Make sure that we do not allocate more then the DynInfoMax. If we reach that, then we need to set the max to a higher number
                 IF nNewSizeInBytes >= nActualSizeMax
                     IF nNewSizeInPages >= nMaxPages
//                         MessageBox(NULL_PTR, Cast2Psz("The program is using a lot of memory at this moment. This will have a negative effect on the performance. " + CRLF+;
//                                           "Please close some open windows when possible." +CRLF+ ;
//                                           "When you see this message repeatedly then please restart the program"), Cast2Psz("Program running low on memory"), 0)
                         //Debout("Resize Max Dyn to ", nMaxDynAllowed, nMaxDynAllowed/0x10000)
                         SetMaxDynSize(nMaxDynAllowed)   // Allocate some extra memory just to be sure
                     ELSE
                         //Debout("Resize Max Dyn to ", nNewSizeInBytes, nNewSizeInBytes/0x10000)
                         SetMaxDynSize(nNewSizeInBytes)   // Allocate some extra memory just to be sure
                         DynSize(nNewSizeInPages-1)
                     ENDIF
ELSE
                     //Debout("Allocate", nNewSizeInPages)
                     DynSize(nNewSizeInPages)
                 ENDIF

             ENDIF
         ENDIF
         lBusy := FALSE
     ENDIF
RETURN NIL

static bool LargeAware(string file) {
        using (var fs = File.Open(file, FileMode.Open, FileAccess.ReadWrite, FileShare.None)) {
            bool b = LargeAware(fs);
            fs.Close();
            return b;
        }
    }

    const int IMAGE_FILE_LARGE_ADDRESS_AWARE = 0x20;
    static bool LargeAware(Stream stream) {

        var br = new BinaryReader(stream);
        var bw = new BinaryWriter(stream);

        if (br.ReadInt16() != 0x5A4D)       //No MZ Header 
            return false;

        br.BaseStream.Position = 0x3C;
        var peloc = br.ReadInt32();         //Get the PE header location.

        br.BaseStream.Position = peloc;
        if (br.ReadInt32() != 0x4550)       //No PE header
            return false;

        br.BaseStream.Position += 0x12;
        long nFilePos = (int)br.BaseStream.Position;
        Int16 nLgaInt = br.ReadInt16();
        bool bIsLGA = (nLgaInt & IMAGE_FILE_LARGE_ADDRESS_AWARE) == IMAGE_FILE_LARGE_ADDRESS_AWARE;
        if (bIsLGA)
            return true;
        nLgaInt |= IMAGE_FILE_LARGE_ADDRESS_AWARE;
        long nFilePos1 = bw.Seek((int)nFilePos, SeekOrigin.Begin);
        bw.Write(nLgaInt);
        bw.Flush();
        long nFilePos2 = br.BaseStream.Seek(nFilePos, SeekOrigin.Begin);
        nLgaInt = br.ReadInt16();
        bIsLGA = (nLgaInt & IMAGE_FILE_LARGE_ADDRESS_AWARE) == IMAGE_FILE_LARGE_ADDRESS_AWARE;
        return bIsLGA;
    }

USING System
USING System.Collections.Generic
USING System.Linq
USING System.Text
USING System.IO

BEGIN NAMESPACE XSharpMakeLargeAddressAware
    #DEFINE IMAGE_FILE_LARGE_ADDRESS_AWARE 0x20
    
    FUNCTION Start() AS VOID
           MakeLargeAware("c:\somefolder\programname.exe")   // replace with your own exe path   
    return     

    function MakeLargeAware(file as string) as logic
        
            LOCAL b AS LOGIC
            
            begin using var fs := File.Open(file, FileMode.Open, FileAccess.ReadWrite, FileShare.None)
        
                b := LargeAware(fs)
                fs.Close()                
            end using
    return b    

       
        function LargeAware(stream as Stream) as logic
       

            var br := BinaryReader{stream}
            var bw := BinaryWriter{stream}

            if (br.ReadInt16() != 0x5A4D)       //No MZ Header
                return false
            ENDIF
            
            br:BaseStream:Position := 0x3C
            var peloc := br:ReadInt32()         //Get the PE header location.

            br:BaseStream:Position := peloc
            if (br.ReadInt32() != 0x4550)       //No PE header
                return false
            ENDIF
            
            br:BaseStream:Position += 0x12
            local nFilePos := (int)br:BaseStream:Position as longint
            local nLgaInt := br:ReadInt16() as SHORT
            local bIsLGA := (_And(nLgaInt, IMAGE_FILE_LARGE_ADDRESS_AWARE) == IMAGE_FILE_LARGE_ADDRESS_AWARE) AS LOGIC
            if (bIsLGA)
                RETURN TRUE
            ENDIF
            
            nLgaInt |= IMAGE_FILE_LARGE_ADDRESS_AWARE
            local nFilePos1 := bw:Seek((int)nFilePos, SeekOrigin.Begin) as int64
            bw.Write(nLgaInt)
            bw.Flush()
            local nFilePos2 := br:BaseStream:Seek(nFilePos, SeekOrigin.Begin) as int64
            nLgaInt := br:ReadInt16()
            bIsLGA := (nLgaInt & IMAGE_FILE_LARGE_ADDRESS_AWARE) == IMAGE_FILE_LARGE_ADDRESS_AWARE
            return bIsLGA
    
END NAMESPACE