#Region Project Attributes
#AutoFlushLogs: True
#CheckArrayBounds: False
#StackBufferSize: 600
#End Region
'Ctrl+Click to open the C code folder: ide://run?File=%WINDIR%\System32\explorer.exe&Args=%PROJECT%\Objects\Src
Sub Process_Globals
Public Serial1 As Serial
Public BigArray(115200) As Byte
Public z As ULong
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
Delay (3000)
Log("AppStart")
'
RunNative ("LoadBigArray",Null)
Log ("Done in C")
For z = 0 To 115199
BigArray (z) = 0
Next
Log ("Done in B4R")
BigArray(87654) = 12
Log ("Big array value at 87654 is ",BigArray(87654))
BigArray(115199) = 24
Log ("Big array value at 115199 is ",BigArray(115199))
Log ("SizeOf BigArray is ", SizeOf(BigArray))
End Sub
#if c
void LoadBigArray (B4R::Object* o)
{
byte BigArray2[115200];
long z;
for (z = 0; z < 115199; z++)
{
BigArray2[z] = 0;
}
};
#End If