From 58557843d3165666049577f77302ed6d6ae61620 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 19 Jul 2009 11:26:44 +0000
Subject: [PATCH] codetools: minor improvements for parameter hints

git-svn-id: trunk@20895 -
---
 components/codetools/identcompletiontool.pas | 44 +++++++++++---------
 1 file changed, 24 insertions(+), 20 deletions(-)

diff --git a/components/codetools/identcompletiontool.pas b/components/codetools/identcompletiontool.pas
index 15b20bcd81..924649b5fa 100644
--- a/components/codetools/identcompletiontool.pas
+++ b/components/codetools/identcompletiontool.pas
@@ -1110,35 +1110,37 @@ begin
 
     AddCompilerProcedure('Assert','Condition:Boolean;const Message:String');
     AddCompilerFunction('Assigned','P:Pointer','Boolean');
-    AddCompilerFunction('Addr','identifier','Pointer');
+    AddCompilerFunction('Addr','Identifier','Pointer');
     AddCompilerProcedure('Break','');
     AddCompilerFunction('Concat','Args:String', 'String');
     AddCompilerProcedure('Continue','');
     AddCompilerFunction('Copy','const S:String;FromPosition,Count:Integer', 'String');
     AddCompilerProcedure('Dec','var X:Ordinal;N:Integer=1');
     AddCompilerProcedure('Dispose','Pointer');
-    AddCompilerProcedure('Exclude','var S:set;X:Ordinal');
+    AddCompilerProcedure('Exclude','var S:Set;X:Ordinal');
     AddCompilerProcedure('Exit','');
-    AddCompilerProcedure('Finalize','identifier');
+    AddCompilerProcedure('Finalize','Identifier');
     AddCompilerFunction('get_frame','','Pointer');
     AddCompilerFunction('High','Argument','Ordinal');
     AddCompilerProcedure('Inc','var X:Ordinal;N:Integer=1');
-    AddCompilerProcedure('Include','var S:set;X:Ordinal');
-    AddCompilerProcedure('Initialize','identifier');
-    AddCompilerFunction('Length','A:array','Ordinal');
+    AddCompilerProcedure('Include','var S:Set;X:Ordinal');
+    AddCompilerProcedure('Initialize','Identifier');
+    AddCompilerFunction('Length','S:String','Ordinal');
+    AddCompilerFunction('Length','A:Array','Ordinal');
     AddCompilerFunction('Low','Argument','Ordinal');
     AddCompilerProcedure('New','Pointer');
-    AddCompilerFunction('Ord','X:Ordinal', 'Ordinal');
+    AddCompilerFunction('Ord','X:Ordinal', 'Integer');
     AddCompilerFunction('Pred','X:Ordinal', 'Ordinal');
     AddCompilerProcedure('Read','');
     AddCompilerProcedure('ReadLn','');
-    AddCompilerProcedure('SetLength','var A:array;NewLength:Integer');
-    AddCompilerFunction('SizeOf','identifier','Integer');
+    AddCompilerProcedure('SetLength','var S:String;NewLength:Integer');
+    AddCompilerProcedure('SetLength','var A:Array;NewLength:Integer');
+    AddCompilerFunction('SizeOf','Identifier','Integer');
     AddCompilerFunction('Slice','var A:array;Count:Integer','array');
     AddCompilerProcedure('Str','const X[:Width[:Decimals]];var S:String');
     AddCompilerFunction('Succ','X: Ordinal', 'Ordinal');
-    AddCompilerFunction('TypeInfo','identifier', 'Pointer');
-    AddCompilerFunction('TypeOf','identifier', 'Pointer');
+    AddCompilerFunction('TypeInfo','Identifier', 'Pointer');
+    AddCompilerFunction('TypeOf','Identifier', 'Pointer');
     AddCompilerProcedure('Val','S:String;var V;var Code:Integer');
     AddCompilerProcedure('Write','Args:Arguments');
     AddCompilerProcedure('WriteLn','Args:Arguments');
@@ -1923,33 +1925,35 @@ var
     or UpAtomIs('REPEAT') or UpAtomIs('ASM') then begin
       AddCompilerProc('Assert','Condition:Boolean;const Message:String');
       AddCompilerProc('Assigned','P:Pointer','Boolean');
-      AddCompilerProc('Addr','identifier','Pointer');
+      AddCompilerProc('Addr','Identifier','Pointer');
       AddCompilerProc('Concat','Args:String', 'String');
       AddCompilerProc('Copy','const S:String;FromPosition,Count:Integer', 'String');
       AddCompilerProc('Dec','var X:Ordinal;N:Integer=1');
       AddCompilerProc('Dispose','Pointer');
-      AddCompilerProc('Exclude','var S:set;X:Ordinal');
-      AddCompilerProc('Exit','');
+      AddCompilerProc('Exclude','var S:Set;X:Ordinal');
+      AddCompilerProc('Exit','ResultValue:Ordinal=Result');
       AddCompilerProc('Finalize','identifier');
       AddCompilerProc('get_frame','','Pointer');
       AddCompilerProc('High','Argument','Ordinal');
       AddCompilerProc('Inc','var X:Ordinal;N:Integer=1');
-      AddCompilerProc('Include','var S:set;X:Ordinal');
-      AddCompilerProc('Initialize','identifier');
-      AddCompilerProc('Length','A:array','Ordinal');
+      AddCompilerProc('Include','var S:Set;X:Ordinal');
+      AddCompilerProc('Initialize','Identifier');
+      AddCompilerProc('Length','S:String','Integer');
+      AddCompilerProc('Length','A:Array','Integer');
       AddCompilerProc('Low','Argument','Ordinal');
       AddCompilerProc('New','Pointer');
-      AddCompilerProc('Ord','X:Ordinal', 'Ordinal');
+      AddCompilerProc('Ord','X:Ordinal', 'Integer');
       AddCompilerProc('Pred','X:Ordinal', 'Ordinal');
       AddCompilerProc('Read','');
       AddCompilerProc('ReadLn','');
+      AddCompilerProc('SetLength','var S:String;NewLength:Integer');
       AddCompilerProc('SetLength','var A:array;NewLength:Integer');
       AddCompilerProc('SizeOf','identifier','Integer');
       AddCompilerProc('Slice','var A:array;Count:Integer','array');
       AddCompilerProc('Str','const X[:Width[:Decimals]];var S:String');
       AddCompilerProc('Succ','X: Ordinal', 'Ordinal');
-      AddCompilerProc('TypeInfo','identifier', 'Pointer');
-      AddCompilerProc('TypeOf','identifier', 'Pointer');
+      AddCompilerProc('TypeInfo','Identifier', 'Pointer');
+      AddCompilerProc('TypeOf','Identifier', 'Pointer');
       AddCompilerProc('Val','S:String;var V;var Code:Integer');
       AddCompilerProc('Write','Args:Arguments');
       AddCompilerProc('WriteLn','Args:Arguments');