eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Code cleanup

This commit is contained in:
mysticbbs 2012-03-04 21:27:04 -05:00
parent c5cd42afd9
commit d00b93a587
1 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
mystic/mpl_compile.pas
View File

@ -355,8 +355,6 @@ Begin
End; End;
Procedure TParserEngine.OutString (Str: String); Procedure TParserEngine.OutString (Str: String);
Var
Count : Byte;
Begin Begin
If UpdateInfo.ErrorType <> 0 Then Exit; If UpdateInfo.ErrorType <> 0 Then Exit;
@ -1610,8 +1608,6 @@ End;
// {$include blah.mps} // {$include blah.mps}
Procedure TParserEngine.DefineConst; Procedure TParserEngine.DefineConst;
Var
TempStr : String;
Begin Begin
If CurConstNum = mplMaxConsts Then If CurConstNum = mplMaxConsts Then
Error(mpsMaxConsts, ''); Error(mpsMaxConsts, '');
@ -1712,7 +1708,7 @@ End;
Procedure TParserEngine.DefineVariable; Procedure TParserEngine.DefineVariable;
Var Var
Info : TParserVarInfoRec; Info : TParserVarInfoRec;
BaseRec : TParserVarInfoRec; // BaseRec : TParserVarInfoRec;
Count : LongInt; Count : LongInt;
Begin Begin
ParseVariableInfo(False, False, Info); ParseVariableInfo(False, False, Info);
@ -1721,12 +1717,12 @@ Begin
OutString (Char(opTypeRec)); OutString (Char(opTypeRec));
OutWord (RecData[Info.StrLen]^.NumFields); OutWord (RecData[Info.StrLen]^.NumFields);
BaseRec := Info; // BaseRec := Info;
BaseRec.Prefix := ''; // BaseRec.Prefix := '';
BaseRec.NumVars := 1; // BaseRec.NumVars := 1;
BaseRec.StrLen := 0; // BaseRec.StrLen := 0;
BaseRec.ArrDem := 0; // BaseRec.ArrDem := 0;
(* (*
writeln('baserecord'); writeln('baserecord');
@ -1809,7 +1805,6 @@ End;
Procedure TParserEngine.DefineRecord; Procedure TParserEngine.DefineRecord;
// get rid of this crap kludge and do records the right way... // get rid of this crap kludge and do records the right way...
Var Var
RecNum : LongInt;
Ident : String; Ident : String;
Info : TParserVarInfoRec; Info : TParserVarInfoRec;
Begin Begin