paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 07:19:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Ensure code compiles with 3.2.2

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-12-23 13:26:15 +01:00
parent ed000e6cd7
commit 8bf8272892
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-web/src/base/fpdebugcapturesvc.pp
View File

@ -272,7 +272,11 @@ end;
procedure TDebugCaptureService.DoLog(aType: TEventType; const aFmt: String; args: array of const);
begin
if Assigned(FonLog) then
{$IF DECLARED(SafeFormat)}
FonLog(aType,SafeFormat(aFmt,args));
{$ELSE}
FonLog(aType,Format(aFmt,args));
{$ENDIF}
end;
function TDebugCaptureService.CreateRegistrationList: THandlerRegistrationList;

4
packages/fcl-web/src/base/httpdefs.pp
View File

@ -114,6 +114,10 @@ const
'Thu', 'Fri', 'Sat');
Type
{$IF NOT DECLARED(RTLString)}
RTLString = Ansistring;
{$ENDIF}
// HTTP related variables.
THTTPVariableType = (hvUnknown,hvHTTPVersion, hvMethod, hvCookie, hvSetCookie, hvXRequestedWith,
hvPathInfo,hvPathTranslated,hvRemoteAddress,hvRemoteHost,hvScriptName,