mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 19:29:39 +02:00
* Fix compiler warnings
This commit is contained in:
parent
0a4f5558be
commit
496a86501a
@ -1094,7 +1094,6 @@ function TDirectiveEvaluator.GetStringLiteralValue: TIDLString;
|
|||||||
var
|
var
|
||||||
p, StartP: PChar;
|
p, StartP: PChar;
|
||||||
s: TIDLString;
|
s: TIDLString;
|
||||||
len : Integer;
|
|
||||||
|
|
||||||
begin
|
begin
|
||||||
S:='';
|
S:='';
|
||||||
|
Loading…
Reference in New Issue
Block a user