From 626b5f317d246740bda38d350fcfd1be1bac9b11 Mon Sep 17 00:00:00 2001 From: paul Date: Mon, 1 Sep 2008 12:15:43 +0000 Subject: [PATCH] fix compilation git-svn-id: trunk@16349 - --- lcl/asyncprocess.pp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lcl/asyncprocess.pp b/lcl/asyncprocess.pp index eafcd6bfe1..c586d95604 100644 --- a/lcl/asyncprocess.pp +++ b/lcl/asyncprocess.pp @@ -118,11 +118,6 @@ end; uses BaseUnix, TermIO; -procedure Register; -begin - RegisterComponents('System',[TProcessUTF8,TAsyncProcess]); -end; - function TAsyncProcess.GetNumBytesAvailable: dword; begin if not (poUsePipes in Options) then @@ -260,4 +255,9 @@ begin inherited Execute; end; +procedure Register; +begin + RegisterComponents('System',[TProcessUTF8,TAsyncProcess]); +end; + end.