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

* fixed wrong var parameter with @

Browse Source
This commit is contained in:
peter 2000-05-26 18:20:38 +00:00
parent 0ecc352bab
commit 8822c0dc43
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/utils/msg2inc.pp
View File

@ -33,9 +33,7 @@ var
OutFile,
OutName : string;
Mode : TMode;
TexOption,
TexHeader,
TexError : boolean;
TexHeader : boolean;
MsgTxt : pchar;
EnumTxt : pchar;
@ -233,7 +231,7 @@ begin
begin
write(t,' ');
s:=UpCase(strpas(p));
crcvalue:=UpdateCRC32(crcvalue,@s[1],length(s));
crcvalue:=UpdateCRC32(crcvalue,s[1],length(s));
{$ifdef DEBUGCRC}
Writeln(t2,s);
Writeln(t2,crcvalue);
@ -683,8 +681,7 @@ var
procedure helpscreen;
begin
writeln('usage : msg2inc [Options] <msgfile> <incfile> <constname>');
writeln('<Options> can be : -TE Create .doc TeX file (error style)');
writeln(' -TO Create .doc TeX file (options style)');
writeln('<Options> can be : -T Create .doc TeX file');
writeln(' -TS Create .doc TeX file (stand-alone)');
writeln(' -I Intel style asm output');
writeln(' -S array of string');
@ -708,8 +705,6 @@ begin
case ch of
'T' : begin
case upcase(para[1]) of
'O' : TexOption:=true;
'E' : TexError:=true;
'S' : TexHeader:=True;
end;
Mode:=M_Tex;
@ -777,7 +772,10 @@ begin
end.
{
$Log$
Revision 1.6 2000-05-15 13:14:48 pierre
Revision 1.7 2000-05-26 18:20:38 peter
* fixed wrong var parameter with @
Revision 1.6 2000/05/15 13:14:48 pierre
+ calculate a CRC value for enums
Revision 1.5 2000/02/09 13:23:11 peter