From 23861311a1ccae272274210cf9a5327c8377d7f1 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 6 Feb 2011 11:07:25 +0000
Subject: [PATCH] codetools: fixed example find declaration

git-svn-id: trunk@29401 -
---
 components/codetools/examples/finddeclaration.lpr      | 10 +++++-----
 .../examples/scanexamples/genericsexample.pas          |  2 ++
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/components/codetools/examples/finddeclaration.lpr b/components/codetools/examples/finddeclaration.lpr
index eeb25c1107..b6b3df54a9 100644
--- a/components/codetools/examples/finddeclaration.lpr
+++ b/components/codetools/examples/finddeclaration.lpr
@@ -29,7 +29,7 @@ program FindDeclaration;
 {$mode objfpc}{$H+}
 
 uses
-  Classes, SysUtils, CodeCache, CodeToolManager, DefineTemplates,
+  Classes, SysUtils, CodeCache, CodeToolManager, DefineTemplates, FileProcs,
   CodeToolsConfig, SimpleUnit1;
 
 const
@@ -84,10 +84,10 @@ begin
     writeln('FPCDIR=',Options.FPCSrcDir);
     writeln('PP=',Options.FPCPath);
     writeln('LAZARUSDIR=',Options.LazarusSrcDir);
-    writeln('TARGET=',Options.TargetOS);
-    writeln('TARGETCPU=',Options.TargetProcessor);
+    writeln('FPCTARGET=',Options.TargetOS);
+    writeln('FPCTARGETCPU=',Options.TargetProcessor);
     if (ParamCount>=3) then begin
-      Options.TestPascalFile:=ExpandFileNameUTF8(ParamStr(1));
+      Options.TestPascalFile:=CleanAndExpandFilename(ParamStr(1));
       X:=StrToInt(ParamStr(2));
       Y:=StrToInt(ParamStr(3));
     end;
@@ -102,7 +102,7 @@ begin
     begin
       writeln('Declaration found: ',NewCode.Filename,' Line=',NewY,' Column=',NewX);
     end else begin
-      writeln('Declaration not found: ',CodeToolBoss.ErrorMessage);
+      writeln('Parse error: ',CodeToolBoss.ErrorMessage);
     end;
   except
     on E: Exception do begin
diff --git a/components/codetools/examples/scanexamples/genericsexample.pas b/components/codetools/examples/scanexamples/genericsexample.pas
index b56bcba613..09aa3de2b5 100644
--- a/components/codetools/examples/scanexamples/genericsexample.pas
+++ b/components/codetools/examples/scanexamples/genericsexample.pas
@@ -20,6 +20,8 @@ type
     function DoSomething(Arg: T1): T2;
     function Test(Arg: Intf): Intf;
   end;
+const
+  RecLongInt: TRecG<longint> = (F:0);
 
 var
   ArraySpecialize: TGenericArray<Integer>;