paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 05:30:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

Use out untyped parameter to avoid warnings

Browse Source 
git-svn-id: trunk@19587 -
This commit is contained in:
pierre 2011-11-03 11:43:29 +00:00
parent 019ecd53fe
commit b1975eb088
2 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/utils/mkarmins.pp
View File

@ -12,6 +12,8 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$mode objfpc}
program mkarmins;
const
@ -89,7 +91,6 @@ function readnumber : longint;
var
base : longint;
result : longint;
begin
result:=0;
@ -117,7 +118,6 @@ function readnumber : longint;
end;
inc(i);
end;
readnumber:=result;
end;
function tostr(l : longint) : string;
@ -132,9 +132,6 @@ function tostr(l : longint) : string;
function readstr : string;
var
result : string;
begin
result:='';
while (s[i] in ['0'..'9','A'..'Z','a'..'z','_']) and (i<=length(s)) do
@ -142,7 +139,6 @@ function readstr : string;
result:=result+s[i];
inc(i);
end;
readstr:=result;
end;
procedure skipspace;
@ -152,7 +148,7 @@ procedure skipspace;
inc(i);
end;
procedure openinc(var f:text;const fn:string);
procedure openinc(out f:text;const fn:string);
begin
writeln('creating ',fn);
assign(f,fn);

2
compiler/utils/mkx86ins.pp
View File

@ -166,7 +166,7 @@ procedure skipspace;
inc(i);
end;
procedure openinc(var f:text;const fn:string);
procedure openinc(out f:text;const fn:string);
begin
writeln('creating ',fn);
assign(f,fn);