Re: New VSI post on Youtube

On 8/21/2024 2:13 PM, Arne Vajhøj wrote:

On 8/21/2024 8:26 AM, chrisq wrote:

On 8/21/24 02:25, Lawrence D'Oliveiro wrote:

On Tue, 20 Aug 2024 09:47:36 -0400, Arne Vajhøj wrote:

Few languages support multiple return values.

>
Even in C and Fortran, a function can return a struct.

>
Better to declare the struct externally, then pass a pointer
to it. Much tidier.

 In C one should definitely return a pointer to struct and not
a struct.
 It looks like VSI Fortran cannot return a structure as function
result, but VSI Pascal can return a record as function result.
 And it is returned as a pointer argument under the hood.

Unless it fits in a register, then it is returned
as a true function result:
$ type s2.pas
module s2;
type
    iituple = record
                  a : integer;
                  b : integer;
              end;
[global]
function get : iituple;
var
    res : iituple;
begin
    res.a := 123;
    res.b := 456;
    get := res;
end;
end.
$ pas s2
$ type m2.c
#include <stdio.h>
struct iituple
{
     int a;
     int b;
};
struct iituple get();
int main()
{
     struct iituple res = get();
     printf("%d %d\n", res.a, res.b);
     return 0;
}
$ cc m2
$ link m2 + s2
$ run m2
123 456
Arne