targets/LPC/plc_LPC_main.c
author edouard
Thu, 24 Feb 2011 15:54:45 +0100
changeset 579 554ba6df4ee0
parent 577 04baf6607a44
child 580 9dd978e6537c
permissions -rwxr-xr-x
Retain variable for LPC
425
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
     1
/**
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
     2
 * Yagarto specific code
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
     3
 **/
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
     4
579
554ba6df4ee0 Retain variable for LPC
edouard
parents: 577
diff changeset
     5
#include <string.h>
518
8e61b0066859 Fixed confusion about __common_ticktime type, redesigned LPC PLC timer support
edouard
parents: 502
diff changeset
     6
#include <app_glue.h>
425
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
     7
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
     8
/* provided by POUS.C */
518
8e61b0066859 Fixed confusion about __common_ticktime type, redesigned LPC PLC timer support
edouard
parents: 502
diff changeset
     9
extern unsigned long long common_ticktime__;
577
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
    10
extern unsigned long __tick;
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
    11
579
554ba6df4ee0 Retain variable for LPC
edouard
parents: 577
diff changeset
    12
extern unsigned long idLen;
554ba6df4ee0 Retain variable for LPC
edouard
parents: 577
diff changeset
    13
extern unsigned char *idBuf;
554ba6df4ee0 Retain variable for LPC
edouard
parents: 577
diff changeset
    14
554ba6df4ee0 Retain variable for LPC
edouard
parents: 577
diff changeset
    15
static unsigned char RetainedIdBuf[128] __attribute__((section (".nvolatile")));
554ba6df4ee0 Retain variable for LPC
edouard
parents: 577
diff changeset
    16
static unsigned char retain_buffer[RETAIN_BUFFER_SIZE] __attribute__((section (".nvolatile")));
554ba6df4ee0 Retain variable for LPC
edouard
parents: 577
diff changeset
    17
577
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
    18
static int debug_locked = 0;
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
    19
static int _DebugDataAvailable = 0;
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
    20
static unsigned long __debug_tick;
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
    21
518
8e61b0066859 Fixed confusion about __common_ticktime type, redesigned LPC PLC timer support
edouard
parents: 502
diff changeset
    22
void LPC_GetTime(IEC_TIME*);
8e61b0066859 Fixed confusion about __common_ticktime type, redesigned LPC PLC timer support
edouard
parents: 502
diff changeset
    23
void LPC_SetTimer(unsigned long long next, unsigned long long period);
425
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    24
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    25
long AtomicCompareExchange(long* atomicvar,long compared, long exchange)
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    26
{
518
8e61b0066859 Fixed confusion about __common_ticktime type, redesigned LPC PLC timer support
edouard
parents: 502
diff changeset
    27
	/* No need for real atomic op on LPC,
8e61b0066859 Fixed confusion about __common_ticktime type, redesigned LPC PLC timer support
edouard
parents: 502
diff changeset
    28
	 * no possible preemption between debug and PLC */
8e61b0066859 Fixed confusion about __common_ticktime type, redesigned LPC PLC timer support
edouard
parents: 502
diff changeset
    29
	long res = *atomicvar;
8e61b0066859 Fixed confusion about __common_ticktime type, redesigned LPC PLC timer support
edouard
parents: 502
diff changeset
    30
	if(res == compared){
8e61b0066859 Fixed confusion about __common_ticktime type, redesigned LPC PLC timer support
edouard
parents: 502
diff changeset
    31
		*atomicvar = exchange;
8e61b0066859 Fixed confusion about __common_ticktime type, redesigned LPC PLC timer support
edouard
parents: 502
diff changeset
    32
	}
8e61b0066859 Fixed confusion about __common_ticktime type, redesigned LPC PLC timer support
edouard
parents: 502
diff changeset
    33
	return res;
425
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    34
}
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    35
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    36
void PLC_GetTime(IEC_TIME *CURRENT_TIME)
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    37
{
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    38
	/* Call target GetTime function */
518
8e61b0066859 Fixed confusion about __common_ticktime type, redesigned LPC PLC timer support
edouard
parents: 502
diff changeset
    39
	LPC_GetTime(CURRENT_TIME);
425
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    40
}
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    41
518
8e61b0066859 Fixed confusion about __common_ticktime type, redesigned LPC PLC timer support
edouard
parents: 502
diff changeset
    42
