--- a/tests/python/c_code@c_ext/cfile.xml Thu May 02 09:42:14 2013 +0200
+++ b/tests/python/c_code@c_ext/cfile.xml Thu May 02 10:45:07 2013 +0200
@@ -11,6 +11,8 @@
<![CDATA[volatile long Lock=0;
volatile char PtoC=1,CtoP=2;
+extern long AtomicCompareExchange(long*,long, long); int Simple_C_Call(int val){
@@ -23,10 +25,10 @@
beremiz' runtime implementation */
- if(!AtomicCompareExchange(&Lock, 0, 1)){
+ if(!AtomicCompareExchange((long*)&Lock, 0, 1)){ - AtomicCompareExchange(&Lock, 1, 0);
+ AtomicCompareExchange((long*)&Lock, 1, 0); printf("C code called by Python: toC %d fromC %d\n",toC,*fromC);
@@ -36,11 +38,10 @@
int PLC_C_Call(char fromPLC, char *toPLC){
/* PLC also have to be realy carefull not to
conflict with asynchronous python access */
- if(!AtomicCompareExchange(&Lock, 0, 1)){
+ if(!AtomicCompareExchange((long*)&Lock, 0, 1)){ - AtomicCompareExchange(&Lock, 1, 0);
+ AtomicCompareExchange((long*)&Lock, 1, 0); @@ -56,9 +57,9 @@
-<![CDATA[if(!AtomicCompareExchange(&Lock, 0, 1)){
+<![CDATA[if(!AtomicCompareExchange((long*)&Lock, 0, 1)){ TestInput = CtoP + PtoC + TestOutput;
- AtomicCompareExchange(&Lock, 1, 0);
+ AtomicCompareExchange((long*)&Lock, 1, 0); --- a/tests/python/plc.xml Thu May 02 09:42:14 2013 +0200
+++ b/tests/python/plc.xml Thu May 02 10:45:07 2013 +0200
@@ -8,7 +8,7 @@
creationDateTime="2008-12-14T16:21:19"/>
<contentHeader name="Beremiz Python Support Tests"
- modificationDateTime="2013-04-25T11:47:30">
+ modificationDateTime="2013-05-02T10:44:19"> <pageSize x="1024" y="1024"/>
@@ -1161,6 +1161,7 @@
char fromPLC = GetFbVar(IN);
+ extern int PLC_C_Call(char, char *); if(PLC_C_Call(fromPLC, &toPLC)){