Commit | Line | Data |
---|---|---|
252b5132 RH |
1 | .SPACE $PRIVATE$ |
2 | .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31 | |
3 | .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82 | |
4 | .SPACE $TEXT$ | |
5 | .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44 | |
6 | .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY | |
7 | .IMPORT $global$,DATA | |
8 | .IMPORT $$dyncall,MILLICODE | |
9 | ; gcc_compiled.: | |
10 | .SPACE $TEXT$ | |
11 | .SUBSPA $CODE$ | |
12 | ||
13 | .align 4 | |
14 | .EXPORT initialize_char_syntax,CODE | |
15 | .EXPORT initialize_char_syntax,ENTRY,PRIV_LEV=3,RTNVAL=GR | |
16 | initialize_char_syntax | |
17 | .PROC | |
18 | .CALLINFO FRAME=64,NO_CALLS,SAVE_SP,ENTRY_GR=3 | |
19 | .ENTRY | |
20 | addil L'is_idchar-$global$-32,%r27 | |
21 | .EXIT | |
22 | .PROCEND | |
23 | is_idchar .comm 256 |