Explorar o código

* moved the imports of InitTask, WaitEvent and InitApp to the win16 startup module

git-svn-id: trunk@31531 -
nickysn %!s(int64=10) %!d(string=hai) anos
pai
achega
049171c69c
Modificáronse 2 ficheiros con 3 adicións e 3 borrados
  1. 3 0
      rtl/win16/prt0comn.asm
  2. 0 3
      rtl/win16/system.pp

+ 3 - 0
rtl/win16/prt0comn.asm

@@ -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:

+ 0 - 3
rtl/win16/system.pp

@@ -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