paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cdecl added

Browse Source
This commit is contained in:
Tomas Hajny 2000-06-18 18:37:17 +00:00
parent 298925a7f5
commit bc08a4e2bd
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/os2/tests/PMDEMO1.PP
View File

@ -2,13 +2,15 @@
$Id$
Copyright (c) 1999-2000 by Florian Kl„mpfl
Copyright (c) 1999-2000 by Florian Klaempfl
****************************************************************************}
{ Sample program for FPC under OS/2 }
{ Classic Hello world in PM version }
{ $R pmdemo1.res} (* Not supported under OS/2 yet. *)
program pmdemo1;
uses
@ -26,7 +28,7 @@ program pmdemo1;
FCF_TASKLIST+FCF_MENU;
function clientwndproc(window : cardinal;msg : longint;mp1,mp2 : pointer) :
pointer;export;
pointer; cdecl; export;
const
text = 'Hello world by OS/2 and FPC';
@ -50,7 +52,7 @@ program pmdemo1;
109 : WinPostMsg(0,WM_QUIT,nil,nil);
201 : WinMessageBox(cardinal(1),cardinal(1),
'HelloPM from FPC',
'šber',0,MB_ICONEXCLAMATION+MB_MOVEABLE);
'About',0,MB_ICONEXCLAMATION+MB_MOVEABLE);
end;
else
clientwndproc:=WinDefWindowProc(window,msg,mp1,mp2);
@ -71,7 +73,10 @@ program pmdemo1;
end.
{
$Log$
Revision 1.4 2000-01-07 16:41:50 daniel
Revision 1.5 2000-06-18 18:37:17 hajny
* cdecl added
Revision 1.4 2000/01/07 16:41:50 daniel
* copyright 2000
Revision 1.3 2000/01/07 16:32:34 daniel