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

* Fixed warnings and notes.

Browse Source 
git-svn-id: trunk@9046 -
This commit is contained in:
yury 2007-11-01 15:55:54 +00:00
parent 3ec854059e
commit 0a3591a2a5
2 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/cmem.pp
View File

@ -68,11 +68,7 @@ Function CFreeMemSize(p:pointer;Size:ptruint):ptruint;
begin
if size<=0 then
begin
if size<0 then
runerror(204);
exit;
end;
exit;
if (p <> nil) then
begin
if (size <> Pptruint(p-sizeof(ptruint))^) then

3
rtl/objpas/classes/streams.inc
View File

@ -803,7 +803,7 @@ begin
inherited Destroy;
end;
{$warnings off}
function TStreamAdapter.Read(pv: Pointer; cb: DWORD; pcbRead: PDWORD): HResult; stdcall;
begin
runerror(217);
@ -868,3 +868,4 @@ function TStreamAdapter.Clone(out stm: IStream): HResult; stdcall;
begin
runerror(217);
end;
{$warnings on}