Swordfish

Code: Select all

// SF 2.2.2.5 or SF 2.2.2.5 BETA 6, ICC 1164
//
// define number of bytes in the struct
// for STRUCT_SIZE = 1, 2, or 4 the comparison works ok
// for other sizes it only compares the first two bytes
// doesn't matter if the struct contains individual items or an array
const STRUCT_SIZE = 7

structure rtc_time_t
    b(STRUCT_SIZE) as byte
end structure

dim t1, t2 as rtc_time_t
dim match as boolean

// 'clear' always gets the structure size correct
clear(t1)
clear(t2)

// structure compare doesn't always compare the correct number of bytes
if (t1 = t2) then
    match = true
endif

Code: Select all

Function Equal(a, b As Word, size As Byte) As Boolean
   result = true
   FSR0 = a
   FSR1 = b
   // etc...
End Function

If Equal(@t1, @t2, STRUCT_SIZE) Then // or sizeof(t1)
    match = true
EndIf