pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-05-23 21:50:21 +02:00
Code Issues Actions Releases Activity

Removed debug code

Browse Source
This commit is contained in:
Salvador Díaz Fau 2025-02-16 15:14:50 +01:00
parent e2bafbdf9a
commit 44d69766b8
1 changed files with 1 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
source/uCEFBaseRefCounted.pas
View File

@ -67,7 +67,7 @@ type
implementation
uses
{$IFDEF CEF4DELHI_ALLOC_DEBUG}uCEFConstants,{$ENDIF} uCEFTypes, uCEFMiscFunctions, uCEFConstants, uCEFLibFunctions;
{$IFDEF CEF4DELHI_ALLOC_DEBUG}uCEFConstants,{$ENDIF} uCEFTypes, uCEFMiscFunctions;
// ***********************************************
@ -142,19 +142,6 @@ begin
end;
constructor TCefBaseRefCountedOwn.CreateData(size: Cardinal; owned : boolean);
procedure CefLog(const aFile : string; aLine, aSeverity : integer; const aMessage : string);
var
TempFile, TempMessage : AnsiString;
begin
if (length(aFile) > 0) and (length(aMessage) > 0) then
begin
TempFile := AnsiString(aFile);
TempMessage := AnsiString(aMessage);
cef_log(@TempFile[1], aLine, aSeverity, @TempMessage[1]);
end;
end;
begin
{$IFDEF CEF4DELHI_ALLOC_DEBUG}
GetMem(FData, size + (SizeOf(Pointer) * 3));
@ -188,14 +175,6 @@ begin
PCefBaseRefCounted(FData)^.has_one_ref := {$IFDEF FPC}@{$ENDIF}cef_base_has_one_ref;
PCefBaseRefCounted(FData)^.has_at_least_one_ref := {$IFDEF FPC}@{$ENDIF}cef_base_has_at_least_one_ref;
end;
try
if (size>250) then
raise Exception.Create('Size incorrecto');
except
on E: Exception do
CefLog('CEF4Delphi', 1, CEF_LOG_SEVERITY_ERROR, e.message + 'StackTrace: ' + e.StackTrace);
end;
end;
destructor TCefBaseRefCountedOwn.Destroy;