codetools: copy is a function, not a procedure (bug #11038)

git-svn-id: trunk@14716 -
This commit is contained in:
vincents 2008-04-01 14:02:29 +00:00
parent 9081581c3b
commit 9f9ab8fcfb

View File

@ -958,7 +958,7 @@ var
begin
if Context.Node.Desc in AllPascalStatements then begin
AddCompilerProcedure('SetLength','array of type; NewLength: integer');
AddCompilerProcedure('Copy','const s: string; FromPosition, Count: integer');
AddCompilerFunction('Copy','const s: string; FromPosition, Count: integer', 'string');
AddCompilerProcedure('Write','Args : Arguments');
AddCompilerProcedure('WriteLn','Args : Arguments');
AddCompilerProcedure('Read','');