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

* small fixes

Browse Source
This commit is contained in:
pierre 2000-03-10 13:45:31 +00:00
parent 6d213ac89b
commit 4bbbb33cf1
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
rtl/inc/generic.inc
View File

@ -274,8 +274,8 @@ var
begin
if Len<>0 then
begin
I:=IndexByte(Buf1,Len,0);
IndexChar0:=IndexByte(Buf1,I,0);
I:=IndexByte(Buf,Len,0);
IndexChar0:=IndexByte(Buf,I,0);
end
else
IndexChar0:=0;
@ -365,7 +365,8 @@ end;
{$ifndef FPC_SYSTEM_HAS_FPC_NEW_CLASS}
procedure int_new_class;assembler;[public,alias:'FPC_NEW_CLASS'];
{$error No pascal version of Int_new_class}
(* procedure int_new_class;assembler;[public,alias:'FPC_NEW_CLASS'];
asm
{ to be sure in the future, we save also edit }
pushl %edi
@ -392,13 +393,14 @@ asm
movl %esi,8(%ebp)
orl %eax,%eax
popl %edi
end;
end; *)
{$endif ndef FPC_SYSTEM_HAS_FPC_NEW_CLASS}
{$ifndef FPC_SYSTEM_HAS_FPC_DISPOSE_CLASS}
procedure int_dispose_class;assembler;[public,alias:'FPC_DISPOSE_CLASS'];
{$error No pascal version of Int_dispose_class}
(* procedure int_dispose_class;assembler;[public,alias:'FPC_DISPOSE_CLASS'];
asm
{ to be sure in the future, we save also edit }
pushl %edi
@ -423,7 +425,7 @@ asm
popl %eax
.LDISPOSE_CLASS1:
popl %edi
end;
end; *)
{$endif ndef FPC_SYSTEM_HAS_FPC_DISPOSE_CLASS}
@ -748,7 +750,10 @@ end;
{
$Log$
Revision 1.7 2000-02-09 16:59:29 peter
Revision 1.8 2000-03-10 13:45:31 pierre
* small fixes
Revision 1.7 2000/02/09 16:59:29 peter
* truncated log
Revision 1.6 2000/01/10 09:54:30 peter
@ -765,4 +770,4 @@ end;
WARNING these are not yet TESTED !!!
+ FPC_CHARARRAY_TO_SHORTSTRING added
}
}