version 1.32, 1998/08/29 20:46:13
|
version 1.33, 1998/10/25 23:15:46
|
Line 466 s" DFloat *" single-type starts-with df_
|
Line 466 s" DFloat *" single-type starts-with df_
|
s" SFloat *" single-type starts-with sf_ |
s" SFloat *" single-type starts-with sf_ |
s" Xt" single-type starts-with xt |
s" Xt" single-type starts-with xt |
s" WID" single-type starts-with wid |
s" WID" single-type starts-with wid |
s" F83Name *" single-type starts-with f83name |
s" struct F83Name *" single-type starts-with f83name |
|
|
set-current |
set-current |
|
|
Line 645 set-current
|
Line 645 set-current
|
cr ; |
cr ; |
|
|
: output-label ( -- ) |
: output-label ( -- ) |
." &&I_" c-name 2@ type ." ," cr ; |
." (Label)&&I_" c-name 2@ type ." ," cr ; |
|
|
: output-alias ( -- ) flush-comment on |
: output-alias ( -- ) flush-comment on |
?flush-comment |
?flush-comment |