root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Corretti alcuni subdoli errori per windows.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@296 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1994-09-28 15:12:04 +00:00
parent 4777de77d9
commit 6d6524fea4
2 changed files with 11 additions and 5 deletions

6
ba/ba1300.h

@ -27,6 +27,8 @@ public:
class TTestFile : public TBaseisamfile
{
public:
TTestFile(int ln,bool lt=TRUE) : TBaseisamfile(ln,lt) {}
virtual ~TTestFile() {}
int close() {return _close();}
int open(unsigned int mode = _manulock) {return _open(mode);}
const char * file_name() const {return filename();}
@ -39,7 +41,7 @@ protected:
virtual void handler(WINDOW w, EVENT *e);
void update_text() {set_mode(M_COPY); check_stop();}
public:
WriteW(short x, short y, const char* line) {stringat(x,y,line);update_text();do_events();}
void WriteW(short x, short y, const char* line) {stringat(x,y,line);update_text();do_events();}
TTestWin();
~TTestWin() {};
};
@ -51,7 +53,7 @@ class TTestProc
TTestWin * _win; // Output window
long * _randseq; // Random sequence
long _ntest; // number of test in progress
long _nfile; // number of file being tested
int _nfile; // number of file being tested
long _kriminal; // number of record incriminated (Debug)
int _nkeys; // # of keys defined for current file
bool _block; // is test blocked ?

10
ba/ba1301.cpp

@ -12,6 +12,10 @@
#include <utility.h>
#include <progind.h>
#if XVT_OS!=XVT_OS_SCOUNIX
#include <direct.h>
#endif
#include "ba1300.h"
extern "C" {
@ -143,7 +147,7 @@ void TTestProc::do_random(long eod)
cbits++;
}
scale=(unsigned int)0x8000;
for (i=1;i<=cbits;i++)
for (i=1;i<=(long)cbits;i++)
{
scale=scale>>1;
scale |= 0x8000;
@ -157,7 +161,7 @@ void TTestProc::do_random(long eod)
{
rnd=rand();
rnd&=scale;
for (j=1;j<=(16-cbits);j++)
for (j=1;j<=(long)(16-cbits);j++)
rnd=rnd>>1;
if (((long) rnd)>=eod) // Difficile che accada...
rnd=(unsigned int) eod-1;
@ -335,7 +339,7 @@ void TTestProc::DumpReport(int err, long i, long x, int key)
#if XVT_OS==XVT_OS_SCOUNIX
mkdir("test",0777);
#else
mkdir("test");
_mkdir("test");
#endif
RandomFile.format("test%crnd%d.dat",Separator,rnum++);
if ((fp=fopen((const char*)RandomFile,"w"))!=NULL)