memcpy in vb.net (x86 only)

This is a small memcpy implementation in VB.Net (x86 only! — x64 version to follow)

#If PLATFORM = “x86″ Then
<system .Runtime.InteropServices.DllImport(”kernel32.dll”)> _
Private Shared Sub RtlMoveMemory(ByVal Destination As Int32, ByVal Source As Int32, ByVal Length As Int32)
End Sub

Public Sub MemCpy(ByVal dstbase As IntPtr, ByVal dstofs As Integer, ByVal srcbase As IntPtr, ByVal srcofs As Integer, ByVal len As Integer)
RtlMoveMemory(dstbase.ToInt32 + dstofs, srcbase.ToInt32 + srcofs, len)
End Sub

Public Sub MemCpy(ByVal dstbase As IntPtr, ByVal srcbase As IntPtr, ByVal len As Integer)
RtlMoveMemory(dstbase.ToInt32, srcbase.ToInt32, len)
End Sub

Public Sub MemCpy(ByVal dstbase As Integer, ByVal srcbase As Integer, ByVal len As Integer)
RtlMoveMemory(dstbase, srcbase, len)
End Sub
#End if

October 25, 2006 | Filed Under Uncategorized 

Comments

Comments are closed.