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

* dword() typecast to fix delphi compile

Browse Source
This commit is contained in:
peter 2004-12-22 16:49:10 +00:00
parent 855ccb7ac8
commit 71073744e4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/webtbs/tw3460.pp
View File

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