From 0315ab00d8da63e82fbb237d3adbb013cf8906d6 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Thu, 21 Jan 2021 17:32:55 +0000
Subject: [PATCH] * map the currency type to the i64 WebAssembly type

git-svn-id: branches/wasm@48278 -
---
 compiler/wasm32/tgcpu.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/wasm32/tgcpu.pas b/compiler/wasm32/tgcpu.pas
index e38f3df308..b10a340529 100644
--- a/compiler/wasm32/tgcpu.pas
+++ b/compiler/wasm32/tgcpu.pas
@@ -103,6 +103,8 @@ unit tgcpu;
 
       if is_pointer(def) then
         wbt := wbt_i32 // wasm32
+      else if is_currency(def) then
+        wbt := wbt_i64
       else if is_ordinal(def) then begin
         if is_64bit(def) then wbt := wbt_i64
         else wbt := wbt_i32;