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}