Lines Matching full:ordinal

71             my ( $obsolete, $entry, $ordinal ) = ( $1, $2, $3 );
76                 $entries{ $entry } = { ordinal => $ordinal, obsolete => defined( $obsolete ) };
77                 if ( defined( $ordinal ) and $ordinal ne "DATA" ) {
78                     if ( $ordinal >= 1000 and $entry =~ m{\A[ok]mp_} ) {
79                         $error->( "Ordinal of user-callable entry must be < 1000", $n, $line );
81                     if ( $ordinal >= 1000 and $ordinal < 2000 ) {
84                     if ( exists( $ordinals{ $ordinal } ) ) {
85                         $error->( "Ordinal $ordinal has already been used.", $n, $line );
87                     $ordinals{ $ordinal } = $entry;
110             my $ordinal = $entries->{ $entry }->{ ordinal };
111 …_alloc, omp_calloc, omp_realloc and omp_free are C/C++ only functions, skip "1000+ordinal" for them
114                 if ( not defined( $ordinal ) ) {
116                         "Bad entry \"$entry\": ordinal number is not specified."
119                 if ( $ordinal ne "DATA" ) {
120                     $entries->{ uc( $entry ) } = { ordinal => 1000 + $ordinal };
139             my $ordinal = $entries->{ $entry }->{ ordinal };
140             if ( defined( $ordinal ) ) {
141                 if ( $ordinal eq "DATA" ) {
144                     $bulk .= "\@" . $ordinal;
299     symbol ordinal
302 Symbols starting with C<omp_> or C<kmp_> must have ordinal specified. They are subjects for special
303 processing: each symbol generates two output lines: original one and upper case version. The ordinal
304 number of the second is original ordinal increased by 1000.
309     - symbol ordinal