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

* procvar parsing updated just like psub.pas routine

Browse Source
This commit is contained in:
peter 1998-10-25 23:31:18 +00:00
parent 65d1ea7ff5
commit c65b618cfb
1 changed files with 46 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
compiler/pdecl.pas
View File

@ -1523,52 +1523,64 @@ unit pdecl;
consume(LKLAMMER);
inc(testcurobject);
repeat
if token=_VAR then
case token of
_VAR :
begin
consume(_VAR);
varspez:=vs_var;
end
else if token=_CONST then
end;
_CONST :
begin
consume(_CONST);
varspez:=vs_const;
end
else varspez:=vs_value;
end;
else
varspez:=vs_value;
end;
sc:=idlist;
if token=COLON then
if (token=COLON) or (varspez=vs_value) then
begin
consume(COLON);
if token=_ARRAY then
begin
{
if (varspez<>vs_const) and
(varspez<>vs_var) then
begin
varspez:=vs_const;
Message(parser_e_illegal_open_parameter);
end;
}
consume(_ARRAY);
consume(_OF);
{ define range and type of range }
p:=new(parraydef,init(0,-1,s32bitdef));
p:=new(Parraydef,init(0,-1,s32bitdef));
{ array of const ? }
if (token=_CONST) and (m_objpas in aktmodeswitches) then
begin
consume(_CONST);
srsym:=nil;
if assigned(objpasunit) then
getsymonlyin(objpasunit,'TVARREC');
if not assigned(srsym) then
InternalError(1234124);
Parraydef(p)^.definition:=ptypesym(srsym)^.definition;
Parraydef(p)^.IsArrayOfConst:=true;
end
else
begin
{ define field type }
parraydef(p)^.definition:=single_type(s);
Parraydef(p)^.definition:=single_type(s);
end;
end
else
p:=single_type(s);
end
else
p:=new(pformaldef,init);
s:=sc^.get;
while s<>'' do
while not sc^.empty do
begin
procvardef^.concatdef(p,varspez);
s:=sc^.get;
procvardef^.concatdef(p,varspez);
end;
dispose(sc,done);
if token=SEMICOLON then consume(SEMICOLON)
else break;
if token=SEMICOLON then
consume(SEMICOLON)
else
break;
until false;
dec(testcurobject);
consume(RKLAMMER);
@ -2070,7 +2082,10 @@ unit pdecl;
end.
{
$Log$
Revision 1.75 1998-10-21 08:39:59 florian
Revision 1.76 1998-10-25 23:31:18 peter
* procvar parsing updated just like psub.pas routine
Revision 1.75 1998/10/21 08:39:59 florian
+ ansistring operator +
+ $h and string[n] for n>255 added
* small problem with TP fixed