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

* Some minor improvements

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-09-18 17:49:41 +02:00
parent 5ac4fd0b13
commit b18e381049
4 changed files with 9 additions and 9 deletions

2
packages/wasm-utils/demo/timer/timerdemo.pp
View File

@ -6,7 +6,7 @@ uses
{$IFDEF UNIX}
cthreads,
{$ENDIF}
SysUtils, Classes, wasm.timer.shared, wasm.timer.api, wasm.logger.api, wasm.timer.objects, wasm.http.api;
SysUtils, Classes, wasm.timer.shared, wasm.timer.api, wasm.logger.api, wasm.timer.objects;
Type

4
packages/wasm-utils/src/wasm.http.api.pas
View File

@ -85,7 +85,7 @@ function __wasmhttp_response_callback(aRequestID : TWasmHTTPRequestID; aUserData
procedure __wasmhttp_log(level : TWasmHTTPLogLevel; const Msg : String);
procedure __wasmhttp_log(level : TWasmHTTPLogLevel; const Fmt : String; Args : Array of const);
procedure __wasmhttp_log(level : TWasmHTTPLogLevel; const Fmt : String; const Args : Array of const);
var
OnWasmHTTPResponse : TWasmHTTPResponseEvent;
@ -108,7 +108,7 @@ begin
__wasm_log(level,'HTTP',Msg);
end;
procedure __wasmhttp_log(level : TWasmHTTPLogLevel; const Fmt : String; Args : Array of const);
procedure __wasmhttp_log(level : TWasmHTTPLogLevel; const Fmt : String; const Args : Array of const);
begin
if not EnableWasmHTTPLog then

8
packages/wasm-utils/src/wasm.logger.api.pas
View File

@ -33,14 +33,14 @@ Type
TWasmLogHook = procedure (Level : TWasmLogLevel; const Msg : string) of object;
Const
AllLogLevels = [Low(TWasmLogLevel)..High(TWasmLogLevel)];
AllWasmLogLevels = [Low(TWasmLogLevel)..High(TWasmLogLevel)];
var
OnWasmLog : TWasmLogHook;
WasmLogLevels : TWasmLogLevels = AllLogLevels;
WasmLogLevels : TWasmLogLevels = AllWasmLogLevels;
procedure __wasm_log(level : TWasmLogLevel; const Module, Msg : String);
procedure __wasm_log(level : TWasmLogLevel; const Module, Fmt : String; Args : Array of const);
procedure __wasm_log(level : TWasmLogLevel; const Module, Fmt : String; const Args : Array of const);
implementation
@ -54,7 +54,7 @@ begin
OnWasmLog(level,'['+Module+'] '+Msg);
end;
procedure __wasm_log(level : TWasmLogLevel; const Module, Fmt : String; Args : Array of const);
procedure __wasm_log(level : TWasmLogLevel; const Module, Fmt : String; const Args : Array of const);
begin
if not (level in WasmLogLevels) then

4
packages/wasm-utils/src/wasm.websocket.api.pas
View File

@ -81,7 +81,7 @@ Function __wasm_websocket_on_close (aWebsocketID : TWasmWebSocketID; aUserData :
procedure __wasmwebsocket_log(level : TWasmLogLevel; const Msg : String);
procedure __wasmwebsocket_log(level : TWasmLogLevel; const Fmt : String; Args : Array of const);
procedure __wasmwebsocket_log(level : TWasmLogLevel; const Fmt : String; const Args : Array of const);
var
WebSocketLogEnabled : Boolean;
@ -100,7 +100,7 @@ begin
__wasm_log(level,'websocket',msg);
end;
procedure __wasmwebsocket_log(level : TWasmWebSocketLogLevel; const Fmt : String; Args : Array of const);
procedure __wasmwebsocket_log(level : TWasmWebSocketLogLevel; const Fmt : String; const Args : Array of const);
begin
if not WebSocketLogEnabled then