소스 검색

* TThread console output

Michael Van Canneyt 4 달 전
부모
커밋
62246e4ac6
1개의 변경된 파일0개의 추가작업 그리고 7개의 파일을 삭제
  1. 0 7
      packages/wasi/src/rtl.webthreads.pas

+ 0 - 7
packages/wasi/src/rtl.webthreads.pas

@@ -338,7 +338,6 @@ Type
   private
     FEnabled: boolean;
     FOnOutput: TThreadConsoleOutputEvent;
-    class function GetInstance: TThreadConsoleOutput; static;
     procedure HandleConsoleMessage(aCommand: TCustomWorkerCommand); virtual;
   Public
     class constructor done;
@@ -678,12 +677,6 @@ end;
 
 { TThreadConsoleOutput }
 
-class function TThreadConsoleOutput.GetInstance: TThreadConsoleOutput; static;
-begin
-  if _instance=Nil then
-    _Instance:=TThreadConsoleOutput.Create;
-  Result:=_instance;
-end;
 
 procedure TThreadConsoleOutput.HandleConsoleMessage(aCommand : TCustomWorkerCommand);
 var