added access codes to member flags

[swftools.git] / lib / as3 / mklib.c

diff --git a/lib/as3/mklib.c b/lib/as3/mklib.c
index ff9cfbc..bf963ba 100644 (file)
--- a/lib/as3/mklib.c
+++ b/lib/as3/mklib.c
@@ -191,10 +191,17 @@ void load_libraries(char*filename, int pass, FILE*fi)
                 default:
                     fprintf(stderr, "Unknown trait type %d\n", trait->kind);
             }
+            int flags = is_static?FLAG_STATIC:0;
+
+            if(access == ACCESS_PACKAGE) flags|=FLAG_PUBLIC;
+            if(access == ACCESS_PRIVATE) flags|=FLAG_PRIVATE;
+            if(access == ACCESS_PROTECTED) flags|=FLAG_PROTECTED;
+            if(access == ACCESS_PACKAGEINTERNAL) flags|=FLAG_INTERNAL;
+
             if(pass==0) {
                 fprintf(fi, "static memberinfo_t %s;\n", id2);
             } if(pass==1) {
-                fprintf(fi, "static memberinfo_t %s = {%s, \"%s\"", id2, type, name);
+                fprintf(fi, "static memberinfo_t %s = {%s, 0x%02x, \"%s\"", id2, type, flags, name);
                 if(!retvalue)
                     fprintf(fi, ", 0");
                 else