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

19990918-13:07 GMT+1

Browse Source
This commit is contained in:
Viktor Szakats
1999-09-18 11:19:51 +00:00
parent 83308a11f8
commit 1f2b57da88
2 changed files with 12 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
19990918-13:07 GMT+1 Victor Szel <info@szelvesz.hu>
* tests/working/rtl_test.prg
! OS_NewLine() is only used when __HARBOUR__ is defined.
19990918-01:55 EDT David G. Holm <dholm@jsd-llc.com>
* config/win32/bcc32.cf
! My previous update only allowed Borland to compile, but not link.
@@ -44,7 +49,7 @@
% These test programs now use OS_NewLine()
instead of using 4 different methods.
19990917-04:58 GMT+1 Victor Szel <info@szelvesz.hu>
19990918-04:58 GMT+1 Victor Szel <info@szelvesz.hu>
* source/vm/hvm.c
+ Added WORD typedef for HARBOUR_OBJ_GENERATION section.
@@ -58,7 +63,7 @@
+ hb_max_row() now returns 23 for UNIXes and 24 otherwise.
% fputs(" "...) -> fputc(' '...)
19990917-03:22 GMT+1 Victor Szel <info@szelvesz.hu>
19990918-03:22 GMT+1 Victor Szel <info@szelvesz.hu>
* source/rtl/memofile.c
source/rtl/Makefile

6
harbour/tests/working/rtl_test.prg
View File

@@ -1513,7 +1513,7 @@ STATIC FUNCTION Main_STRINGS()
#ifdef __HARBOUR__
STATIC FUNCTION Long_STRINGS()
TEST_LINE( RIGHT( SPACE( 64 * 1024 - 5 ) + "12345 7890", 10 ), "12345 7890" )
TEST_LINE( RIGHT( SPACE( 64 * 1024 - 5 ) + "12345 7890", 10 ), "12345 7890" )
TEST_LINE( LEN( SPACE( 81910 ) + "1234567890" ), 81920 )
TEST_LINE( ( "1234567890" + SPACE( 810910 ) ) - ( "1234567890" + SPACE( 810910 ) ), "12345678901234567890" + SPACE( 810910 * 2 ) )
@@ -2062,7 +2062,11 @@ STATIC FUNCTION TEST_BEGIN( cParam )
s_nStartTime := Seconds()
#ifdef __HARBOUR__
s_cNewLine := OS_NewLine()
#else
s_cNewLine := Chr( 13 ) + Chr( 10 )
#endif
s_lShowAll := "/ALL" $ Upper( cParam )
s_aSkipList := ListToNArray( CMDLGetValue( Upper( cParam ), "/SKIP:", "" ) )