redefined Opcode_Type to enumeration

2014-01-29 02:30:50 +00:00
parent ff9ab83844
commit ec2dda7899
3 changed files with 61 additions and 38 deletions
--- a/h2/lib/h2-scheme-execute.adb
+++ b/h2/lib/h2-scheme-execute.adb
@ -198,7 +198,8 @@ declare
 w: object_word;
 for w'address use interp.stack'address;
 begin
-ada.text_io.put ("Frame " & object_word'image(w) &  " EVAL-GROUP RESULT ");
+ada.text_io.put_line ("Frame" & object_word'image(w) & " " & Opcode_Type'Image(Get_Frame_Opcode(Interp.Stack)));
+ada.text_io.put ("                      EVAL-GROUP RESULT ");
 print (Interp, R);
 end;