From 8a9b2379dc84bde6c96f5ca98710dbcca79aecf9 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Wed, 11 Mar 1987 09:23:23 +0000
Subject: [PATCH] Bug fixed that was introduced by Kees Visser's modifications

---
 lang/pc/pem/pem.p | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lang/pc/pem/pem.p b/lang/pc/pem/pem.p
index c6caede3b..d76cc8ddc 100644
--- a/lang/pc/pem/pem.p
+++ b/lang/pc/pem/pem.p
@@ -856,7 +856,7 @@ end end;
 procedure load;
 var sz:integer;
 begin with a do begin sz:=sizeof(asp,packbit);
-  if asp<>nil then
+  if asp<>nil then begin
     case ak of
       cst:
 	gencst(op_loc,pos.ad);  {only one-word scalars}
@@ -871,12 +871,13 @@ begin with a do begin sz:=sizeof(asp,packbit);
       indexed:
 	gencst(op_lar,sz_word);
     end;  {case}
-  ak:=loaded;
   if asp^.form = subrange then
      if sz < sz_word then
 	if asp^.min < 0 then
 	   { do sign extension }
-	   begin gencst(op_loc, sz); gencst(op_loc, sz_word); genop(op_cii) end
+	   begin gencst(op_loc, sz); gencst(op_loc, sz_word); genop(op_cii) end;
+  end;
+  ak:=loaded;
 end end;
 
 procedure store;
-- 
2.34.1