Browse Source

[PATCH 14/83] skipping return if zero size

From 2f8020c64066fb1b9a25729e095763a898316105 Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <[email protected]>
Date: Tue, 3 Sep 2019 16:17:59 -0400

git-svn-id: branches/wasm@45891 -
nickysn 5 years ago
parent
commit
61df5ceaf7
1 changed files with 2 additions and 1 deletions
  1. 2 1
      compiler/wasm/agwat.pas

+ 2 - 1
compiler/wasm/agwat.pas

@@ -286,7 +286,8 @@ implementation
     procedure TWabtTextAssembler.WriteProcResult(pd: tprocdef);
     begin
       if not assigned(pd) or
-        not Assigned(pd.returndef)
+        not Assigned(pd.returndef) or
+        (pd.returndef.size = 0)
         then exit;
 
       writer.AsmWrite(#9'(result'#9);