Pro*C 程序 运行 在 AIX 中正确但在 RHEL 中不正确

Pro*C program run properly in AIX but not in RHEL

我遇到了一些问题 运行 使用 proC 代码完成的二进制文件。我可以在我的新服务器 RHEL (7.8) 中编译它(没有警告),但它会循环直到失败。我制作了一个简单的 proC 脚本来测试编译(见下文)。这个脚本很容易在我以前的服务器 AIX (6.1.0.0) 上运行。数据库是 Oracle 11c。

这是我要编译和执行的简单代码:

#include "demo.h"
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <sqlca.h>
#include <oraca.h>

int code_erreur;
char libelle_erreur[200];

EXEC ORACLE OPTION (ORACA=YES);

EXEC SQL BEGIN DECLARE SECTION;
    VARCHAR username[30];
    VARCHAR password[30];
    VARCHAR host[30];

    VARCHAR dynstmt[80];
    VARCHAR mData[81];

EXEC SQL END DECLARE SECTION;

int connect()
{
    printf("\nConnection to %s@%s\n",username.arr,host.arr);

    EXEC SQL CONNECT :username IDENTIFIED BY :password USING :host;

    printf("Connection established\n");
    return 0;
}

void sqlerr()
{
    code_erreur = sqlca.sqlcode;
    strcpy(libelle_erreur,sqlca.sqlerrm.sqlerrmc);
    printf("SQL ERROR : %d,%s ;\n", code_erreur,libelle_erreur);
    printf("sqlca.sqlerrd : %d\n",sqlca.sqlerrd[2]);
}

int loadData()
{
    int lIter;

    strcpy(dynstmt.arr, "SELECT BANNER FROM V$VERSION\n");
    dynstmt.len = strlen(dynstmt.arr);

    printf("%s", (char *)dynstmt.arr);

    EXEC SQL PREPARE S FROM :dynstmt;
    EXEC SQL DECLARE lCursorData CURSOR FOR S;
    EXEC SQL OPEN lCursorData;

    for (lIter=0;lIter<10;lIter++)
    {
        EXEC SQL WHENEVER NOT FOUND DO break;
        EXEC SQL FETCH lCursorData INTO :mData;
        printf("%s\n", mData.arr);
    }
    EXECL SQL CLOSE lCursorData;
    return 0;
}

void main()
{
    int lRetour=0;
    printf("Start demo\n");

    strcpy((char *)username.arr,"USER");
    username.len=(unsigned short)strlen((char *)username.arr);

    strcpy((char *)password.arr,"PASS");
    password.len=(unsigned short)strlen((char *)password.arr);

    strcpy((char *)host.arr,"HOST");
    host.len=(unsigned short)strlen((char *)host.arr);

    EXEC SQL WHENEVER SQLERROR do sqlerr();
    lRetour = connect();
    lRetour = loadData();

    EXEC SQL COMMIT WORK RELEASE;

    printf("End demo\n");
    exit(0);
}

当我编译它并在我的 AIX 服务器上执行它时,我得到的是:

Start demo

Connection to USER@HOST
Connection established
SELECT BANNER FROM V$VERSION
[...]
End demo

但是当我在 RHEL 上编译并执行它时,二进制循环直到内存错误:

[...]
Connection to USER@HOST

Connection to USER@HOST

Connection to USER@HOST
Memory fault

当然,我希望在 RHEL 中获得相同的 AIX 结果。

您的 connect 函数应定义为 static,否则它将替换 libc.

中的 connect(2) 库函数
@@ -20,7 +20,7 @@

 EXEC SQL END DECLARE SECTION;

-int connect()
+static int connect()
 {
     printf("\nConnection to %s@%s\n",username.arr,host.arr);

@@ -57,7 +57,7 @@