paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 12:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* map the currency type to the i64 WebAssembly type

Browse Source 
git-svn-id: branches/wasm@48278 -
This commit is contained in:
nickysn 2021-01-21 17:32:55 +00:00
parent 4fa09a6f8b
commit 0315ab00d8
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/wasm32/tgcpu.pas
View File

@ -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;