mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-05-29 04:42:28 -04:00
Add required string length for C-to-Fortran calling sequence for stdmsg_().
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3114 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
0192ff74f8
commit
37be6919aa
@ -1188,7 +1188,7 @@ void MainWindow::readFromStdout() //readFromStdout
|
|||||||
ui->decodedTextBrowser->setTextCursor(cursor);
|
ui->decodedTextBrowser->setTextCursor(cursor);
|
||||||
|
|
||||||
QString msg=t.mid(34,22);
|
QString msg=t.mid(34,22);
|
||||||
bool b=stdmsg_(msg.toAscii().constData());
|
bool b=stdmsg_(msg.toAscii().constData(),22);
|
||||||
QStringList w=msg.split(" ",QString::SkipEmptyParts);
|
QStringList w=msg.split(" ",QString::SkipEmptyParts);
|
||||||
if(b and w[0]==m_myCall) {
|
if(b and w[0]==m_myCall) {
|
||||||
QString tt=w[2];
|
QString tt=w[2];
|
||||||
|
@ -306,7 +306,7 @@ void symspec_(int* k, int* ntrperiod, int* nsps, int* ingain, int* nb,
|
|||||||
void genjt9_(char* msg, int* ichk, char* msgsent, int itone[],
|
void genjt9_(char* msg, int* ichk, char* msgsent, int itone[],
|
||||||
int* itext, int len1, int len2);
|
int* itext, int len1, int len2);
|
||||||
|
|
||||||
bool stdmsg_(const char* msg);
|
bool stdmsg_(const char* msg, int len);
|
||||||
|
|
||||||
void azdist_(char* MyGrid, char* HisGrid, double* utch, int* nAz, int* nEl,
|
void azdist_(char* MyGrid, char* HisGrid, double* utch, int* nAz, int* nEl,
|
||||||
int* nDmiles, int* nDkm, int* nHotAz, int* nHotABetter,
|
int* nDmiles, int* nDkm, int* nHotAz, int* nHotABetter,
|
||||||
|
Loading…
x
Reference in New Issue
Block a user