paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 20:09:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* procvar varargs fixed

Browse Source
This commit is contained in:
peter 2003-10-07 20:52:54 +00:00
parent 33266a3a5f
commit 828df46e33
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/pdecsub.pas
View File

@ -73,9 +73,9 @@ implementation
cutils,cclasses, cutils,cclasses,
{ global } { global }
globtype,globals,verbose, globtype,globals,verbose,
systems,cpubase, systems,
{ aasm } { aasm }
aasmbase,aasmtai,aasmcpu, aasmbase,
{ symtable } { symtable }
symbase,symtable,defutil,defcmp,paramgr, symbase,symtable,defutil,defcmp,paramgr,
{ pass 1 } { pass 1 }
@ -85,9 +85,7 @@ implementation
fmodule,scanner, fmodule,scanner,
pbase,pexpr,ptype,pdecl, pbase,pexpr,ptype,pdecl,
{ linking } { linking }
import,gendef, import,gendef
{ codegen }
cpuinfo,cgbase
; ;
const const
@ -1713,15 +1711,18 @@ const
available to contain it } available to contain it }
if parse_only then if parse_only then
begin begin
{ if external is available, then cdecl must also be available } { if external is available, then cdecl must also be available,
if (po_external in pd.procoptions) and procvars don't need external }
if not((po_external in pd.procoptions) or
(pd.deftype=procvardef)) and
not(pd.proccalloption in [pocall_cdecl,pocall_cppdecl]) then not(pd.proccalloption in [pocall_cdecl,pocall_cppdecl]) then
Message(parser_e_varargs_need_cdecl_and_external); Message(parser_e_varargs_need_cdecl_and_external);
end end
else else
begin begin
{ both must be defined now } { both must be defined now }
if not(po_external in pd.procoptions) or if not((po_external in pd.procoptions) or
(pd.deftype=procvardef)) or
not(pd.proccalloption in [pocall_cdecl,pocall_cppdecl]) then not(pd.proccalloption in [pocall_cdecl,pocall_cppdecl]) then
Message(parser_e_varargs_need_cdecl_and_external); Message(parser_e_varargs_need_cdecl_and_external);
end; end;
@ -2126,7 +2127,10 @@ const
end. end.
{ {
$Log$ $Log$
Revision 1.146 2003-10-05 21:21:52 peter Revision 1.147 2003-10-07 20:52:54 peter
* procvar varargs fixed
Revision 1.146 2003/10/05 21:21:52 peter
* c style array of const generates callparanodes * c style array of const generates callparanodes
* varargs paraloc fixes * varargs paraloc fixes