git-svn-id: trunk@31531 -
@@ -28,8 +28,11 @@
extern PASCALMAIN
extern InitTask
+ import InitTask KERNEL
extern WaitEvent
+ import WaitEvent KERNEL
extern InitApp
+ import InitApp USER
..start: ; Win16 applications start with the following
; values in registers:
@@ -78,9 +78,6 @@ const
{$endif RTLLITE}
-procedure InitTask;external 'KERNEL';
-procedure WaitEvent;external 'KERNEL';
-procedure InitApp;external 'USER';
procedure MessageBox(hWnd: word; lpText, lpCaption: PChar; uType: word);external 'USER';
implementation