paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 16:09:17 +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

16
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
@ -1793,6 +1789,7 @@ var
var
s: String;
begin
Result := nil;
FileResolver := nil;
Scanner := nil;
Parser := nil;
@ -1826,6 +1823,9 @@ begin
Parser := TPasParser.Create(Scanner, FileResolver, AEngine);
Filename := '';
if FPCCommandLine<>'' then
begin
Start := @FPCCommandLine[1];
CurPos := Start;
while CurPos[0] <> #0 do
@ -1838,6 +1838,7 @@ begin
Inc(CurPos);
end;
ProcessCmdLinePart;
end;
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