paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 20:27:56 +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
orl %edi,%edi
jz .LNEW_CLASS1
{ esi contains vmt }
{ esi contains the vmt }
pushl %esi
{ call newinstance (class method!) }
call 16(%esi)
{ new instance returns a pointer to the new created }
{ instance in eax }
{ load esi and insert self }
{ newinstance returns a pointer to the new created }
{ instance in eax }
{ load esi and insert self }
movl %eax,8(%ebp)
movl %eax,%esi
ret
@ -799,7 +799,10 @@ end;
{
$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
Revision 1.2 1998/04/08 07:53:31 michael