Strange Error in My Code and I don't know what to do.

[TYDQ]

These days I am using free pascal compiler latest stable version and I got some strange error.
I want to search for a symbol with Google City Hash(in unihash.pas) with my algoritm in assembly text file(system.s), but I got the error internally in my unias,like that:

Code: Text  [Select][+][-]

1. ERROR in Column 206,Row 20
2.   .size fpc_setjmp, .Le0 - fpc_setjmp
3.                     ^^^^
4. ERROR Detail:Label .Le0 does not exist in the file.

I tried to find the error,but I discovered that the hash value in same symbol (.Le0) generated former and latter is not same,does it is the error in compiler or the value management of fpc is not same?

[jamie]

Are you using generics?

[Zvoni]

the only fishy thing i could see, is that his label ".Le0:" in system.s is preceeded by an empty Label ".Lc49:" (and there are more labels like this following later on --> ".Le1" and others)

OTOH, i have no clue whatsoever about Assembler

[jamie]

I didn't look at the sample code but I do know using the generic collections I do get errors like that mainly on larger programs I do have some opinion about some of the coding practices in those collections but I'll keep that to myself for now.

[TYDQ]

Are you using generics?

No,I am not using generics but I have no clue about errors in the hash function.
So where the error occurs that one symbol with two different hash value?

[TYDQ]

the only fishy thing i could see, is that his label ".Le0:" in system.s is preceeded by an empty Label ".Lc49:" (and there are more labels like this following later on --> ".Le1" and others)

OTOH, i have no clue whatsoever about Assembler

This is fpc generated assembly for LoongArch64. I don't know how fpc generated this assembly.

[bytebites]

Line 6619 in uniasinfo.pas obviously array too small.

Code: Pascal  [Select][+][-]

1.   SetLengthWithZeroMemory(TempParamTypeList.ParamType,2);                  

Actual issue is in unianalysis.pas line 2693

Code: Pascal  [Select][+][-]

1.        Result.SymbolList.SymbolList.SymbolName[Result.SymbolList.SymbolList.SymbolCount-1]:=
2.        BasePart.LabelName;
3.        Result.SymbolList.SymbolList.SymbolNameHash[Result.SymbolList.SymbolList.SymbolCount-1]:=
4.        unihash_generate_value(BasePart.LabelName);
5.        Result.SymbolList.SymbolList.SymbolSectionName[Result.SymbolList.SymbolList.SymbolCount-1]:=
6.        Result.Section[SectionIndex-1].SectionName;
7.        Result.SymbolList.SymbolList.SymbolNameHash[Result.SymbolList.SymbolList.SymbolCount-1]:=  //overwrites previous correct hash!
8.        Result.Section[SectionIndex-1].SectionHash;
9.        Result.SymbolList.SymbolList.SymbolValue[Result.SymbolList.SymbolList.SymbolCount-1]:=StartOffset;
10.  

[TYDQ]

Line 6619 in uniasinfo.pas obviously array too small.

Code: Pascal  [Select][+][-]

1.   SetLengthWithZeroMemory(TempParamTypeList.ParamType,2);                  

Actual issue is in unianalysis.pas line 2693

Code: Pascal  [Select][+][-]

1.        Result.SymbolList.SymbolList.SymbolName[Result.SymbolList.SymbolList.SymbolCount-1]:=
2.        BasePart.LabelName;
3.        Result.SymbolList.SymbolList.SymbolNameHash[Result.SymbolList.SymbolList.SymbolCount-1]:=
4.        unihash_generate_value(BasePart.LabelName);
5.        Result.SymbolList.SymbolList.SymbolSectionName[Result.SymbolList.SymbolList.SymbolCount-1]:=
6.        Result.Section[SectionIndex-1].SectionName;
7.        Result.SymbolList.SymbolList.SymbolNameHash[Result.SymbolList.SymbolList.SymbolCount-1]:=  //overwrites previous correct hash!
8.        Result.Section[SectionIndex-1].SectionHash;
9.        Result.SymbolList.SymbolList.SymbolValue[Result.SymbolList.SymbolList.SymbolCount-1]:=StartOffset;
10.  

Thanks a lot for you pointing out my problem.