From a2b2b0ab650adde3d91aa3ffff9c17b7ce968c85 Mon Sep 17 00:00:00 2001 From: Ron Pinkas Date: Sun, 21 May 2000 21:43:25 +0000 Subject: [PATCH] 20000521-14:42 GMT-8 Ron Pinkas * tests/testwarn.prg ! Consolidate #translate rules, and verified that it can compile under Clipper --- harbour/ChangeLog | 7 ++++++- harbour/tests/testwarn.prg | 27 +++------------------------ 2 files changed, 9 insertions(+), 25 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index c96b331351..fda3612503 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,8 @@ +20000521-14:42 GMT-8 Ron Pinkas + + * tests/testwarn.prg + ! Consolidate #translate rules, and verified that it can compile under Clipper + 20000521-14:15 GMT-8 Ron Pinkas * source/compiler/harbour.l @@ -20,7 +25,7 @@ + Added logic to add | HB_FS_FIRST to first defined symbol in a prg. * source/vm/hvm.c - * Modified hb_vmProcessSymbols() to llok for HB_FS_FIRST for startup procedure instead of any first symbol. + * Modified hb_vmProcessSymbols() to look for HB_FS_FIRST for startup procedure instead of any first symbol. * source/compiler/harbour.y * Minor consilidation in AsType diff --git a/harbour/tests/testwarn.prg b/harbour/tests/testwarn.prg index 3cde6aea84..0f826bb8e5 100644 --- a/harbour/tests/testwarn.prg +++ b/harbour/tests/testwarn.prg @@ -7,27 +7,7 @@ #pragma -es0 #else - #TRANSLATE AS ARRAY OF CHAR => - #TRANSLATE AS ARRAY OF CHARACTER => - #TRANSLATE AS ARRAY OF STRING => - - #TRANSLATE AS ARRAY OF CLASS => - - #TRANSLATE AS ARRAY OF NUM => - #TRANSLATE AS ARRAY OF NUMERIC => - - #TRANSLATE AS ARRAY OF DATE => - #TRANSLATE AS ARRAY OF ARRAY => - #TRANSLATE AS ARRAY OF BLOCK => - #TRANSLATE AS ARRAY OF OBJECT => - - #TRANSLATE AS ARRAY OF BOOL => - #TRANSLATE AS ARRAY OF BOOLEAN => - #TRANSLATE AS ARRAY OF LOGICAL => - - #TRANSLATE AS ARRAY OF VAR => - #TRANSLATE AS ARRAY OF VARIANT => - + #TRANSLATE AS ARRAY [OF ] => #TRANSLATE AS CHAR => #TRANSLATE AS CHARACTER => @@ -39,7 +19,6 @@ #TRANSLATE AS NUMERIC => #TRANSLATE AS DATE => - #TRANSLATE AS ARRAY => #TRANSLATE AS BLOCK => #TRANSLATE AS OBJ => @@ -101,13 +80,13 @@ PROCEDURE THEMAIN( optional ) LOCAL a As Char, oB AS Class MyClass, c AS Char, oD AS Class OtherClass FIELD b AS NUM - USE TEMP - MEMVAR a AS NUM MEMVAR Var1 AS NUM PRIVATE TEST AS CHAR + USE TEMP + oMyObj:MyMethod( 2, 3, 4 ) a := b:nMyFunc(2,3)