Re: [open-cobol-list] Problem calling a known void function

[Ehud Karni]

On Wed, 27 May 2009 12:39:21 Roger While wrote:
>
> Use COBOL syntax for doing this -
>
>         identification division.
>         program-id. test-free.
>         data        division.
>         working-storage section.
>         01 rec pic x(100) BASED.
>         procedure  division.
>             ALLOCATE rec.
>             move "123" to rec.
>             display rec.
>             FREE rec.
>             move 0 to return-code
>             stop run.

Thank you for your quick answer. We will look into it and use the COBOL
syntax, but for now (while migrating) we have reasons to keep it the
way it is. We have found a general workaround (e.g. for `srandom'):

Create a header file "void_fix.h" like this:

#define free dummy_free
#define srandom dummy_srandom
#include <stdlib.h>
#undef free
#undef srandom
/* the open-cobol compilation works even without prototype */
int free (void *ptr) ;
int srandom (unsigned int seed) ;


and for compilation do:

CWD=`pwd`
COB_CFLAGS="-include $CWD/void_fix.h"
export COB_CFLAGS
....compile as before....


Ehud.


--
 Ehud Karni           Tel: +972-3-7966-561  /"\
 Mivtach - Simon      Fax: +972-3-7966-667  \ /  ASCII Ribbon Campaign
 Insurance agencies   (USA) voice mail and   X   Against   HTML   Mail
 http://www.mvs.co.il  FAX:  1-815-5509341  / \
 GnuPG: 98EA398D <http://www.keyserver.net/>    Better Safe Than Sorry