(****************************************************************) (* *) (* Gardens Point Modula-2 Library Definition *) (* *) (* *) (* (c) Copyright 1996 Faculty of Information Technology *) (* Queensland University of Technology *) (* *) (* Permission is granted to use, copy and change this *) (* program as long as the copyright message is left intact *) (* *) (****************************************************************) (* * This module gives access to the run-time stack dump procedure * The parameter fp must be a valid frame pointer *) DEFINITION MODULE StackUnwind; TYPE StackFPtr; PROCEDURE Unwind(fp : StackFPtr); END StackUnwind.