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

* merged file pos fixes

Browse Source
This commit is contained in:
peter 1999-06-29 14:02:33 +00:00
parent 4d59eb41b2
commit 73b45882c4
1 changed files with 26 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
compiler/tccal.pas
View File

@ -237,7 +237,10 @@ implementation
(pfiledef(p^.left^.resulttype)^.filetype = ft_typed) (pfiledef(p^.left^.resulttype)^.filetype = ft_typed)
) and ) and
not(is_equal(p^.left^.resulttype,defcoll^.data))) then not(is_equal(p^.left^.resulttype,defcoll^.data))) then
CGMessage(parser_e_call_by_ref_without_typeconv); begin
aktfilepos:=p^.left^.fileinfo;
CGMessage(parser_e_call_by_ref_without_typeconv);
end;
{ process cargs arrayconstructor } { process cargs arrayconstructor }
if is_array_constructor(p^.left^.resulttype) and if is_array_constructor(p^.left^.resulttype) and
assigned(aktcallprocsym) and assigned(aktcallprocsym) and
@ -277,7 +280,10 @@ implementation
(defcoll^.paratyp=vs_var) and (defcoll^.paratyp=vs_var) and
not(is_open_string(defcoll^.data)) and not(is_open_string(defcoll^.data)) and
not(is_equal(p^.left^.resulttype,defcoll^.data)) then not(is_equal(p^.left^.resulttype,defcoll^.data)) then
CGMessage(type_e_strict_var_string_violation); begin
aktfilepos:=p^.left^.fileinfo;
CGMessage(type_e_strict_var_string_violation);
end;
{ Variablen for call by reference may not be copied } { Variablen for call by reference may not be copied }
{ into a register } { into a register }
@ -287,10 +293,16 @@ implementation
begin begin
if defcoll^.paratyp=vs_var then if defcoll^.paratyp=vs_var then
if not valid_for_formal_var(p^.left) then if not valid_for_formal_var(p^.left) then
CGMessage(parser_e_illegal_parameter_list); begin
aktfilepos:=p^.left^.fileinfo;
CGMessage(parser_e_illegal_parameter_list);
end;
if defcoll^.paratyp=vs_const then if defcoll^.paratyp=vs_const then
if not valid_for_formal_const(p^.left) then if not valid_for_formal_const(p^.left) then
CGMessage(parser_e_illegal_parameter_list); begin
aktfilepos:=p^.left^.fileinfo;
CGMessage(parser_e_illegal_parameter_list);
end;
end; end;
if defcoll^.paratyp=vs_var then if defcoll^.paratyp=vs_var then
@ -472,7 +484,10 @@ implementation
pdc:=pdc^.next; pdc:=pdc^.next;
end; end;
if assigned(pt) or assigned(pdc) then if assigned(pt) or assigned(pdc) then
CGMessage(parser_e_illegal_parameter_list); begin
aktfilepos:=pt^.fileinfo;
CGMessage(parser_e_illegal_parameter_list);
end;
{ insert type conversions } { insert type conversions }
if assigned(p^.left) then if assigned(p^.left) then
begin begin
@ -576,6 +591,8 @@ implementation
((parsing_para_level=0) or assigned(p^.left)) and ((parsing_para_level=0) or assigned(p^.left)) and
(nextprocsym=nil) then (nextprocsym=nil) then
begin begin
if assigned(p^.left) then
aktfilepos:=p^.left^.fileinfo;
CGMessage(parser_e_wrong_parameter_size); CGMessage(parser_e_wrong_parameter_size);
aktcallprocsym^.write_parameter_lists; aktcallprocsym^.write_parameter_lists;
goto errorexit; goto errorexit;
@ -1167,7 +1184,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.52 1999-06-29 12:16:22 pierre Revision 1.53 1999-06-29 14:02:33 peter
* merged file pos fixes
Revision 1.52 1999/06/29 12:16:22 pierre
* mereg from fixes-0_99_12 * mereg from fixes-0_99_12
Revision 1.51.2.2 1999/06/29 12:12:13 pierre Revision 1.51.2.2 1999/06/29 12:12:13 pierre