| .SPACE $PRIVATE$ |
| .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31 |
| .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82 |
| .SPACE $TEXT$ |
| .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44 |
| .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY |
| .IMPORT $global$,DATA |
| .IMPORT $$dyncall,MILLICODE |
| ; gcc_compiled.: |
| .SPACE $TEXT$ |
| .SUBSPA $CODE$ |
| |
| .align 4 |
| .EXPORT initialize_char_syntax,CODE |
| .EXPORT initialize_char_syntax,ENTRY,PRIV_LEV=3,RTNVAL=GR |
| initialize_char_syntax |
| .PROC |
| .CALLINFO FRAME=64,NO_CALLS,SAVE_SP,ENTRY_GR=3 |
| .ENTRY |
| addil L'is_idchar-$global$-32,%r27 |
| .EXIT |
| .PROCEND |
| is_idchar .comm 256 |