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

2009-03-04 19:34 UTC+0100 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* source/compiler/ppcomp.c
    ! #pragma -k? options are now case-insensitive like all
      other Harbour options.
      This completes this change:
      2008-08-06 22:18 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
This commit is contained in:
Viktor Szakats
2009-03-04 18:36:10 +00:00
parent ecfc3b57fa
commit 9ef37d449f
2 changed files with 16 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -8,6 +8,13 @@
2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2009-03-04 19:34 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* source/compiler/ppcomp.c
! #pragma -k? options are now case-insensitive like all
other Harbour options.
This completes this change:
2008-08-06 22:18 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
2009-03-04 18:42 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* utils/hbmk2/hbmk2.prg
+ Added warning msg if referenced .hbm file cannot be found.

9
harbour/source/compiler/ppcomp.c
View File

@@ -201,35 +201,44 @@ static BOOL hb_pp_CompilerSwitch( void * cargo, const char * szSwitch,
switch( szSwitch[ 1 ] )
{
case 'c':
case 'C':
/* clear all flags - minimal set of features */
HB_COMP_PARAM->supported &= HB_COMPFLAG_SHORTCUTS;
HB_COMP_PARAM->supported |= HB_COMPFLAG_OPTJUMP |
HB_COMPFLAG_MACROTEXT;
break;
case 'h':
case 'H':
iFlag = HB_COMPFLAG_HARBOUR;
break;
case 'o':
case 'O':
iFlag = HB_COMPFLAG_EXTOPT;
break;
case 'i':
case 'I':
iFlag = HB_COMPFLAG_HB_INLINE;
break;
case 'r':
case 'R':
iFlag = HB_COMPFLAG_RT_MACRO;
break;
case 'x':
case 'X':
iFlag = HB_COMPFLAG_XBASE;
break;
case 'j':
case 'J':
iFlag = HB_COMPFLAG_OPTJUMP;
iValue = !iValue;
break;
case 'm':
case 'M':
iFlag = HB_COMPFLAG_MACROTEXT;
iValue = !iValue;
break;
case 's':
case 'S':
iFlag = HB_COMPFLAG_ARRSTR;
break;
default: