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

amunits: fixed error to be PLongInt instead of PCxObj in CxBroker. Shouldn't make a big actual difference, but for the sake of correctness...

Browse Source 
git-svn-id: trunk@32705 -
This commit is contained in:
Károly Balogh 2015-12-24 08:02:37 +00:00
parent 21352ca934
commit d866e0be32
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/amunits/src/coreunits/commodities.pas
View File

@ -235,7 +235,7 @@ PROCEDURE AddIEvents(events : pInputEvent location 'a0'); syscall CxBase 180;
PROCEDURE AttachCxObj(headObj : pCxObj location 'a0'; co : pCxObj location 'a1'); syscall CxBase 084;
PROCEDURE ClearCxObjError(co : pCxObj location 'a0'); syscall CxBase 072;
FUNCTION CreateCxObj(typ : ULONG location 'd0'; arg1 : LONGINT location 'a0'; arg2 : LONGINT location 'a1') : pCxObj; syscall CxBase 030;
FUNCTION CxBroker(nb : pNewBroker location 'a0'; error : pCxObj location 'd0') : pCxObj; syscall CxBase 036;
FUNCTION CxBroker(nb : pNewBroker location 'a0'; error : PLongInt location 'd0') : pCxObj; syscall CxBase 036;
FUNCTION CxMsgData(cxm : pCxMsg location 'a0') : POINTER; syscall CxBase 144;
FUNCTION CxMsgID(cxm : pCxMsg location 'a0') : LONGINT; syscall CxBase 150;
FUNCTION CxMsgType(cxm : pCxMsg location 'a0') : ULONG; syscall CxBase 138;