Program crashes with 'result'

[arco]

If I use this (pic24fj256ga108):

Code: Select all

Sub Function Func_A () As Byte
  ...
  Result = 1
End Sub

Sub Function Func_B () As Byte
  ...
  Result = 1
End Sub

Sub Function Func_C () As Byte
  ...
  Result = 1
  ...
  If Result Then
    If Func_A() Then Result = Func_B() Else Result = 0 End If
  End If
End Sub

the program crashes at this point. I then have to use a temp variable to keep result.

Code: Select all

Sub Function Func_A () As Byte
  ...
  Result = 1
End Sub

Sub Function Func_B () As Byte
  ...
  Result = 1
End Sub

Sub Function Func_C () As Byte
  ...
  Result = 1
  ...
  If Result Then
    If Func_A() Then Temp = Func_B() Else Temp = 0 End If
  End If
  Result = Temp
End Sub

It seems something goes wrong with the result of one or more subs/compiler gets confused?...
(took me a day to find that out... )

[petar.suknjaja]

Hi Peter,
I'll try to reproduce this, in meanwhile post the whole project so we could review it.
Kind regards,
Petar

[arco]

I cannot post complete code, it's proprietary...
I discovered that this also solves the problem: (same as failing code but written slightly different)

Code: Select all

  ...
  ...
  If Result Then Result = Func_A() 
  If Result Then Result = Func_B()
  End If

[petar.suknjaja]

Hi Peter,
I understand, however, I'm glad that you have found the solution for your issue.
Kind regards,
Petar