paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-12 12:30:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Patch from peter to fix crash

Browse Source
This commit is contained in:
michael 2004-05-24 07:18:17 +00:00
parent 9f51eee552
commit f4e0bc3881
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/dynarr.inc
View File

@ -80,6 +80,8 @@ procedure fpc_dynarray_clear_internal(p : pointer;ti : pointer);
procedure fpc_dynarray_clear(var p : pointer;ti : pointer); [Public,Alias:'FPC_DYNARRAY_CLEAR']; {$ifdef hascompilerproc} compilerproc; {$endif} procedure fpc_dynarray_clear(var p : pointer;ti : pointer); [Public,Alias:'FPC_DYNARRAY_CLEAR']; {$ifdef hascompilerproc} compilerproc; {$endif}
begin begin
if (P=Nil) then
exit;
fpc_dynarray_clear_internal(p-sizeof(tdynarray),ti); fpc_dynarray_clear_internal(p-sizeof(tdynarray),ti);
p:=nil; p:=nil;
end; end;
@ -310,7 +312,10 @@ procedure fpc_dynarray_copy(var pdest : pointer;psrc : pointer;ti : pointer;
{ {
$Log$ $Log$
Revision 1.25 2004-05-20 15:56:32 florian Revision 1.26 2004-05-24 07:18:17 michael
+ Patch from peter to fix crash
Revision 1.25 2004/05/20 15:56:32 florian
* fixed <dyn. array>:=nil; * fixed <dyn. array>:=nil;
Revision 1.24 2004/05/02 15:15:58 peter Revision 1.24 2004/05/02 15:15:58 peter