From bd0f0cc8522079fbbe59017ed6c9905bc771788c Mon Sep 17 00:00:00 2001
From: Pavel <68122101+red-prig@users.noreply.github.com>
Date: Wed, 22 May 2024 11:04:54 +0300
Subject: [PATCH] +

---
 sys/dev/display_soft.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/sys/dev/display_soft.pas b/sys/dev/display_soft.pas
index 61df916c..78c35b12 100644
--- a/sys/dev/display_soft.pas
+++ b/sys/dev/display_soft.pas
@@ -665,7 +665,11 @@ begin
  if (Node=nil) then Exit(EBUSY);
 
  Flip:=FFlipAlloc.Alloc;
- if (Flip=nil) then Exit(EBUSY);
+ if (Flip=nil) then
+ begin
+  FSubmitAlloc.Free(Node);
+  Exit(EBUSY);
+ end;
 
  Node^.submit:=submit^;
  Node^.tsc   :=rdtsc();