home *** CD-ROM | disk | FTP | other *** search
- /*
- *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- *% Copyright (C) 1986,1991 by WATCOM Systems Inc. All rights %
- *% reserved. No part of this software may be reproduced %
- *% in any form or by any means - graphic, electronic or %
- *% mechanical, including photocopying, recording, taping %
- *% or information storage and retrieval systems - except %
- *% with the written permission of WATCOM Systems Inc. %
- *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
- Modified: By: Reason:
- --------- --- -------
- 22-nov-86 F.W.Crigger Initial implementation
- 19-nov-92 F.W.Crigger __CommonInit() and _init_files moved to cinit
- */
- #include <stdio.h>
- #include <stdlib.h>
- #include <malloc.h>
-
- extern int ___Argc; /* argument count */
- extern char **___Argv; /* argument vector */
- extern unsigned __ASTACKSIZ; /* alternate stack size */
- extern char *__ASTACKPTR; /* alternate stack pointer */
-
- extern void __CommonInit( void );
- extern int main( int, char ** );
-
- #pragma aux __CMain "*";
-
- #pragma aux __ASTACKPTR "*"
- #pragma aux __ASTACKSIZ "*"
-
- void __CMain()
- /************/
- {
- /* allocate alternate stack for F77 */
- __ASTACKPTR = (char *)alloca( __ASTACKSIZ ) + __ASTACKSIZ;
- __CommonInit();
- exit( main( ___Argc, ___Argv ) );
- }
-