Structure parsers reintroduced. ** NOT WORKING **

[virt-mem.git] / extract / codegen / pahole_parser.ml

diff --git a/extract/codegen/pahole_parser.ml b/extract/codegen/pahole_parser.ml
index d593dca..f8b5bd1 100644 (file)
--- a/extract/codegen/pahole_parser.ml
+++ b/extract/codegen/pahole_parser.ml
@@ -49,7 +49,7 @@ and f_type =
   | FStructPointer of string
   | FVoidPointer
   | FAnonListHeadPointer
-  | FListHeadPointer of string
+  | FListHeadPointer of (string * string) option
   | FInteger
   | FString of int
 
@@ -71,8 +71,10 @@ and string_of_f_type = function
   | FStructPointer struct_name -> sprintf "struct %s *" struct_name
   | FVoidPointer -> "void *"
   | FAnonListHeadPointer -> "struct list_head *"
-  | FListHeadPointer struct_name ->
-      sprintf "struct /* %s */ list_head *" struct_name
+  | FListHeadPointer None ->
+      sprintf "struct /* self */ list_head *"
+  | FListHeadPointer (Some (struct_name, field_name)) ->
+      sprintf "struct /* to %s.%s */ list_head *" struct_name field_name
   | FInteger -> "int"
   | FString width -> sprintf "char[%d]" width