Fixed unreachable code (warning by fpc)

renehsz · Oct 7, 2017 · 52c0012 · 52c0012
1 parent 96e9051
commit 52c0012
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/fpc_tcmalloc.pas b/fpc_tcmalloc.pas
@@ -40,9 +40,9 @@
 begin
   if Size <= 0 then
   begin
-    if Size < 0 then
-      runerror(204);
-    exit;
+    if Size = 0 then
+      exit;
+    runerror(204);
   end;
 
   if P <> nil then