paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 01:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed some warnings and notes while compiling RTL.

Browse Source 
git-svn-id: trunk@4256 -
This commit is contained in:
yury 2006-07-19 10:31:15 +00:00
parent 15f44bec2e
commit e1b9814b5d
12 changed files with 1003 additions and 992 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/arm/mathu.inc
View File

@ -114,6 +114,7 @@ function SetExceptionMask(const Mask: TFPUExceptionMask): TFPUExceptionMask;
var
c: dword;
begin
c:=0;
if exInvalidOp in Mask then
c:=c or _EM_INVALID;
if exDenormalized in Mask then

3
rtl/objpas/classes/cregist.inc
View File

@ -121,16 +121,19 @@ end;
function ActivateClassGroup(AClass: TPersistentClass): TPersistentClass;
begin
Result:=nil;
end;
function ClassGroupOf(AClass: TPersistentClass): TPersistentClass;
begin
Result:=nil;
end;
function ClassGroupOf(Instance: TPersistent): TPersistentClass;
begin
Result:=nil;
end;

4
rtl/objpas/convutil.inc
View File

@ -385,7 +385,7 @@ const macheps=1E-9;
Function RegisterConversionType(Fam:TConvFamily;Const S:String;Value:TConvUtilFloat):TConvType;
var i,l1 : Longint;
var l1 : Longint;
begin
If NOT CheckFamily(Fam) Then exit(-1); // family not registered.
@ -401,7 +401,7 @@ end;
function SearchConvert(TheType:TConvType; var r:ResourceData):Boolean;
var i,j,l1,l2 : longint;
var l1 : longint;
begin
l1:=length(TheUnits);

3
rtl/objpas/dateutil.inc
View File

@ -1972,7 +1972,7 @@ end;
Julian and Modified Julian Date conversion support
---------------------------------------------------------------------}
{$warnings off}
Function DateTimeToJulianDate(const AValue: TDateTime): Double;
begin
NotYetImplemented('DateTimeToJulianDate');
@ -2009,6 +2009,7 @@ Function TryModifiedJulianDateToDateTime(const AValue: Double; var ADateTime: TD
begin
NotYetImplemented('TryModifiedJulianDateToDateTime');
end;
{$warnings on}
{ ---------------------------------------------------------------------
Unix timestamp support.

2
rtl/objpas/sysutils/sysutils.inc
View File

@ -61,7 +61,7 @@
Function FileSetDate (Const FileName : String;Age : Longint) : Longint;
Var
fd : longint;
fd : THandle;
begin
fd:=FileOpen(FileName,fmOpenRead);

2
rtl/objpas/varutils.inc
View File

@ -351,7 +351,7 @@ Const
Function SafeArrayCreate(VarType, Dim: DWord; const Bounds: TVarArrayBoundArray): PVarArray;stdcall;
var
res : HRESULT;
I : SizeInt;
I : DWord;
begin
Result:=nil;
if Not (VarType in Supportedpsas) Then

4
rtl/win/sockets.pp
View File

@ -212,6 +212,8 @@ end;
function fpsocketpair (d:cint; xtype:cint; protocol:cint; sv:pcint):cint;
begin
fpsocketpair:=-1;
SocketError:=EOPNOTSUPP;
end;
Function CloseSocket(Sock:Longint):Longint;
@ -282,7 +284,7 @@ end;
Function SocketPair(Domain,SocketType,Protocol:Longint;var Pair:TSockArray):Longint;
begin
// SocketPair:=SocketCall(Socket_Sys_SocketPair,Domain,SocketType,Protocol,longint(@Pair),0,0);a
SocketPair:=fpsocketpair(domain,sockettype,protocol,@pair);
end;
{$ifdef unix}

4
rtl/wince/sockets.pp
View File

@ -212,6 +212,8 @@ end;
function fpsocketpair (d:cint; xtype:cint; protocol:cint; sv:pcint):cint;
begin
fpsocketpair:=-1;
SocketError:=EOPNOTSUPP;
end;
Function CloseSocket(Sock:Longint):Longint;
@ -282,7 +284,7 @@ end;
Function SocketPair(Domain,SocketType,Protocol:Longint;var Pair:TSockArray):Longint;
begin
// SocketPair:=SocketCall(Socket_Sys_SocketPair,Domain,SocketType,Protocol,longint(@Pair),0,0);a
SocketPair:=fpsocketpair(domain,sockettype,protocol,@pair);
end;
{$ifdef unix}

2
rtl/wince/sysutils.pp
View File

@ -928,6 +928,7 @@ var
begin
buf:=PCharToPWideChar(Str, -1, @len);
CharLowerBuff(buf, len);
Result:=Str;
WideToAnsiBuf(buf, -1, Result, len + 1);
FreeMem(buf);
end;
@ -940,6 +941,7 @@ var
begin
buf:=PCharToPWideChar(Str, -1, @len);
CharUpperBuff(buf, len);
Result:=Str;
WideToAnsiBuf(buf, -1, Result, len + 1);
FreeMem(buf);
end;

1960
rtl/wince/wininc/base.inc
View File

File diff suppressed because it is too large Load Diff

8
rtl/wince/wininc/unidef.inc
View File

@ -591,14 +591,14 @@ end;
//begin wince only
function CreateDialogParam(hInstance:HINST; lpTemplateName:LPCWSTR; hWndParent:HWND; lpDialogFunc:DLGPROC; dwInitParam:LPARAM):HWND;
begin
CreateDialogIndirectParam(hInstance,
CreateDialogParam:=CreateDialogIndirectParam(hInstance,
LPCDLGTEMPLATEW(LoadResource(hInstance, FindResource(hInstance, lpTemplateName, RT_DIALOG))),
hWndParent, lpDialogFunc, dwInitParam);
end;
function CreateDialog(hInstance:HINST; lpName:LPCWSTR; hWndParent:HWND; lpDialogFunc:DLGPROC):HWND;
begin
CreateDialogParam(hInstance, lpName, hWndParent, lpDialogFunc, 0);
CreateDialog:=CreateDialogParam(hInstance, lpName, hWndParent, lpDialogFunc, 0);
end;
function DialogBoxParam(hInstance:HINST; lpTemplateName:LPCWSTR; hWndParent:HWND; lpDialogFunc:DLGPROC; dwInitParam:LPARAM):longint;
@ -612,12 +612,12 @@ end;
function GetTextExtentPoint(_para1:HDC; _para2:LPCWSTR; _para3:longint; _para4:LPSIZE):WINBOOL;
begin
GetTextExtentExPoint(_para1, _para2, _para3, 0, nil, nil, _para4);
GetTextExtentPoint:=GetTextExtentExPoint(_para1, _para2, _para3, 0, nil, nil, _para4);
end;
function GetTextExtentPoint32(_para1:HDC; _para2:LPCWSTR; _para3:longint; _para4:LPSIZE):WINBOOL;
begin
GetTextExtentExPoint(_para1, _para2, _para3, 0, nil, nil, _para4);
GetTextExtentPoint32:=GetTextExtentExPoint(_para1, _para2, _para3, 0, nil, nil, _para4);
end;
//end wince only

2
rtl/wince/winsock2.pp
View File

@ -1326,7 +1326,7 @@ end;
procedure FD_CLR(Socket: TSocket; var FDSet: TFDSet);
var
I: Longint;
I: cardinal;
begin
I := 0;
while I < FDSet.fd_count do