From 9b4366e4f6d565b0a1b2b2d105e350b0744b8d7c Mon Sep 17 00:00:00 2001
From: Nikolay Nikolov <nickysn@gmail.com>
Date: Sun, 11 Jun 2023 10:41:56 +0300
Subject: [PATCH] + support externref and funcref WebAssembly globals in the
 internal object writer

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

diff --git a/compiler/ogwasm.pas b/compiler/ogwasm.pas
index f08e2da584..0462d3127d 100644
--- a/compiler/ogwasm.pas
+++ b/compiler/ogwasm.pas
@@ -1669,6 +1669,18 @@ implementation
                           WriteByte(FWasmSections[wsiGlobal],$00);
                           WriteByte(FWasmSections[wsiGlobal],$0B);  { end }
                         end;
+                      wbt_externref:
+                        begin
+                          WriteByte(FWasmSections[wsiGlobal],$D0); { ref.null extern }
+                          WriteByte(FWasmSections[wsiGlobal],$6F);
+                          WriteByte(FWasmSections[wsiGlobal],$0B);  { end }
+                        end;
+                      wbt_funcref:
+                        begin
+                          WriteByte(FWasmSections[wsiGlobal],$D0); { ref.null func }
+                          WriteByte(FWasmSections[wsiGlobal],$70);
+                          WriteByte(FWasmSections[wsiGlobal],$0B);  { end }
+                        end;
                       else
                         internalerror(2022052801);
                     end;