paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 17:40:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removed some warnings

Browse Source
This commit is contained in:
peter 2000-11-06 23:17:15 +00:00
parent ac3c08daca
commit 676d01dff6
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/inc/wstrings.inc
View File

@ -45,7 +45,7 @@ Const
WideRecLen = SizeOf(TWideRec); WideRecLen = SizeOf(TWideRec);
WideFirstOff = SizeOf(TWideRec)-1; WideFirstOff = SizeOf(TWideRec)-1;
{ (*
Procedure UniqueWideString(Var S : WideString); [Public,Alias : 'FPC_WIDESTR_UNIQUE']; Procedure UniqueWideString(Var S : WideString); [Public,Alias : 'FPC_WIDESTR_UNIQUE'];
{ {
Make sure reference count of S is 1, Make sure reference count of S is 1,
@ -54,8 +54,7 @@ Procedure UniqueWideString(Var S : WideString); [Public,Alias : 'FPC_WIDESTR_UNI
begin begin
end; end;
} *)
{**************************************************************************** {****************************************************************************
@ -413,8 +412,8 @@ var
maxi, maxi,
i,j : longint; i,j : longint;
e : boolean; e : boolean;
S : WideString; { S : WideString;
se : Pointer; se : Pointer; }
begin begin
i := 0; i := 0;
j := 0; j := 0;
@ -500,7 +499,10 @@ end;}
{ {
$Log$ $Log$
Revision 1.5 2000-11-06 20:34:24 peter Revision 1.6 2000-11-06 23:17:15 peter
* removed some warnings
Revision 1.5 2000/11/06 20:34:24 peter
* changed ver1_0 defines to temporary defs * changed ver1_0 defines to temporary defs
Revision 1.4 2000/10/21 18:20:17 florian Revision 1.4 2000/10/21 18:20:17 florian