paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 20:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@31531 -
This commit is contained in:
nickysn 2015-09-05 12:43:26 +00:00
parent c2c008c09a
commit 049171c69c
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/win16/prt0comn.asm
View File

@ -28,8 +28,11 @@
extern PASCALMAIN extern PASCALMAIN
extern InitTask extern InitTask
import InitTask KERNEL
extern WaitEvent extern WaitEvent
import WaitEvent KERNEL
extern InitApp extern InitApp
import InitApp USER
..start: ; Win16 applications start with the following ..start: ; Win16 applications start with the following
; values in registers: ; values in registers:

3
rtl/win16/system.pp
View File

@ -78,9 +78,6 @@ const
{$endif RTLLITE} {$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'; procedure MessageBox(hWnd: word; lpText, lpCaption: PChar; uType: word);external 'USER';
implementation implementation