Code: Select all
type
TEventID = array[0..7] of Byte;
PEventID = ^TEventID;
const
USER_VNODE_SUPPORTED_EVENTS_CONSUMED: array[0..USER_MAX_VNODE_SUPPORTED_EVENTS_CONSUMED-1] of TEventID = (
($01, $01, $00, $00, $00, $00, $FF, $FF), // EVENT_EMERGENCY_STOP
($05, $02, $01, $02, $02, $00, $00, $00) // TEST
);
Code: Select all
function NMRAnetUtilities_EqualEventID(Event1, Event2: PEventID): Boolean;
var
i: Integer;
begin
…...
Code: Select all
while (EventIndex < USER_MAX_VNODE_SUPPORTED_EVENTS_CONSUMED) do
begin
if NMRAnetUtilities_EqualEventID(@USER_VNODE_SUPPORTED_EVENTS_CONSUMED[EventIndex], DataBytes) then
begin
Result := T…..
there seems to be a difference between a "data" and "cdata" in the PIC compiler. Can someone enlighten me?51 304 Syntax error: Expected "pointer to data (Event1)" but "pointer to cdata (?T7)" found opstackcore_events.mpas
How can I make this portable between all compilers?
Thanks,
Jim