Apple-2-Tools/dmolony-DiskBrowser
1
0
Fork 0
mirror of https://github.com/dmolony/DiskBrowser.git synced 2024-12-21 03:30:08 +00:00
Code Issues Projects Releases Wiki Activity

tidying

Browse Source
This commit is contained in:
Denis Molony 2024-08-12 16:30:12 +10:00
parent 706c64435f
commit dafc29c60e
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/com/bytezone/diskbrowser/applefile/PascalProcedure.java
View File

@ -25,6 +25,7 @@ public class PascalProcedure
int codeEnd; int codeEnd;
int parmSize; int parmSize;
int dataSize; int dataSize;
List<PascalCodeStatement> statements = new ArrayList<> (); List<PascalCodeStatement> statements = new ArrayList<> ();
AssemblerProgram assembler; AssemblerProgram assembler;
int jumpTable = -8; int jumpTable = -8;
@ -45,6 +46,7 @@ public class PascalProcedure
{ {
procedureNo = buffer[procOffset] & 0xFF; procedureNo = buffer[procOffset] & 0xFF;
procLevel = buffer[procOffset + 1] & 0xFF; procLevel = buffer[procOffset + 1] & 0xFF;
codeStart = Utility.getShort (buffer, procOffset - 2); codeStart = Utility.getShort (buffer, procOffset - 2);
codeEnd = Utility.getShort (buffer, procOffset - 4); codeEnd = Utility.getShort (buffer, procOffset - 4);
parmSize = Utility.getShort (buffer, procOffset - 6); parmSize = Utility.getShort (buffer, procOffset - 6);