new function code_cutlast()

diff --git a/lib/as3/code.c b/lib/as3/code.c
index 5ce450c..2ca7082 100644 (file)
--- a/lib/as3/code.c
+++ b/lib/as3/code.c
@@ -1045,3 +1045,13 @@ code_t* code_append(code_t*code, code_t*toappend)
     return code_end(toappend);
 }
 
+code_t*code_cutlast(code_t*c)
+{
+    assert(!c->next);
+    code_t*prev = c->prev;
+    c->prev = 0;
+    prev->next=0;
+    code_free(c);
+    return prev;
+}
+

diff --git a/lib/as3/code.h b/lib/as3/code.h
index d842814..6345fba 100644 (file)
--- a/lib/as3/code.h
+++ b/lib/as3/code.h
@@ -86,6 +86,8 @@ void       code_free(code_t*c);
 code_t* code_atposition(codelookup_t*l, int pos);
 void codelookup_free(codelookup_t*codelookup);
 
+code_t*code_cutlast(code_t*c);
+
 codestats_t* code_get_statistics(code_t*code, abc_exception_list_t*exceptions);
 
 void codestats_print(codestats_t*s);