paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-23 10:51:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* reset %edx in getordprop so functions returning only %eax don't

Browse Source 
generate rangecheck errors
This commit is contained in:
peter 2001-10-20 17:25:22 +00:00
parent f7af97c2a5
commit df8692dd2e
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/i386/typinfo.inc
View File

@ -34,6 +34,8 @@ Function CallIntegerFunc(s: Pointer; Address: Pointer; Index, IValue: LongInt):
pushl %eax pushl %eax
.LINoPush: .LINoPush:
push %esi push %esi
// reset EDX for routines that return only EAX
xorl %edx,%edx
call %edi call %edi
// now the result is in EDX:EAX // now the result is in EDX:EAX
end; end;
@ -151,7 +153,11 @@ Procedure CallSStringProc(s : Pointer;Address : Pointer;Const Value : ShortStrin
{ {
$Log$ $Log$
Revision 1.2 2001-08-04 11:03:42 peter Revision 1.3 2001-10-20 17:25:22 peter
* reset %edx in getordprop so functions returning only %eax don't
generate rangecheck errors
Revision 1.2 2001/08/04 11:03:42 peter
* moved i386 specific code to include file * moved i386 specific code to include file
Revision 1.1.2.1 2001/08/02 23:31:13 pierre Revision 1.1.2.1 2001/08/02 23:31:13 pierre