Basically, am I stuck with making the function external, or is there some way round this?/* Below is the 3 functions that are supplied to me for testing (alon +g with a whole bunch of others!) */ long ResolveAsync (UCHAR* filepath, ULONG gateway, ULONG *hFS) { long result; ULONG hBiopSRG; // Display hFS value - It is '0', which is correct printf("[DEBUG] Entered ResolveAsync - filepath[%s], gateway[%d], +hFS[%d]\n", filepath, gateway, *hFS); result = FSCacheResolve (filepath, hBiopSRG, hFS, FLAG_NO_LOAD); // Display hFS value - It is '4294967295', which is incorrect. Whe +n this code // is run in a C environment it works fine and the result is eithe +r 2 or 9 // which is what it should be! printf("[DEBUG] Leaving ResolveAsync - filepath[%s], gateway[%d], +hFS[%Lu], Result[%d]\n", filepath, gateway, *hFS, result); return (result); } ////////////////////////////////////////////////////////////////////// +/// long FSCacheResolve (UCHAR* filepath, ULONG gateway, ULONG *handle, UCHAR flag) { // Display the value, it is 0, which it should be printf("[DEBUG] Entered FSCacheResolve(...) - hFS:[%Lu]\n", *handl +e); // ... // Do stuff ... // ... // This is the func that messes the handle!!! *handle = CacheGetHandle (row, hit); // Display the value now, it is WRONG - (handle == 4294967295) printf("[DEBUG] Leaving FSCacheResolve(...) - hFS:[%Lu]\n", *handl +e); return (result); } ////////////////////////////////////////////////////////////////////// +/////////////// // This function is declared as static, so I cant access it directly!! +! // Is there a way round this in PerlXS or will the function HAVE to be // made externaly available to get the correct results in C ??? // The CACHE structure is also declared in a .C file, and is // 'undeclared' as far as PERLXS is concerned. I have the .objs files // included in the makefile settings (O_FILES) static ULONG CacheGetHandle (uint32_t row, CACHE *entry) { ULONG hFS = INVALID_FS_HANDLE; hFS = (entry->llnode[COLLISION_LIST].handle * HASH_TABLE_SIZE) + +row; // hFS now has the correct value, which should be either '2' or '9 +' // but when the value is returned an examined in the calling funct +ion // (FSCacheResolve), its value is shown as 4294967295 // The following line prints either 2 or 9! printf("[DEBUG] In CacheGetHandle(...) - hFS:[%Lu]\n", hFS); return (hFS); } ////////////////////////////////////////////////////////////////////// +/////////////// Here's some of the XS file contents:- long dsmFSResolveAsync(filepath,gateway,hFS) unsigned char *filepath unsigned long gateway unsigned long & hFS OUTPUT: hFS RETVAL long FSCacheResolve(filepath,gateway,handle,flag) unsigned char *filepath unsigned long gateway unsigned long & handle unsigned char flag OUTPUT: handle RETVAL I have tried putting info about CacheGetHandle(...) here but it complains about the unresolved external, so is there a way around this??? ////////////////////////////////////////////////////////////////////// +//////// There's nothing really in the typemap file, just:- unsigned char * T_PV const char * T_PV And here's the test.pl file (Some of it!) $hObject = 0; $result = &testmain::ResolveAsync( "Dir0/binary", $gateway, $hObject); print $result == 0 ? "ok 8 {dsmFSResolveAsync} Handle:[$hObject]\n" : +"not ok 8 {dsmFSResolveAsync} Handle:[$hObject]\n"; # The value of $hObject ends up being 4294967295, when the same functi +on is called # under C, hObject equals either 2 or 9!!!!!
In reply to Re: (tye)Re: PerlXS type problem
by PH
in thread PerlXS type problem
by PH
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |