mirror of https://github.com/A2osX/A2osX.git
83 lines
1.4 KiB
Plaintext
83 lines
1.4 KiB
Plaintext
NEW
|
||
AUTO 3,1
|
||
*--------------------------------------
|
||
* X = type qual
|
||
*--------------------------------------
|
||
CC.DECL jsr CC.TYPE.Decl
|
||
bcs .9
|
||
|
||
ldx #SYM.SC.STATIC Y,A = Type/Qual
|
||
bit bLocalScope
|
||
bpl .25
|
||
|
||
bit #SYM.Q.FUNC someone wants to add a local f() ?
|
||
sec
|
||
bne .29
|
||
|
||
ldx #SYM.SC.AUTO
|
||
|
||
.25 jsr CC.SYM.New Y,A=T/Q, add with undef value...
|
||
bcs .29 OOM or DUP
|
||
|
||
.22 jsr CC.GetCharNB
|
||
bcs .99
|
||
|
||
cmp #';'
|
||
beq .28
|
||
|
||
cmp #'{'
|
||
bne .26
|
||
|
||
jsr CC.GetNextCharNB skip '{'
|
||
bcs .99
|
||
|
||
jmp CC.SYM.StoreF
|
||
*--------------------------------------
|
||
* Initializer
|
||
*--------------------------------------
|
||
.26 cmp #'=' type var = value ?
|
||
bne .99
|
||
|
||
jsr CC.GetNextCharNB skip '='
|
||
bcs .99
|
||
|
||
jsr CC.SYM.GetTypeInYA expected T/Q
|
||
jsr CC.EXP.Eval
|
||
bcs .9
|
||
|
||
jsr CC.SYM.GetAddr1
|
||
bcs .9
|
||
|
||
jsr CC.SYM.SetValue Y,A = T/Q, Set value to this var
|
||
.29 bcs .9
|
||
|
||
.28 jsr CC.SYM.Store
|
||
bcs .9
|
||
|
||
jsr CC.GetCharNB
|
||
cmp #';'
|
||
bne .99
|
||
|
||
clc
|
||
rts
|
||
*--------------------------------------
|
||
.99 lda #E.CSYN
|
||
sec
|
||
.9 rts
|
||
*--------------------------------------
|
||
CC.SCSPEC.AUTO
|
||
CC.SCSPEC.REGISTER
|
||
CC.SCSPEC.STATIC
|
||
CC.SCSPEC.EXTERN
|
||
CC.SCSPEC.TYPEDEF
|
||
|
||
|
||
.98 lda #E.CSYN
|
||
sec
|
||
.99 rts
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE usr/src/bin/cc.s.decl
|
||
LOAD usr/src/bin/cc.s
|
||
ASM
|