paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 10:59:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

* two typos fixed

Browse Source
This commit is contained in:
florian 1999-05-07 11:02:14 +00:00
parent c57f9f07a7
commit e973e4b583
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/objpas/typinfo.pp
View File

@ -250,7 +250,7 @@ unit typinfo;
movl Address,%edi
// Push value to set
//!! MUST BE CHANGED !!
movl Value,%eax
leal Value,%eax
pushl %eax
// ? Indexed procedure
movl Index,%eax
@ -264,7 +264,7 @@ unit typinfo;
function CallBooleanFunc(s : Pointer;Address : Pointer; Index,IValue : Longint) : Boolean;assembler;
asm
movl S,%edi
movl S,%esi
movl Address,%edi
// ? Indexed function
movl Index,%eax
@ -764,7 +764,10 @@ end.
{
$Log$
Revision 1.20 1999-05-03 07:30:07 michael
Revision 1.21 1999-05-07 11:02:14 florian
* two typos fixed
Revision 1.20 1999/05/03 07:30:07 michael
* Fixes in getenum*
Revision 1.19 1999/04/08 11:31:04 peter