thisOffset :: SemanticUnit -> Int
thisOffset su = case kd of
                    Class -> -1
                    Method _ -> -1 - (length syms)
                    _ -> thisOffset (inheritFrom su)
    where
        kd = kind su
        syms = symbolTable su
thisOffset :: SemanticUnit -> Int
thisOffset su = case kd of
                    Class -> -1
                    Method _ -> -1 - (length syms)
                    _ -> thisOffset (inheritFrom su)
    where
        kd = kind su
        syms = symbolTable su
thisOffset su = case kd of
                    Class -> -1
                    Method _ -> -1 - (length syms)
                    _ -> thisOffset (inheritFrom su)
    where
        kd = kind su
        syms = symbolTable su