void PLC_SetTimer(unsigned long long next, unsigned long long period)
425
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    43
{
518
8e61b0066859 Fixed confusion about __common_ticktime type, redesigned LPC PLC timer support
edouard
parents: 502
diff changeset
    44
	LPC_SetTimer(next, period);
425
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    45
}
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    46
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    47
int startPLC(int argc,char **argv)
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    48
{
518
8e61b0066859 Fixed confusion about __common_ticktime type, redesigned LPC PLC timer support
edouard
parents: 502
diff changeset
    49
	if(__init(argc,argv) == 0){
579
554ba6df4ee0 Retain variable for LPC
edouard
parents: 577
diff changeset
    50
        /* sign retain buffer */
554ba6df4ee0 Retain variable for LPC
edouard
parents: 577
diff changeset
    51
        memcpy(RetainedIdBuf, idBuf, idLen);
518
8e61b0066859 Fixed confusion about __common_ticktime type, redesigned LPC PLC timer support
edouard
parents: 502
diff changeset
    52
		PLC_SetTimer(0, common_ticktime__);
425
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    53
		return 0;
518
8e61b0066859 Fixed confusion about __common_ticktime type, redesigned LPC PLC timer support
edouard
parents: 502
diff changeset
    54
	}else{
425
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    55
		return 1;
518
8e61b0066859 Fixed confusion about __common_ticktime type, redesigned LPC PLC timer support
edouard
parents: 502
diff changeset
    56
	}
425
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    57
}
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    58
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    59
int TryEnterDebugSection(void)
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    60
{
577
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
    61
    if(!debug_locked && __DEBUG){
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
    62
        debug_locked = 1;
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
    63
		return 1;
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
    64
    }
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
    65
    return 0;
425
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    66
}
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    67
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    68
void LeaveDebugSection(void)
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    69
{
577
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
    70
        debug_locked = 0;
425
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    71
}
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    72
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    73
int stopPLC(void)
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    74
{
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    75
    __cleanup();
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    76
    return 0;
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    77
}
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    78
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    79
/* from plc_debugger.c */
452
2d0718a05cc7 Reflect changes in iec type definitions in matiec/lib
edouard
parents: 425
diff changeset
    80
int WaitDebugData(unsigned long *tick)
425
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    81
{
577
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
    82
    /* no blocking call on LPC */
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
    83
    if(_DebugDataAvailable && !debug_locked){
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
    84
        /* returns 0 on success */
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
    85
        *tick = __debug_tick;
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
    86
        _DebugDataAvailable = 0;
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
    87
        return 0;
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
    88
    }
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
    89
    return 1;
425
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    90
}
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    91
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    92
/* Called by PLC thread when debug_publish finished
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    93
 * This is supposed to unlock debugger thread in WaitDebugData*/
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    94
void InitiateDebugTransfer(void)
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    95
{
577
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
    96
    /* remember tick */
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
    97
    __debug_tick = __tick;
502
5343ae43f6d0 LPC connector - one step further
edouard
parents: 497
diff changeset
    98
    _DebugDataAvailable = 1;
425
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
    99
}
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
   100
502
5343ae43f6d0 LPC connector - one step further
edouard
parents: 497
diff changeset
   101
void suspendDebug(int disable)
425
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
   102
{
577
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
   103
    /* Prevent PLC to enter debug code */
502
5343ae43f6d0 LPC connector - one step further
edouard
parents: 497
diff changeset
   104
    __DEBUG = !disable;
577
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
   105
    debug_locked = !disable;
425
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
   106
}
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
   107
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
   108
