calling sub procedures

[kkchunghk]

I'm trying to call a sub procedure at the start of a programme as a default condition. Then send the chip to sleep. On an interrupt the same function is called. I have a error message "Reentrancy is not allowed: function 'test1' called from two threads subtest.mbas". I don't know how to resolve that apart from repeating the content of the sub procedure in the main programme. The real content for test1 is more than a few lines.

Code: Select all

program subtest
'P16f18313

dim testData as byte
' Declarations section

sub procedure test1 (dim test1Data as byte)
PORTA = test1Data 'Just dummy codes
end sub

sub procedure test2 (dim test2Data as byte)
test1(test2Data)
end sub

sub procedure interrupt
test1(testData)
end sub

main:
'   Main program
 testData = PORTA
 clearbit(INTCON,GIE) 'Disable interrupt
 test1(testData)
 
 clearbit(PIR0,INTF)
 setbit(INTCON,GIE)   'Enable interrupt
 setbit(PIE0,IOCIE)
 while TRUE
       sleep
       nop
       nop
 wend
end.

[kkchunghk]

By the way, I can't have the same library function appeared in the sub procedures and the main programme. If I have ADC_read() in both the sub procedure and the main programme, I get the same error message.

[arco]

You cannot use one sub/procedure in both main program and interrupt, because they run asynchronously.
At the least the result would be very unreliable.

Making everything re-entrant would generate a lot of extra code.