paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-28 18:01:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix check that filedef needs var para

Browse Source
This commit is contained in:
peter 2003-09-28 21:44:55 +00:00
parent 99bb20747e
commit 2c4df4364e
2 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ncal.pas
View File

@ -733,11 +733,6 @@ type
CGMessage(type_e_strict_var_string_violation); CGMessage(type_e_strict_var_string_violation);
end; end;
{ File types are only allowed for var parameters }
if (paraitem.paratype.def.deftype=filedef) and
(paraitem.paratyp<>vs_var) then
CGMessage(cg_e_file_must_call_by_reference);
{ Handle formal parameters separate } { Handle formal parameters separate }
if (paraitem.paratype.def.deftype=formaldef) then if (paraitem.paratype.def.deftype=formaldef) then
begin begin
@ -2520,7 +2515,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.183 2003-09-28 17:55:03 peter Revision 1.184 2003-09-28 21:44:55 peter
* fix check that filedef needs var para
Revision 1.183 2003/09/28 17:55:03 peter
* parent framepointer changed to hidden parameter * parent framepointer changed to hidden parameter
* tloadparentfpnode added * tloadparentfpnode added

10
compiler/pdecsub.pas
View File

@ -476,6 +476,11 @@ implementation
tt:=cformaltype; tt:=cformaltype;
end; end;
{ File types are only allowed for var parameters }
if (tt.def.deftype=filedef) and
(varspez<>vs_var) then
CGMessage(cg_e_file_must_call_by_reference);
vs:=tvarsym(sc.first); vs:=tvarsym(sc.first);
while assigned(vs) do while assigned(vs) do
begin begin
@ -2141,7 +2146,10 @@ const
end. end.
{ {
$Log$ $Log$
Revision 1.138 2003-09-28 17:55:04 peter Revision 1.139 2003-09-28 21:44:55 peter
* fix check that filedef needs var para
Revision 1.138 2003/09/28 17:55:04 peter
* parent framepointer changed to hidden parameter * parent framepointer changed to hidden parameter
* tloadparentfpnode added * tloadparentfpnode added