From 10b201c50699cba4a8a2a553f77bf5531dd6516c Mon Sep 17 00:00:00 2001
From: Nikolay Nikolov <nickysn@gmail.com>
Date: Tue, 26 Dec 2023 16:39:29 +0200
Subject: [PATCH] + check for duplicated data sections

---
 compiler/ogwasm.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/compiler/ogwasm.pas b/compiler/ogwasm.pas
index 9a037da487..61fa8e8cbb 100644
--- a/compiler/ogwasm.pas
+++ b/compiler/ogwasm.pas
@@ -2220,6 +2220,7 @@ implementation
           ImportSectionRead: Boolean = false;
           FunctionSectionRead: Boolean = false;
           CodeSectionRead: Boolean = false;
+          DataSectionRead: Boolean = false;
           DataCountSectionRead: Boolean = false;
 
           DataSegments: array of record
@@ -2732,6 +2733,12 @@ implementation
         function ReadDataSection: Boolean;
           begin
             Result:=False;
+            if DataSectionRead then
+              begin
+                InputError('Data section is duplicated');
+                exit;
+              end;
+            DataSectionRead:=True;
           end;
 
         function ReadDataCountSection: Boolean;