From dafc29c60ec4953dd41bada9e7beb8ad45a6c6b9 Mon Sep 17 00:00:00 2001 From: Denis Molony Date: Mon, 12 Aug 2024 16:30:12 +1000 Subject: [PATCH] tidying --- src/com/bytezone/diskbrowser/applefile/PascalProcedure.java | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/com/bytezone/diskbrowser/applefile/PascalProcedure.java b/src/com/bytezone/diskbrowser/applefile/PascalProcedure.java index ed49e60..0bb449b 100755 --- a/src/com/bytezone/diskbrowser/applefile/PascalProcedure.java +++ b/src/com/bytezone/diskbrowser/applefile/PascalProcedure.java @@ -25,6 +25,7 @@ public class PascalProcedure int codeEnd; int parmSize; int dataSize; + List statements = new ArrayList<> (); AssemblerProgram assembler; int jumpTable = -8; @@ -45,6 +46,7 @@ public class PascalProcedure { procedureNo = buffer[procOffset] & 0xFF; procLevel = buffer[procOffset + 1] & 0xFF; + codeStart = Utility.getShort (buffer, procOffset - 2); codeEnd = Utility.getShort (buffer, procOffset - 4); parmSize = Utility.getShort (buffer, procOffset - 6);