> On May 15, 2021, at 10:27 AM, Ryan Joseph <generic...@gmail.com> wrote:
>
> Looking at this again today and I have yet another question to confirm. I
> create one of the types using ctypesym.create but the others were just
> references from the system unit. We only want to change owner of the symbol I
> create, right? Not the system unit ones? If not changing owner maybe we need
> to add some ref count or something? just confirming to make sure.
Also it looks like ChangeOwnerAndName isn't making the compiler happy.
The dynamic array creates an unnamed typesym like this. (def is the array def
for [1,2,3])
newtype:=ctypesym.create(def.typename,def);
newtype.owner:=def.owner;
And specialized like this:
generic procedure DoThis<T>(p1: T);
begin
end;
begin
DoThis([1,2,3]);
end;
Then during assembling I get these errors.
Assembling (pipe)
/Users/ryanjoseph/Developer/Projects/FPC/macro_test/output/timpfuncspez0.s
<stdin>:40:50: error: unexpected token in directive
.globl _P$TIMPFUNCSPEZ19_$$_DOTHIS$1$CRCC2373297${Array Of Const/Constant
Open} Array of ShortInt
^
<stdin>:41:60: error: unexpected token in directive
.private_extern _P$TIMPFUNCSPEZ19_$$_DOTHIS$1$CRCC2373297${Array Of
Const/Constant Open} Array of ShortInt
^
<stdin>:42:44: error: unknown token in expression
_P$TIMPFUNCSPEZ19_$$_DOTHIS$1$CRCC2373297${Array Of Const/Constant Open} Array
of ShortInt:
^
<stdin>:117:50: error: invalid register name
call _P$TIMPFUNCSPEZ19_$$_DOTHIS$1$CRCC2373297${Array Of
Const/Constant Open} Array of ShortInt
^~~~~
<stdin>:117:50: error: Expected an op-mask register at this point
call _P$TIMPFUNCSPEZ19_$$_DOTHIS$1$CRCC2373297${Array Of
Const/Constant Open} Array of ShortInt
^
<stdin>:283:50: error: unexpected token in '.quad' directive
.quad _P$TIMPFUNCSPEZ19_$$_DOTHIS$1$CRCC2373297${Array Of
Const/Constant Open} Array of ShortInt
^
error: There were 1 errors compiling module, stopping
error: Compilation aborted
Regards,
Ryan Joseph
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
