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

* typo

Browse Source 
git-svn-id: trunk@5255 -
This commit is contained in:
peter 2006-11-05 21:19:41 +00:00
parent 5cbc15b339
commit f88e6a834e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncal.pas
View File

@ -382,7 +382,7 @@ implementation
{ actual call }
vardatadef:=trecorddef(search_system_type('TVARDATA').typedef);
pvardatadef:=ppointerdef(search_system_type('PVARDATA').typedef);
pvardatadef:=tpointerdef(search_system_type('PVARDATA').typedef);
addstatement(statements,ccallnode.createintern('fpc_dispinvoke_variant',
{ parameters are passed always reverted, i.e. the last comes first }