iframe-proxy | Sunbelt Computer Software

172 lines (155 loc) · 4.62 KB
﻿using System;
using System.Collections.Generic;
using System.Linq;
using System.Runtime.CompilerServices;
using System.Runtime.InteropServices;
using System.Text;
namespace MemoryModule
    internal static unsafe class CStyleMemory
        private const int magic = 0x414d_534c;
        public static unsafe void* calloc(uint nitems, uint count)
            uint size = nitems * count;
            void* voidPtr = malloc(size);
            if (voidPtr != null)
                byte* numPtr = (byte*)voidPtr;
                int index = 0;
                while (true)
                    if (index >= size)
                    numPtr[index] = 0;
                    index++;
            return voidPtr;
        public static unsafe void free(void* item)
            if ((item != null) && mem_is_valid(item))
                item = (void *)IntPtr.Subtract((IntPtr)item, 8);
                Marshal.FreeHGlobal(new IntPtr(item));
        public static unsafe void* malloc(uint size)
            void* voidPtr = Marshal.AllocHGlobal((int)(((int)size) + 8)).ToPointer();
            if (voidPtr != null)
                *((int*)voidPtr) = 0x414d_534c;
                *((uint*)(IntPtr.Add((IntPtr)voidPtr, 4))) = size;
                voidPtr = (void *)IntPtr.Add((IntPtr)voidPtr, 8);
            return voidPtr;
        private static unsafe bool mem_is_valid(void* item)
            item = (void*)IntPtr.Subtract((IntPtr)item, 8);
            return (*(((int*)item)) == 0x414d_534c);
        public static unsafe void* realloc(void* item, uint size)
            void* voidPtr;
            if (item == null)
                voidPtr = malloc(size);
            else if (size == 0)
                free(item);
                voidPtr = null;
            else if (!mem_is_valid(item))
                voidPtr = null;
            else
                uint num = *((uint*)(IntPtr.Subtract((IntPtr)item, 4)));
                if (size < num)
                    num = size;
                void* voidPtr2 = malloc(size);
                if (voidPtr2 != null)
                    int num2 = 0;
                    while (true)
                        if (num2 >= num)
                        *((byte*)(IntPtr.Add((IntPtr)voidPtr2, num2))) = *((byte*)(IntPtr.Add((IntPtr)item, num2)));
                free(item);
                voidPtr = voidPtr2;
            return voidPtr;
        [MethodImpl(MethodImplOptions.AggressiveInlining)]
        public static void* memcpy(void* __dest, void* __src, uint __n)
#if !STANDALONE
            Unsafe.CopyBlockUnaligned(__dest, __src, __n);
            // Sacrifice speed for size.
            uint _n = __n >> 3;
            uint leftOver = __n & 7;
            ulong* src = (ulong*)__src;
            ulong* dest = (ulong*)__dest;
            while (_n-- > 0)
                *dest = *src;
                ++dest;
                ++src;
            byte* srcByte = (byte*)src;
            byte* destByte = (byte*)dest;
            while (leftOver-- > 0)
                *destByte = *srcByte;
                ++destByte;
                ++srcByte;
            return __dest;
        [MethodImpl(MethodImplOptions.AggressiveInlining)]
        public static unsafe void* memset(void* __s, int __c, uint __n)
#if !STANDALONE
            Unsafe.InitBlockUnaligned(__s, (byte)__c, __n);
            byte cByte = (byte)__c;
            ulong cBlock = cByte;
            cBlock = (cBlock << 1) | cBlock;
            cBlock = (cBlock << 2) | cBlock;
            cBlock = (cBlock << 4) | cBlock;
            uint _n = __n >> 3;
            uint leftOver = __n & 7;
            ulong* src = (ulong*)__s;
            while (_n-- > 0)
                *src = cBlock;
                ++src;
            byte* srcByte = (byte*)src;
            while (leftOver-- > 0)
                *srcByte = cByte;
                ++srcByte;
            return __s;
Sunbelt Computer Software

PL/B Language Development and Support

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Sunbelt Computer Software

PL/B Language Development and Support

Uh oh!

FilesExpand file tree

CStyleMemory.cs

Latest commit

History

CStyleMemory.cs

File metadata and controls
