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

* patch from peter for resoursestring=string bug + fix crash missing --input

Browse Source
This commit is contained in:
marco 2005-04-07 07:55:40 +00:00
parent bc4e62c112
commit 2c488abcda
1 changed files with 21 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
fcl/passrc/pparser.pp
View File

@ -310,7 +310,6 @@ function TPasParser.ParseType(Parent: TPasElement; Prefix : String): TPasType;
end;
var
TypeToken: TToken;
Name, s: String;
EnumValue: TPasEnumValue;
Ref: TPasElement;
@ -320,7 +319,6 @@ begin
case CurToken of
tkIdentifier:
begin
TypeToken := CurToken;
Name := CurTokenString;
If (Prefix<>'') then
Name:=Prefix+'.'+Name;
@ -832,8 +830,6 @@ begin
Result := TPasResString(CreateElement(TPasResString, CurTokenString, Parent));
try
ExpectToken(tkEqual);
ExpectToken(tkString);
UngetToken;
Result.Value := ParseExpression;
ExpectToken(tkSemicolon);
except
@ -1116,7 +1112,7 @@ var
i: Integer;
VarType: TPasType;
Value, S: String;
U,M: string;
M: string;
begin
while True do
begin
@ -1374,7 +1370,7 @@ end;
procedure TPasParser.ParseProperty(Element:TPasElement);
function GetAccessorName: String;
begin
ExpectIdentifier;
@ -1400,7 +1396,7 @@ begin
ParseArgList(Element, TPasProperty(Element).Args, tkSquaredBraceClose);
NextToken;
end;
if CurToken = tkColon then
begin
// read property type
@ -1793,6 +1789,7 @@ var
var
s: String;
begin
Result := nil;
FileResolver := nil;
Scanner := nil;
Parser := nil;
@ -1826,18 +1823,22 @@ begin
Parser := TPasParser.Create(Scanner, FileResolver, AEngine);
Filename := '';
Start := @FPCCommandLine[1];
CurPos := Start;
while CurPos[0] <> #0 do
begin
if CurPos[0] = ' ' then
if FPCCommandLine<>'' then
begin
Start := @FPCCommandLine[1];
CurPos := Start;
while CurPos[0] <> #0 do
begin
if CurPos[0] = ' ' then
begin
ProcessCmdLinePart;
Start := CurPos + 1;
end;
Inc(CurPos);
end;
ProcessCmdLinePart;
Start := CurPos + 1;
end;
Inc(CurPos);
end;
ProcessCmdLinePart;
if Filename = '' then
raise Exception.Create(SErrNoSourceGiven);
@ -1856,7 +1857,10 @@ end.
{
$Log$
Revision 1.15 2005-02-17 18:33:31 peter
Revision 1.16 2005-04-07 07:55:40 marco
* patch from peter for resoursestring=string bug + fix crash missing --input
Revision 1.15 2005/02/17 18:33:31 peter
* parse global properties
Revision 1.14 2005/02/14 17:13:16 peter