void resumeDebug(void)
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
   109
{
577
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
   110
    /* Let PLC enter debug code */
502
5343ae43f6d0 LPC connector - one step further
edouard
parents: 497
diff changeset
   111
    __DEBUG = 1;
577
04baf6607a44 LPC : Completed initial debug support
edouard
parents: 521
diff changeset
   112
    debug_locked = 0;
425
f390e9fdd2cf Add new target (Makefile)
greg
parents:
diff changeset
   113
}
483
bc26c42d2eec fixed greg's crap in win32, enhanced debug stability, implemented preliminary retain
edouard
parents: 478
diff changeset
   114
521
02cb9e5fb6f6 LPC transfer tested, added PLCInfo along MD5 checksum while invoking makefile
edouard
parents: 518
diff changeset
   115
int CheckRetainBuffer(void)
02cb9e5fb6f6 LPC transfer tested, added PLCInfo along MD5 checksum while invoking makefile
edouard
parents: 518
diff changeset
   116
{
579
554ba6df4ee0 Retain variable for LPC
edouard
parents: 577
diff changeset
   117
	/* compare RETAIN ID buffer with MD5 */
554ba6df4ee0 Retain variable for LPC
edouard
parents: 577
diff changeset
   118
    /* return true if identical */
554ba6df4ee0 Retain variable for LPC
edouard
parents: 577
diff changeset
   119
    int res = memcmp(RetainedIdBuf, idBuf, idLen) == 0;
554ba6df4ee0 Retain variable for LPC
edouard
parents: 577
diff changeset
   120
    /* invalidate that buffer, might help when value cause PLC crash before next publish */
554ba6df4ee0 Retain variable for LPC
edouard
parents: 577
diff changeset
   121
    RetainedIdBuf[0] = 0;
554ba6df4ee0 Retain variable for LPC
edouard
parents: 577
diff changeset
   122
    return res;
554ba6df4ee0 Retain variable for LPC
edouard
parents: 577
diff changeset
   123
521
02cb9e5fb6f6 LPC transfer tested, added PLCInfo along MD5 checksum while invoking makefile
edouard
parents: 518
diff changeset
   124
}
02cb9e5fb6f6 LPC transfer tested, added PLCInfo along MD5 checksum while invoking makefile
edouard
parents: 518
diff changeset
   125
483
bc26c42d2eec fixed greg's crap in win32, enhanced debug stability, implemented preliminary retain
edouard
parents: 478
diff changeset
   126
void Retain(unsigned int offset, unsigned int count, void *p)
497
ed7f72fc785f Typo in LPC
edouard
parents: 483
diff changeset
   127
{
579
554ba6df4ee0 Retain variable for LPC
edouard
parents: 577
diff changeset
   128
    if(offset + count < RETAIN_BUFFER_SIZE)
554ba6df4ee0 Retain variable for LPC
edouard
parents: 577
diff changeset
   129
        /* write in RETAIN buffer at offset*/
554ba6df4ee0 Retain variable for LPC
edouard
parents: 577
diff changeset
   130
        memcpy(&retain_buffer[offset], p, count);
483
bc26c42d2eec fixed greg's crap in win32, enhanced debug stability, implemented preliminary retain
edouard
parents: 478
diff changeset
   131
}
bc26c42d2eec fixed greg's crap in win32, enhanced debug stability, implemented preliminary retain
edouard
parents: 478
diff changeset
   132
bc26c42d2eec fixed greg's crap in win32, enhanced debug stability, implemented preliminary retain
edouard
parents: 478
diff changeset
   133
void Remind(unsigned int offset, unsigned int count, void *p)
bc26c42d2eec fixed greg's crap in win32, enhanced debug stability, implemented preliminary retain
edouard
parents: 478
diff changeset
   134
{
579
554ba6df4ee0 Retain variable for LPC
edouard
parents: 577
diff changeset
   135
    if(offset + count < RETAIN_BUFFER_SIZE)
554ba6df4ee0 Retain variable for LPC
edouard
parents: 577
diff changeset
   136
        /* read at offset in RETAIN buffer */
554ba6df4ee0 Retain variable for LPC
edouard
parents: 577
diff changeset
   137
        memcpy(p, &retain_buffer[offset], count);
483
bc26c42d2eec fixed greg's crap in win32, enhanced debug stability, implemented preliminary retain
edouard
parents: 478
diff changeset
   138
}