paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 11:49:24 +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, OutFile,
OutName : string; OutName : string;
Mode : TMode; Mode : TMode;
TexOption, TexHeader : boolean;
TexHeader,
TexError : boolean;
MsgTxt : pchar; MsgTxt : pchar;
EnumTxt : pchar; EnumTxt : pchar;
@ -233,7 +231,7 @@ begin
begin begin
write(t,' '); write(t,' ');
s:=UpCase(strpas(p)); s:=UpCase(strpas(p));
crcvalue:=UpdateCRC32(crcvalue,@s[1],length(s)); crcvalue:=UpdateCRC32(crcvalue,s[1],length(s));
{$ifdef DEBUGCRC} {$ifdef DEBUGCRC}
Writeln(t2,s); Writeln(t2,s);
Writeln(t2,crcvalue); Writeln(t2,crcvalue);
@ -683,8 +681,7 @@ var
procedure helpscreen; procedure helpscreen;
begin begin
writeln('usage : msg2inc [Options] <msgfile> <incfile> <constname>'); writeln('usage : msg2inc [Options] <msgfile> <incfile> <constname>');
writeln('<Options> can be : -TE Create .doc TeX file (error style)'); writeln('<Options> can be : -T Create .doc TeX file');
writeln(' -TO Create .doc TeX file (options style)');
writeln(' -TS Create .doc TeX file (stand-alone)'); writeln(' -TS Create .doc TeX file (stand-alone)');
writeln(' -I Intel style asm output'); writeln(' -I Intel style asm output');
writeln(' -S array of string'); writeln(' -S array of string');
@ -708,8 +705,6 @@ begin
case ch of case ch of
'T' : begin 'T' : begin
case upcase(para[1]) of case upcase(para[1]) of
'O' : TexOption:=true;
'E' : TexError:=true;
'S' : TexHeader:=True; 'S' : TexHeader:=True;
end; end;
Mode:=M_Tex; Mode:=M_Tex;
@ -777,7 +772,10 @@ begin
end. end.
{ {
$Log$ $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 + calculate a CRC value for enums
Revision 1.5 2000/02/09 13:23:11 peter Revision 1.5 2000/02/09 13:23:11 peter