paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-28 05:01:34 +01: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

19
rtl/inc/generic.inc
View File

@ -274,8 +274,8 @@ var
begin begin
if Len<>0 then if Len<>0 then
begin begin
I:=IndexByte(Buf1,Len,0); I:=IndexByte(Buf,Len,0);
IndexChar0:=IndexByte(Buf1,I,0); IndexChar0:=IndexByte(Buf,I,0);
end end
else else
IndexChar0:=0; IndexChar0:=0;
@ -365,7 +365,8 @@ end;
{$ifndef FPC_SYSTEM_HAS_FPC_NEW_CLASS} {$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 asm
{ to be sure in the future, we save also edit } { to be sure in the future, we save also edit }
pushl %edi pushl %edi
@ -392,13 +393,14 @@ asm
movl %esi,8(%ebp) movl %esi,8(%ebp)
orl %eax,%eax orl %eax,%eax
popl %edi popl %edi
end; end; *)
{$endif ndef FPC_SYSTEM_HAS_FPC_NEW_CLASS} {$endif ndef FPC_SYSTEM_HAS_FPC_NEW_CLASS}
{$ifndef FPC_SYSTEM_HAS_FPC_DISPOSE_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 asm
{ to be sure in the future, we save also edit } { to be sure in the future, we save also edit }
pushl %edi pushl %edi
@ -423,7 +425,7 @@ asm
popl %eax popl %eax
.LDISPOSE_CLASS1: .LDISPOSE_CLASS1:
popl %edi popl %edi
end; end; *)
{$endif ndef FPC_SYSTEM_HAS_FPC_DISPOSE_CLASS} {$endif ndef FPC_SYSTEM_HAS_FPC_DISPOSE_CLASS}
@ -748,7 +750,10 @@ end;
{ {
$Log$ $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 * truncated log
Revision 1.6 2000/01/10 09:54:30 peter Revision 1.6 2000/01/10 09:54:30 peter