Bug in TypInfo.pp procedure CallSStringProc
Original Reporter info from Mantis: FPCCore
-
Reporter name: FPC core team
Original Reporter info from Mantis: FPCCore
- Reporter name: FPC core team
Description:
There are two bugs. Here is the fixed version:
procedure CallSStringProc(s : Pointer;Address : Pointer;
const Value : ShortString; Index,IVAlue : Longint); assembler;
asm
movl S,%esi
movl Address,%edi
// Push value to set
movl Value,%eax
pushl %eax
// ? Indexed procedure
movl Index,%eax
testl %eax,%eax
// BUG 1 (jnz)
je .LSSPNoPush
movl IValue,%eax
pushl %eax
.LSSPNoPush:
// BUG 2 (push)
pushl %esi
call %edi
end;
Additional information:
Reporter: Mattias Gaertner
EMail: gaertner at informatik dot uni-koeln dot de
Mantis conversion info:
- Mantis ID: 3320
- OS: Linux
- Version: ?
- Fixed in version: 1.0.3