From 0a3591a2a5819b3912bd5dfb8211c015a13aa6c2 Mon Sep 17 00:00:00 2001
From: yury <jura@cp-lab.com>
Date: Thu, 1 Nov 2007 15:55:54 +0000
Subject: [PATCH] * Fixed warnings and notes.

git-svn-id: trunk@9046 -
---
 rtl/inc/cmem.pp                | 6 +-----
 rtl/objpas/classes/streams.inc | 3 ++-
 2 files changed, 3 insertions(+), 6 deletions(-)

diff --git a/rtl/inc/cmem.pp b/rtl/inc/cmem.pp
index 67b678326d..35f1690512 100644
--- a/rtl/inc/cmem.pp
+++ b/rtl/inc/cmem.pp
@@ -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
diff --git a/rtl/objpas/classes/streams.inc b/rtl/objpas/classes/streams.inc
index f4f4c627ac..3ef51a0f00 100644
--- a/rtl/objpas/classes/streams.inc
+++ b/rtl/objpas/classes/streams.inc
@@ -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}