svnno****@sourc*****
svnno****@sourc*****
2015年 12月 9日 (水) 00:29:52 JST
Tera TermRevision: 6201
http://sourceforge.jp/projects/ttssh2/scm/svn/commits/6201
Author: maya
Date: 2015-12-09 00:29:51 +0900 (Wed, 09 Dec 2015)
Log Message:
-----------
random マクロコマンドが、指定した最大値を返す確率が極めて少ない問題を修正
Modified Paths:
--------------
trunk/teraterm/ttpmacro/ttl.c
-------------- next part --------------
Modified: trunk/teraterm/ttpmacro/ttl.c
===================================================================
--- trunk/teraterm/ttpmacro/ttl.c 2015-12-08 03:27:08 UTC (rev 6200)
+++ trunk/teraterm/ttpmacro/ttl.c 2015-12-08 15:29:51 UTC (rev 6201)
@@ -3550,7 +3550,7 @@
TVarId VarId;
WORD Err;
int MaxNum, Num;
- double d;
+ //double d;
Err = 0;
GetIntVar(&VarId,&Err);
@@ -3567,9 +3567,10 @@
srand((unsigned int)time(NULL));
}
//d = (1.0 / (RAND_MAX + 1.0)) * (rand() + 0.5);
- d = rand();
- d = (rand() / (double)RAND_MAX) * MaxNum;
- Num = (int)d;
+ //d = rand();
+ //d = (rand() / (double)RAND_MAX) * MaxNum;
+ //Num = (int)d;
+ Num = (int)(rand() / (RAND_MAX + 1.0) * (MaxNum + 1));
SetIntVal(VarId,Num);