From 71073744e4c23e8caad89ca7fd5fc802c73eb304 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 22 Dec 2004 16:49:10 +0000
Subject: [PATCH]   * dword() typecast to fix delphi compile

---
 tests/webtbs/tw3460.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/webtbs/tw3460.pp b/tests/webtbs/tw3460.pp
index 2d6f0b87fe..3fba2d0cdb 100644
--- a/tests/webtbs/tw3460.pp
+++ b/tests/webtbs/tw3460.pp
@@ -13,14 +13,14 @@ type
 function x: Integer;
 asm
   mov edx,0
-  add edx, sizeof(Integer)
+  add edx, dword(sizeof(Integer))
   mov Result, edx
 end;
 
 function SignalHandlerNextParam(param: PGValue): PGValue;
 asm
   mov edx, param
-  add edx, sizeof(TGValue)  
+  add edx, dword(sizeof(TGValue))
   mov Result, edx    
 end;