Browse Source

* added initialization for has_32bit_code (caused problems with Val statement
without code parameter)

Jonas Maebe 26 years ago
parent
commit
021b3734ab
1 changed files with 6 additions and 1 deletions
  1. 6 1
      compiler/cg386inl.pas

+ 6 - 1
compiler/cg386inl.pas

@@ -641,6 +641,7 @@ implementation
            hp^.right:=nil;
           {if we have 3 parameters, we have a code parameter}
            has_code := Assigned(node^.right);
+           has_32bit_code := false;
            reset_reference(hr);
            hreg := R_NO;
 
@@ -1276,7 +1277,11 @@ implementation
 end.
 {
   $Log$
-  Revision 1.35  1999-03-31 20:30:49  michael
+  Revision 1.36  1999-04-01 06:21:04  jonas
+    * added initialization for has_32bit_code (caused problems with Val statement
+      without code parameter)
+
+  Revision 1.35  1999/03/31 20:30:49  michael
   * fixed typo: odlval to oldval
 
   Revision 1.34  1999/03/31 17:13:09  jonas