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

+ some small comments added

Browse Source
This commit is contained in:
florian 1998-04-10 15:41:54 +00:00
parent cc14d7f536
commit 0e34e8a6ce
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/i386/i386.inc
View File

@ -109,13 +109,13 @@ procedure int_new_class;assembler;
movl 8(%ebp),%edi movl 8(%ebp),%edi
orl %edi,%edi orl %edi,%edi
jz .LNEW_CLASS1 jz .LNEW_CLASS1
{ esi contains vmt } { esi contains the vmt }
pushl %esi pushl %esi
{ call newinstance (class method!) } { call newinstance (class method!) }
call 16(%esi) call 16(%esi)
{ new instance returns a pointer to the new created } { newinstance returns a pointer to the new created }
{ instance in eax } { instance in eax }
{ load esi and insert self } { load esi and insert self }
movl %eax,8(%ebp) movl %eax,8(%ebp)
movl %eax,%esi movl %eax,%esi
ret ret
@ -799,7 +799,10 @@ end;
{ {
$Log$ $Log$
Revision 1.3 1998-04-10 15:25:23 michael Revision 1.4 1998-04-10 15:41:54 florian
+ some small comments added
Revision 1.3 1998/04/10 15:25:23 michael
- Removed so-called better random function - Removed so-called better random function
Revision 1.2 1998/04/08 07:53:31 michael Revision 1.2 1998/04/08 07:53:31 michael