ChangeLog 2000-07-28 18:15 UTC+0100

harbour/ChangeLog

@@ -1,3 +1,9 @@
+2000-07-28 18:15 UTC+0100 Ryszard Glab <rglab@imid.med.pl>
+
+    *source/compiler/harbour.l
+        * changed handling of array indexes - to code is now simpler,
+        smaller and even more faster :)
+
 2000-07-28 06:30 UTC+0800 Ron Pinkas <ron@profit-master.com>
    + doc/simplex.txt
      + Added 1st draft of SimpLex documentation.

harbour/source/rtl/gtsln/gtsln.c

@@ -577,7 +577,7 @@ void hb_gt_Scroll( USHORT usTop, USHORT usLeft, USHORT usBottom, USHORT usRight,
       hb_xfree( fpBlank );
       hb_xfree( fpBuff );
 
-      hb_gtSetPos( usSaveRow, usSaveCol );
+      hb_gt_SetPos( usSaveRow, usSaveCol, HB_GT_SET_POS_AFTER );
 
       if( s_uiDispCount == 0 )
          SLsmg_refresh();

harbour/source/rtl/gtstd/gtstd.c

@@ -96,8 +96,6 @@ static void out_newline( void )
 
 int hb_gt_ReadKey( HB_inkey_enum eventmask )
 {
-   int ch;
-
    HB_TRACE(HB_TR_DEBUG, ("hb_gt_ReadKey(%d)", (int) eventmask));
 
    HB_SYMBOL_UNUSED( eventmask );

harbour/source/vm/classes.c

@@ -191,7 +191,7 @@ static PHB_DYNS s_msgClassH    = NULL;
 static PHB_DYNS s_msgEval      = NULL;
 static PHB_DYNS s_msgClassSel  = NULL;
 static PHB_DYNS s_msgClsParent = NULL;
-static PHB_DYNS s_msgClass     = NULL;
+/* static PHB_DYNS s_msgClass     = NULL; */
 
 /* All functions contained in classes.c */
 
@@ -210,7 +210,7 @@ static void     hb_clsRelease( PCLASS );
 static HARBOUR  hb___msgClsH( void );
 static HARBOUR  hb___msgClsName( void );
 static HARBOUR  hb___msgClsSel( void );
-static HARBOUR  hb___msgClass( void );
+/* static HARBOUR  hb___msgClass( void ); */
 static HARBOUR  hb___msgSuper( void );
 static HARBOUR  hb___msgEvalInline( void );
 static HARBOUR  hb___msgClsParent( void );
@@ -1993,10 +1993,12 @@ static HARBOUR hb___msgSuper( void )
  *
  * Internal function to return Self at Self:Class call (classy compatibility)
  */
+/*
 static HARBOUR hb___msgClass( void )
 {
    hb_itemReturn( hb_stack.pBase + 1 );
 }
+*/
 
 /*
  * __msgGetClsData()