Changeset 1024 for trunk/src/core/RpUnitsFInterface.cc

Timestamp:

Jun 8, 2008, 7:00:19 PM (16 years ago)

Author:

gah

Message:

64-bit hash table fix for fortrans

File:

• trunk/src/core/RpUnitsFInterface.cc (modified) (2 diffs)

trunk/src/core/RpUnitsFInterface.cc

@@ -18 +18 @@
 #include "RpBindingsDict.h"
 
-int
+extern "C" int
 rp_define_unit( char* unitName,
                     int* basisName,
@@ -33 +33 @@
 
     if (basisName && *basisName) {
-        basisStrName = ObjDictUnits.find(*basisName);
+        long key = (long)*basisName;
+        basisStrName = ObjDictUnits.find(key);
 
         if (basisStrName != "") {