Guardian Procedure Calls Reference Manual (G06.25+)

Guardian Procedure Calls (P)
Guardian Procedure Calls Reference Manual—522629-013
12-249
PROCESSOR_GETINFOLIST_ Procedure
Example
In the following example, the processor type and model of the caller’s processor are
returned in a structure.
LITERAL type = 2;
LITERAL model = 47;
INT attributes [0:1] := [ type, model ];
STRUCT processor^info;
BEGIN
INT processor^type;
INT processor^model;
END;
.
.
.
error := PROCESSOR_GETINFOLIST_ ( nodename:length
,! cpu parameter not
needed,!
! defaults to caller’s cpu
!
,attributes
,$OCCURS( attributes )
,processor^info
,$LEN ( processor^info ) / 2
,return^length );