|
@@ -1250,13 +1250,13 @@ const
|
|
|
);
|
|
);
|
|
|
var
|
|
var
|
|
|
defstates : tdefstates;
|
|
defstates : tdefstates;
|
|
|
- i, nb, msgvalue, mesgnb : longint;
|
|
|
|
|
|
|
+ i, nb{, msgvalue}, mesgnb : longint;
|
|
|
first : boolean;
|
|
first : boolean;
|
|
|
copy_size, min_size, tokenbufsize : longint;
|
|
copy_size, min_size, tokenbufsize : longint;
|
|
|
tokenbuf : pbyte;
|
|
tokenbuf : pbyte;
|
|
|
- idtoken,
|
|
|
|
|
|
|
+// idtoken,
|
|
|
token : ttoken;
|
|
token : ttoken;
|
|
|
- state : tmsgstate;
|
|
|
|
|
|
|
+// state : tmsgstate;
|
|
|
new_settings : Tsettings;
|
|
new_settings : Tsettings;
|
|
|
len : sizeint;
|
|
len : sizeint;
|
|
|
wstring : widestring;
|
|
wstring : widestring;
|
|
@@ -1399,7 +1399,7 @@ begin
|
|
|
write('Error in Token List');
|
|
write('Error in Token List');
|
|
|
break;
|
|
break;
|
|
|
end;
|
|
end;
|
|
|
- idtoken:=readtoken;
|
|
|
|
|
|
|
+ {idtoken:=}readtoken;
|
|
|
end;
|
|
end;
|
|
|
case token of
|
|
case token of
|
|
|
_CWCHAR,
|
|
_CWCHAR,
|
|
@@ -1467,9 +1467,9 @@ begin
|
|
|
inc(i);
|
|
inc(i);
|
|
|
for nb:=1 to mesgnb do
|
|
for nb:=1 to mesgnb do
|
|
|
begin
|
|
begin
|
|
|
- msgvalue:=gettokenbufsizeint;
|
|
|
|
|
|
|
+ {msgvalue:=}gettokenbufsizeint;
|
|
|
inc(i,sizeof(sizeint));
|
|
inc(i,sizeof(sizeint));
|
|
|
- state:=tmsgstate(gettokenbufsizeint);
|
|
|
|
|
|
|
+ //state:=tmsgstate(gettokenbufsizeint);
|
|
|
end;
|
|
end;
|
|
|
end;
|
|
end;
|
|
|
ST_LINE:
|
|
ST_LINE:
|
yury