paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 04:11:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed some notes/warnings.

Browse Source 
git-svn-id: trunk@5306 -
This commit is contained in:
yury 2006-11-10 12:36:45 +00:00
parent 5f484a0f14
commit c00d0debf0
2 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/inc/wstrings.inc
View File

@ -450,7 +450,6 @@ end;
procedure fpc_WideStr_Concat (var DestS:Widestring;const S1,S2 : WideString); compilerproc; procedure fpc_WideStr_Concat (var DestS:Widestring;const S1,S2 : WideString); compilerproc;
Var Var
Size,Location : SizeInt; Size,Location : SizeInt;
pc : pwidechar;
begin begin
{ only assign if s1 or s2 is empty } { only assign if s1 or s2 is empty }
if (S1='') then if (S1='') then

4
rtl/wince/system.pp
View File

@ -41,7 +41,7 @@ const
const const
{ Default filehandles } { Default filehandles }
UnusedHandle : THandle = -1; UnusedHandle : THandle = THandle(-1);
StdInputHandle : THandle = 0; StdInputHandle : THandle = 0;
StdOutputHandle : THandle = 0; StdOutputHandle : THandle = 0;
StdErrorHandle : THandle = 0; StdErrorHandle : THandle = 0;
@ -832,8 +832,6 @@ Const
DLL_THREAD_ATTACH = 2; DLL_THREAD_ATTACH = 2;
DLL_PROCESS_DETACH = 0; DLL_PROCESS_DETACH = 0;
DLL_THREAD_DETACH = 3; DLL_THREAD_DETACH = 3;
Const
DLLExitOK : boolean = true;
function Dll_entry : longbool;[public, alias : '_FPC_DLL_Entry']; function Dll_entry : longbool;[public, alias : '_FPC_DLL_Entry'];
var var