paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 09:40:20 +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);
WideFirstOff = SizeOf(TWideRec)-1;
{
(*
Procedure UniqueWideString(Var S : WideString); [Public,Alias : 'FPC_WIDESTR_UNIQUE'];
{
Make sure reference count of S is 1,
@ -54,8 +54,7 @@ Procedure UniqueWideString(Var S : WideString); [Public,Alias : 'FPC_WIDESTR_UNI
begin
end;
}
*)
{****************************************************************************
@ -413,8 +412,8 @@ var
maxi,
i,j : longint;
e : boolean;
S : WideString;
se : Pointer;
{ S : WideString;
se : Pointer; }
begin
i := 0;
j := 0;
@ -500,7 +499,10 @@ end;}
{
$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
Revision 1.4 2000/10/21 18:20:17 florian