← Back to branch summary

~sandy-dunlop/wildcatcobol/dev

« back to all changes in this revision

Viewing changes to src/Wildcat.Cobol.Compiler/ILGenerator/ILGenerator.cs

  • Committer: Sandy Dunlop
  • Date: 2007-10-17 20:32:44 UTC
  • Revision ID: sandy.dunlop@gmail.com-20071017203244-aexozkeoqy6vmf1r
Added keywords: ZEROS, ZEROES, LOW-VALUE, LOW-VALUES, QUOTE, QUOTES, ALL
And made sure that plurals are treated the same as singular forms.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/Wildcat.Cobol.Compiler/ILGenerator/ILGenerator.cs
324
324
                        {
325
325
                                //Need to store declared value of level 88 variables?
326
326
                                //Probably not. The compiler always knows what they should be.
327
 
                                if (data.IsHighValue)
 
327
                                if (data.IsHighValues)
328
328
                                {
329
329
                                        //TODO: Should this even exist?
330
330
                                r+="    .field public bool "+_level88prefix + ILIdentifier(data.Name) + "\n";
1077
1077
                //Console.WriteLine("Storing at Level 88");
1078
1078
                //TODO: Implement and test this
1079
1079
                
1080
 
                if (identifier.Definition.IsHighValue)
1081
 
                {
1082
 
                        //Single boolean value?
1083
 
                        //TODO: Does this ever happen itrw?
1084
 
                            r += "        " + ILAddress(5);
1085
 
                            if (className==null)
1086
 
                                className = "__CobolProgram";
1087
 
                            r += "stfld bool "+className+"::"+ _level88prefix + ILIdentifier(identifier.Name) + "\n";
1088
 
                }
1089
 
                else if(identifier.Definition.IsHighValues)
 
1080
                if(identifier.Definition.IsHighValues)
1090
1081
                {
1091
1082
                        //Set value of entire record and set this to true/false?
1092
1083
                        //TODO: I've commented this warning out. Can't remember why it was there.