Initializing variant records - how? - Gpc

4 Dec 2001

      Hi,

I need (want!) to initialize variant records. I have created a small
example - doesn't compile of course because I can't find how to do it. I
guess GPC can do it since VS_Pascal (IBM/MVS), VAXPascal and SPARCPascal all
allow me to do it (all in different ways of course!).

Anyone?

Cheers, Martin.

program varaint_test( input , output ) ;

type
    variant_record =
    record
        case boolean of
            false : (
                    compare : integer( 32 )
                    ) ;
            true  : (

                    case boolean of
                        false : (
                                page ,
                                offset : integer( 16 )
                                ) ;
                        true  : (
                                len ,
                                disp  : integer( 16 )
                                ) ;
                        ) ;
    end ;

var
    mgcd : variant_record := ( compare : 12345 ) ; (* How can I do this? *)

begin
    writeln( 'ok' ) ;
end.

Initializing variant records - how?

Martin G C Davies

tags

participants (3)