From f88e6a834e7a239f192e7e1896b6bd9acc6f0112 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 5 Nov 2006 21:19:41 +0000
Subject: [PATCH]   * typo

git-svn-id: trunk@5255 -
---
 compiler/ncal.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/ncal.pas b/compiler/ncal.pas
index a78e3f7fbe..af5e82a0af 100644
--- a/compiler/ncal.pas
+++ b/compiler/ncal.pas
@@ -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 }