Viktor,
> ! Replaced 9999 internal and RT error codes with
> unique ones, in new Harbour ranges:
> NOTE: If you find some more 9999s in the core code, pls tell.
HBTest expected results should be updated in a few places
because of this change.
File contrib\hbbmcdx\bmdbfcdx1.c:
hb_errInternal( 9999, "hb_cdxSortWritePage: Can't create temporary
file.", "", "" );
hb_errInternal( 9999, "hb_cdxSortWritePage: Write error in temporary
file.", "", "" );
hb_errInternal( 9999, "hb_cdxSortGetPageKey: Read error from temporary
file.", "", "" );
hb_errInternal( 9999, "hb_cdxSortOut: memory structure corrupted.",
"", "" );
hb_errInternal( 9999, "hb_cdxSortOut: sorting fails.", "", "" );
hb_errInternal( 9999, "hb_cdxSortOut: memory structure corrupted(2).",
"", "" );
File contrib\hbct\ctnet.c:
pError = hb_errRT_New( ES_ERROR, HB_ERR_SS_TOOLS, 9999, 9999,
pError = hb_errRT_New( ES_ERROR, HB_ERR_SS_TOOLS, 9999, 9999,
File utils\hbpp\hbpplib.c:
pError = hb_errRT_New( ES_ERROR, "PP", 9999, ( ULONG ) iError, buffer, NULL,
0, EF_NONE | EF_CANDEFAULT );
File utils\hbtest\rt_array.prg:
TEST_LINE( AFill() , "E BASE 9999 Argument error
AFILL " )
TEST_LINE( AFill( NIL ) , "E BASE 9999 Argument error
AFILL " )
File utils\hbtest\rt_stra.prg:
TEST_LINE( StrZero(NIL) , "E BASE 9999 Argument error
STRZERO A:1:U:NIL F:S" )
TEST_LINE( StrZero("A", 10, 2) , "E BASE 9999 Argument error
STRZERO A:3:C:A;N:10;N:2 F:S" )
TEST_LINE( StrZero(100, 10, "A") , "E BASE 9999 Argument error
STRZERO A:3:N:100;N:10;C:A F:S" )
TEST_LINE( StrZero(100, 10, NIL) , "E BASE 9999 Argument error
STRZERO A:3:N:100;N:10;U:NIL F:S" )
TEST_LINE( StrZero(100, NIL, NIL) , "E BASE 9999 Argument error
STRZERO A:3:N:100;U:NIL;U:NIL F:S" )
Chen.
**********************************************************************************************
IMPORTANT: The contents of this email and any attachments are confidential.
They are intended for the
named recipient(s) only.
If you have received this email in error, please notify the system manager or
the sender immediately and do
not disclose the contents to anyone or make copies thereof.
*** eSafe scanned this email for viruses, vandals, and malicious content. ***
**********************************************************************************************
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
