From: ceriel <none@none>
Date: Wed, 11 Mar 1987 09:23:23 +0000 (+0000)
Subject: Bug fixed that was introduced by Kees Visser's modifications
X-Git-Tag: release-5-5~4436
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=8a9b2379dc84bde6c96f5ca98710dbcca79aecf9;p=ack.git

Bug fixed that was introduced by Kees Visser's modifications
---

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;