paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:26:24 +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$ $Id$
Copyright (c) 1999-2000 by Florian Kl„mpfl Copyright (c) 1999-2000 by Florian Klaempfl
****************************************************************************} ****************************************************************************}
{ Sample program for FPC under OS/2 } { Sample program for FPC under OS/2 }
{ Classic Hello world in PM version } { Classic Hello world in PM version }
{ $R pmdemo1.res} (* Not supported under OS/2 yet. *)
program pmdemo1; program pmdemo1;
uses uses
@ -26,7 +28,7 @@ program pmdemo1;
FCF_TASKLIST+FCF_MENU; FCF_TASKLIST+FCF_MENU;
function clientwndproc(window : cardinal;msg : longint;mp1,mp2 : pointer) : function clientwndproc(window : cardinal;msg : longint;mp1,mp2 : pointer) :
pointer;export; pointer; cdecl; export;
const const
text = 'Hello world by OS/2 and FPC'; text = 'Hello world by OS/2 and FPC';
@ -50,7 +52,7 @@ program pmdemo1;
109 : WinPostMsg(0,WM_QUIT,nil,nil); 109 : WinPostMsg(0,WM_QUIT,nil,nil);
201 : WinMessageBox(cardinal(1),cardinal(1), 201 : WinMessageBox(cardinal(1),cardinal(1),
'HelloPM from FPC', 'HelloPM from FPC',
'šber',0,MB_ICONEXCLAMATION+MB_MOVEABLE); 'About',0,MB_ICONEXCLAMATION+MB_MOVEABLE);
end; end;
else else
clientwndproc:=WinDefWindowProc(window,msg,mp1,mp2); clientwndproc:=WinDefWindowProc(window,msg,mp1,mp2);
@ -71,7 +73,10 @@ program pmdemo1;
end. end.
{ {
$Log$ $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 * copyright 2000
Revision 1.3 2000/01/07 16:32:34 daniel Revision 1.3 2000/01/07 16:32:34 daniel