I have been working on a component.
I am in the final(?) stages of completing the component.
Many of the component methods require 1 or more pointers as parameters.
I am testing, and in my testing database, I try to compile.
During this testing, the component is NOT compiled, or built.
I am getting errors on in many places where a pointer is a parameter.
The error all of these cases is:
Invalid constant type : Pointer
Any Ideas??
Thanks!
Chip
example:
(Testing database code)
ARRAY LONGINT($testing;0)
C_TEXT($errors)
// test passing pointer to wrong type of array
$Errors:=utl_sets_What_Sets (->[Table_2];->$testing)
------------
(Component code)
//(m) utl_sets_What_Sets
// $1 - pointer - to a table to determine what, if any sets exist
// $2 - pointer - to text array for setnames
//Array will be cleared(sized to 0)
//Setnames are added to Array ($2), a size zero array=no sets
//RETURNS - text - errors if any
// ∙ Created 06-06-17 by Chip -
C_POINTER($1;$2;$Table;$Array)
C_TEXT($0;$Errors)
C_LONGINT($Loc)
$Table:=$1
$Array:=$2
utl_errtxt_Init //error handler init
// validate incoming parameters - requires 3 pointers.
// a table pointer, a Text Array pointer, and a error text pointer
If (utl_sets_whatsets_Validate ($Table;$Array;->$Errors))
$Errors:=utl_array_Resize_Array (0;$Array) // Clear incomming array
If (utl_Is_Empty (->$Errors)) // If no errors
$Start:=1
Repeat
$Loc:=Find in array(<>aptr_Set_Tables;$Table;$Start)
If ($Loc>0) & ($Loc<=Size of array(<>ax_Set_Setnames))
INSERT IN ARRAY($Array->;1;1)
$Array->{1}:=<>ax_Set_Setnames{$Loc}
$Start:=$Loc+1
End if
// loop until not found, or processed entire array
Until ($Loc<=0) | ($$Start>Size of array(<>ax_Set_Setnames))
End if
End if
// report any errors encountered
utl_errtxt_End (Current method name;->$Errors)
$0:=$Errors
---------------
Gas is for washing parts
Alcohol is for drinkin'
Nitromethane is for racing
**********************************************************************
4D Internet Users Group (4D iNUG)
FAQ: http://lists.4d.com/faqnug.html
Archive: http://lists.4d.com/archives.html
Options: http://lists.4d.com/mailman/options/4d_tech
Unsub: mailto:4d_tech-unsubscr...@lists.4d.com
**********************************************************************
