Changeset 2877 in Sophya for trunk/SophyaProg

Timestamp:

Jan 3, 2006, 3:37:43 PM (20 years ago)

Author:

ansari

Message:

Portage/compilation sur AIX-XlC (regatta): Ajout protection ds tdynl.cc - Reza 3 Jan 2006

File:

• trunk/SophyaProg/Tests/tdynl.cc (modified) (1 diff)

trunk/SophyaProg/Tests/tdynl.cc

@@ -51 +51 @@
     PDynLinkMgr * dyl = PDynLinkMgr::BuildFromCFile(cfilename);
     PrtTim(" End of Compile-Link ");
-
-    MyDlFunctionOfXY f = (MyDlFunctionOfXY)dyl->GetFunction("myf_dyl");  
-    if (f != NULL) {
-      cout << " DlFunction f dyl.GetFunction(myf_dyl) linked OK - calling f() " << endl;
-      cout << "f(0,1)= " << f(0.,1.) << "  ?= testfunc_dynl(0,1)= " << testfunc_dynl(0.,1.) << endl;
-      cout << "f(1,1)= " << f(1.,1.) << "  ?= testfunc_dynl(1,1)= " << testfunc_dynl(1.,1.) << endl;
-      cout << "f(-1,2.5)= " << f(-1.,2.5) << "  ?= testfunc_dynl(-1,2.5)= " << testfunc_dynl(-1.,2.5) << endl;
-    } 
-    else {
-      cout << " ERROR linking DlFunction f !!! " << endl;
+    if (dyl != NULL) {
+      MyDlFunctionOfXY f = (MyDlFunctionOfXY)dyl->GetFunction("myf_dyl");  
+      if (f != NULL) {
+        cout << " DlFunction f dyl.GetFunction(myf_dyl) linked OK - calling f() " << endl;
+        cout << "f(0,1)= " << f(0.,1.) << "  ?= testfunc_dynl(0,1)= " << testfunc_dynl(0.,1.) << endl;
+        cout << "f(1,1)= " << f(1.,1.) << "  ?= testfunc_dynl(1,1)= " << testfunc_dynl(1.,1.) << endl;
+        cout << "f(-1,2.5)= " << f(-1.,2.5) << "  ?= testfunc_dynl(-1,2.5)= " << testfunc_dynl(-1.,2.5) << endl;
+      } 
+      else {
+        cout << " ERROR linking DlFunction f !!! " << endl;
+      }
+    delete dyl;
     }
-    delete dyl;
-  } 
+    else cout << " ERROR Creating shared object !!! " << endl;
+  }
  
   catch (PThrowable & exc) {