Changeset: 412 fdbozzo - 20/08/2014 18:10:36:
- Mejorado el reconocimiento de instrucciones #IF..#ENDIF cuando hay espacios entre # y el nombre de función
This commit is contained in:
@@ -99,6 +99,7 @@
|
||||
* 07/08/2014 FDBOZZO v1.19.30 Arreglo bug vcx/scx: Cuando la l<>nea anterior a un ENDTEXT termina en ";" o "," no se reconoce como ENDTEXT sino como continuaci<63>n (Jim Nelson)
|
||||
* 08/08/2014 FDBOZZO v1.19.30 Arreglo bug vcx/vct v1.19.29: En ciertos casos de herencia no se mantiene el orden alfabetico de algunos metodos (Ryan Harris)
|
||||
* 17/08/2014 FDBOZZO v1.19.31 Agregada versi<73>n del EXE cuando se genera LOG de depuraci<63>n
|
||||
* 20/08/2014 FDBOZZO v1.19.31 Mejora vcx/scx: Mejorado el reconocimiento de instrucciones #IF..#ENDIF cuando hay espacios entre # y el nombre de funci<63>n
|
||||
* </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>
|
||||
*
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
@@ -2697,6 +2698,13 @@ DEFINE CLASS c_conversor_base AS SESSION
|
||||
LOCAL llEncontrado, lcWord
|
||||
|
||||
TRY
|
||||
*-- Pre-normalizaci<63>n
|
||||
lcLine = tcLine
|
||||
|
||||
IF LEFT(lcLine,1) == '#'
|
||||
lcLine = CHRTRAN( lcLine, ' ', '' ) && Quito los espacios a lo que comience con #
|
||||
ENDIF
|
||||
|
||||
IF tnIniFin = 1
|
||||
*-- TOKENS DE INICIO
|
||||
IF UPPER( LEFT( tcLine, LEN(ta_ID_Bloques(X,1)) ) ) == ta_ID_Bloques(X,1)
|
||||
|
||||
Reference in New Issue
Block a user