diff --git a/harbour/ChangeLog b/harbour/ChangeLog index f0b2cff703..1d3694cab9 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,11 @@ The license applies to all entries newer than 2009-04-28. */ +2010-10-22 09:32 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) + * contrib/hbide/idemisc.prg + ! Fixed: a possible bug where .h files included in .hbp were + not guarded against -3rd=file=. + 2010-10-22 17:49 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * contrib/hbwin/win_os.prg + WIN_OSNETREGOK() extended to disable some SMB2 internal caches, diff --git a/harbour/contrib/hbide/idemisc.prg b/harbour/contrib/hbide/idemisc.prg index a1d54668cd..28a0fecaff 100644 --- a/harbour/contrib/hbide/idemisc.prg +++ b/harbour/contrib/hbide/idemisc.prg @@ -2197,15 +2197,17 @@ FUNCTION app_image( cName ) /*----------------------------------------------------------------------*/ FUNCTION hbide_isCompilerSource( cSource, cIncList ) - LOCAL cExt + LOCAL cExt, aExt DEFAULT cIncList TO ".c,.cpp,.prg,.hbs,.rc,.res,.hbm,.hbc,.qrc,.ui" cIncList := lower( cIncList ) + aExt := hb_aTokens( lower( cIncList ), "," ) hb_FNameSplit( cSource, , , @cExt ) + cExt := lower( cExt ) - RETURN lower( cExt ) $ cIncList + RETURN ascan( aExt, {|e| cExt == e } ) > 0 /*----------------------------------------------------------------------*/