paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 11:59:19 +02: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 movl Address,%edi
// Push value to set // Push value to set
//!! MUST BE CHANGED !! //!! MUST BE CHANGED !!
movl Value,%eax leal Value,%eax
pushl %eax pushl %eax
// ? Indexed procedure // ? Indexed procedure
movl Index,%eax movl Index,%eax
@ -264,7 +264,7 @@ unit typinfo;
function CallBooleanFunc(s : Pointer;Address : Pointer; Index,IValue : Longint) : Boolean;assembler; function CallBooleanFunc(s : Pointer;Address : Pointer; Index,IValue : Longint) : Boolean;assembler;
asm asm
movl S,%edi movl S,%esi
movl Address,%edi movl Address,%edi
// ? Indexed function // ? Indexed function
movl Index,%eax movl Index,%eax
@ -764,7 +764,10 @@ end.
{ {
$Log$ $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* * Fixes in getenum*
Revision 1.19 1999/04/08 11:31:04 peter Revision 1.19 1999/04/08 11:31:04 peter