fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update #pragma startup to not generate on msvc

Browse Source
This commit is contained in:
Paul Tucker
1999-10-08 10:49:10 +00:00
parent 608860ebb0
commit 05196e99fd
2 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
19991008-06:31 EDT Paul Tucker <ptucker@sympatico.ca>
* source\compiler\genc.c
+ && !defined(_MSC_VER) on generation of #pragma startup
19991007-23:18 GMT+1 Antonio Linares <alinares@fivetech.com>
* source/rtl/tclass.prg
* Method SetType() small fix (missing else).

2
harbour/source/compiler/genc.c
View File

@@ -167,7 +167,7 @@ void GenCCode( PHB_FNAME pFileName ) /* generates the C language output */
pSym = pSym->pNext;
}
fprintf( yyc, "\nHB_INIT_SYMBOLS_END( hb_vm_SymbolInit_%s%s )\n", _szPrefix, pFileName->szName );
fprintf( yyc, "#if ! defined(__GNUC__)\n #pragma startup hb_vm_SymbolInit_%s%s\n#endif\n\n\n", _szPrefix, pFileName->szName );
fprintf( yyc, "#if ! defined(__GNUC__) && ! defined(_MSC_VER)\n #pragma startup hb_vm_SymbolInit_%s%s\n#endif\n\n\n", _szPrefix, pFileName->szName );
/* Generate functions data
*/