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

20000521-14:42 GMT-8 Ron Pinkas <Ron@Profit-Master.com>

Browse Source 
* tests/testwarn.prg
     ! Consolidate #translate rules, and verified that it can compile under Clipper
This commit is contained in:
Ron Pinkas
2000-05-21 21:43:25 +00:00
parent c7e237273e
commit a2b2b0ab65
2 changed files with 9 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
20000521-14:42 GMT-8 Ron Pinkas <Ron@Profit-Master.com>
* tests/testwarn.prg
! Consolidate #translate rules, and verified that it can compile under Clipper
20000521-14:15 GMT-8 Ron Pinkas <Ron@Profit-Master.com>
* 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

27
harbour/tests/testwarn.prg
View File

@@ -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 <ClassName> =>
#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 <type>] =>
#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)