Branch data Line data Source code
1 : : /* do not edit automatically generated by mc from M2GenGCC. */
2 : : /* M2GenGCC.mod convert the quadruples into GCC trees.
3 : :
4 : : Copyright (C) 2001-2024 Free Software Foundation, Inc.
5 : : Contributed by Gaius Mulley <gaius.mulley@southwales.ac.uk>.
6 : :
7 : : This file is part of GNU Modula-2.
8 : :
9 : : GNU Modula-2 is free software; you can redistribute it and/or modify
10 : : it under the terms of the GNU General Public License as published by
11 : : the Free Software Foundation; either version 3, or (at your option)
12 : : any later version.
13 : :
14 : : GNU Modula-2 is distributed in the hope that it will be useful, but
15 : : WITHOUT ANY WARRANTY; without even the implied warranty of
16 : : MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 : : General Public License for more details.
18 : :
19 : : You should have received a copy of the GNU General Public License
20 : : along with GNU Modula-2; see the file COPYING3. If not see
21 : : <http://www.gnu.org/licenses/>. */
22 : :
23 : : #include "config.h"
24 : : #include "system.h"
25 : : #include "gcc-consolidation.h"
26 : :
27 : : #include <stdbool.h>
28 : : # if !defined (PROC_D)
29 : : # define PROC_D
30 : : typedef void (*PROC_t) (void);
31 : : typedef struct { PROC_t proc; } PROC;
32 : : # endif
33 : :
34 : : # if !defined (TRUE)
35 : : # define TRUE (1==1)
36 : : # endif
37 : :
38 : : # if !defined (FALSE)
39 : : # define FALSE (1==0)
40 : : # endif
41 : :
42 : : # include "Gmcrts.h"
43 : : #if defined(__cplusplus)
44 : : # undef NULL
45 : : # define NULL 0
46 : : #endif
47 : : #define _M2GenGCC_C
48 : :
49 : : #include "GM2GenGCC.h"
50 : : # include "GSYSTEM.h"
51 : : # include "GSymbolTable.h"
52 : : # include "GM2Batch.h"
53 : : # include "GM2LexBuf.h"
54 : : # include "GM2Code.h"
55 : : # include "GM2Debug.h"
56 : : # include "GM2Error.h"
57 : : # include "GM2MetaError.h"
58 : : # include "GM2Options.h"
59 : : # include "GM2Printf.h"
60 : : # include "GM2Quiet.h"
61 : : # include "GM2Base.h"
62 : : # include "GM2Bitset.h"
63 : : # include "GNameKey.h"
64 : : # include "GDynamicStrings.h"
65 : : # include "GFormatStrings.h"
66 : : # include "GM2System.h"
67 : : # include "GM2FileName.h"
68 : : # include "GSymbolConversion.h"
69 : : # include "GM2StackWord.h"
70 : : # include "GLists.h"
71 : : # include "GM2ALU.h"
72 : : # include "GM2GCCDeclare.h"
73 : : # include "GM2Range.h"
74 : : # include "Gm2builtins.h"
75 : : # include "Gm2expr.h"
76 : : # include "Gm2tree.h"
77 : : # include "Ggcctypes.h"
78 : : # include "Gm2decl.h"
79 : : # include "Gm2statement.h"
80 : : # include "Gm2type.h"
81 : : # include "Gm2block.h"
82 : : # include "Gm2misc.h"
83 : : # include "Gm2convert.h"
84 : : # include "Gm2except.h"
85 : : # include "GM2Quads.h"
86 : : # include "GM2Check.h"
87 : : # include "GM2SSA.h"
88 : : # include "GM2Optimize.h"
89 : : # include "GM2BasicBlock.h"
90 : :
91 : : # define Debugging false
92 : : # define PriorityDebugging false
93 : : # define CascadedDebugging false
94 : : typedef struct M2GenGCC_DoProcedure_p M2GenGCC_DoProcedure;
95 : :
96 : : typedef struct M2GenGCC_DoUnaryProcedure_p M2GenGCC_DoUnaryProcedure;
97 : :
98 : : # define Verbose false
99 : : # define DebugTokPos false
100 : : # define DebugTokPos false
101 : : typedef void (*M2GenGCC_DoProcedure_t) (unsigned int);
102 : : struct M2GenGCC_DoProcedure_p { M2GenGCC_DoProcedure_t proc; };
103 : :
104 : : typedef void (*M2GenGCC_DoUnaryProcedure_t) (unsigned int);
105 : : struct M2GenGCC_DoUnaryProcedure_p { M2GenGCC_DoUnaryProcedure_t proc; };
106 : :
107 : : static unsigned int Memset;
108 : : static unsigned int Memcpy;
109 : : static unsigned int CurrentQuadToken;
110 : : static unsigned int UnboundedLabelNo;
111 : : static unsigned int LastLine;
112 : : static M2Quads_QuadOperator LastOperator;
113 : : static M2StackWord_StackOfWord ScopeStack;
114 : : static bool NoChange;
115 : : static tree tryBlock;
116 : : static tree handlerBlock;
117 : :
118 : : /*
119 : : ConvertQuadsToTree - runs through the quadruple list and converts it into
120 : : the GCC tree structure.
121 : : */
122 : :
123 : : extern "C" void M2GenGCC_ConvertQuadsToTree (unsigned int Start, unsigned int End);
124 : :
125 : : /*
126 : : ResolveConstantExpressions - resolves constant expressions from the quadruple list.
127 : : It returns TRUE if one or more constants were folded.
128 : : When a constant symbol value is solved, the call back
129 : : p(sym) is invoked.
130 : : */
131 : :
132 : : extern "C" bool M2GenGCC_ResolveConstantExpressions (M2GCCDeclare_WalkAction p, M2BasicBlock_BasicBlock bb);
133 : :
134 : : /*
135 : : GetHighFromUnbounded - returns a Tree containing the value of
136 : : param.HIGH.
137 : : */
138 : :
139 : : extern "C" tree M2GenGCC_GetHighFromUnbounded (location_t location, unsigned int dim, unsigned int param);
140 : :
141 : : /*
142 : : StringToChar - if type=Char and str is a string (of size <= 1)
143 : : then convert the string into a character constant.
144 : : */
145 : :
146 : : extern "C" tree M2GenGCC_StringToChar (tree t, unsigned int type, unsigned int str);
147 : :
148 : : /*
149 : : LValueToGenericPtr - returns a Tree representing symbol, sym.
150 : : It coerces a lvalue into an internal pointer type
151 : : */
152 : :
153 : : extern "C" tree M2GenGCC_LValueToGenericPtr (location_t location, unsigned int sym);
154 : :
155 : : /*
156 : : ZConstToTypedConst - checks whether op1 and op2 are constants and
157 : : coerces, t, appropriately.
158 : : */
159 : :
160 : : extern "C" tree M2GenGCC_ZConstToTypedConst (tree t, unsigned int op1, unsigned int op2);
161 : :
162 : : /*
163 : : PrepareCopyString - returns two trees:
164 : : length number of bytes to be copied (including the nul if room)
165 : : srcTreeType the new string type (with the extra nul character).
166 : :
167 : : Pre condition: destStrType the dest type string.
168 : : src is the original string (without a nul)
169 : : to be copied.
170 : : Post condition: TRUE or FALSE is returned.
171 : : if true length and srcTreeType will be assigned
172 : : else length is set to the maximum length to be
173 : : copied and srcTree is set to the max length
174 : : which fits in dest.
175 : : */
176 : :
177 : : extern "C" bool M2GenGCC_PrepareCopyString (unsigned int tokenno, tree *length, tree *srcTree, unsigned int src, unsigned int destStrType);
178 : :
179 : : /*
180 : : ErrorMessageDecl - emit an error message together with declaration fragments of left
181 : : and right if they are parameters or variables.
182 : : */
183 : :
184 : : static void ErrorMessageDecl (unsigned int tok, const char *message_, unsigned int _message_high, unsigned int left, unsigned int right, bool iserror);
185 : :
186 : : /*
187 : : IsExportedGcc - returns TRUE if this symbol should be (as far as the middle/backend of GCC)
188 : : is concerned, exported.
189 : : */
190 : :
191 : : static bool IsExportedGcc (unsigned int sym);
192 : :
193 : : /*
194 : : IsCompilingMainModule -
195 : : */
196 : :
197 : : static bool IsCompilingMainModule (unsigned int sym);
198 : :
199 : : /*
200 : : CodeLastForIterator - call PerformLastForIterator allowing for
201 : : a non constant last iterator value.
202 : : */
203 : :
204 : : static void CodeLastForIterator (unsigned int quad);
205 : :
206 : : /*
207 : : FoldLastForIterator - call PerformLastForIterator providing
208 : : all operands are constant and are known by GCC.
209 : : */
210 : :
211 : : static void FoldLastForIterator (unsigned int quad, M2GCCDeclare_WalkAction p);
212 : : static void PerformLastForIterator (unsigned int quad, M2GCCDeclare_WalkAction p, bool constant);
213 : :
214 : : /*
215 : : CodeStatement - A multi-way decision call depending on the current
216 : : quadruple.
217 : : */
218 : :
219 : : static void CodeStatement (unsigned int q);
220 : :
221 : : /*
222 : : FindSize - given a Modula-2 symbol sym return a gcc tree
223 : : constant representing the storage size in bytes.
224 : : */
225 : :
226 : : static tree FindSize (unsigned int tokenno, unsigned int sym);
227 : :
228 : : /*
229 : : FindType - returns the type of, Sym, if Sym is a TYPE then return Sym otherwise return GetType(Sym)
230 : : */
231 : :
232 : : static unsigned int FindType (unsigned int Sym);
233 : :
234 : : /*
235 : : BuildTreeFromInterface - generates a GCC tree from an interface definition.
236 : : */
237 : :
238 : : static tree BuildTreeFromInterface (unsigned int sym);
239 : :
240 : : /*
241 : : BuildTrashTreeFromInterface - generates a GCC string tree from an interface definition.
242 : : */
243 : :
244 : : static tree BuildTrashTreeFromInterface (unsigned int sym);
245 : :
246 : : /*
247 : : CodeInline - InlineOp is a quadruple which has the following format:
248 : :
249 : : InlineOp NulSym NulSym Sym
250 : : */
251 : :
252 : : static void CodeInline (unsigned int quad);
253 : :
254 : : /*
255 : : FoldStatementNote -
256 : : */
257 : :
258 : : static void FoldStatementNote (unsigned int tokenno);
259 : :
260 : : /*
261 : : CodeStatementNote -
262 : : */
263 : :
264 : : static void CodeStatementNote (unsigned int tokenno);
265 : :
266 : : /*
267 : : FoldRange - attempts to fold the range test.
268 : : --fixme-- complete this
269 : : */
270 : :
271 : : static void FoldRange (unsigned int tokenno, unsigned int quad, unsigned int rangeno);
272 : :
273 : : /*
274 : : CodeSaveException - op1 := op3(TRUE)
275 : : */
276 : :
277 : : static void CodeSaveException (unsigned int des, unsigned int exceptionProcedure);
278 : :
279 : : /*
280 : : CodeRestoreException - op1 := op3(op1)
281 : : */
282 : :
283 : : static void CodeRestoreException (unsigned int des, unsigned int exceptionProcedure);
284 : :
285 : : /*
286 : : PushScope -
287 : : */
288 : :
289 : : static void PushScope (unsigned int sym);
290 : :
291 : : /*
292 : : PopScope -
293 : : */
294 : :
295 : : static void PopScope (void);
296 : :
297 : : /*
298 : : GetCurrentScopeDescription - returns a description of the current scope.
299 : : */
300 : :
301 : : static DynamicStrings_String GetCurrentScopeDescription (void);
302 : :
303 : : /*
304 : : CodeRange - encode the range test associated with op3.
305 : : */
306 : :
307 : : static void CodeRange (unsigned int rangeId);
308 : :
309 : : /*
310 : : CodeError - encode the error test associated with op3.
311 : : */
312 : :
313 : : static void CodeError (unsigned int errorId);
314 : :
315 : : /*
316 : : CodeModuleScope - ModuleScopeOp is a quadruple which has the following
317 : : format:
318 : :
319 : : ModuleScopeOp _ _ moduleSym
320 : :
321 : : Its purpose is to reset the source file to another
322 : : file, hence all line numbers emitted with the
323 : : generated code will be relative to this source file.
324 : : */
325 : :
326 : : static void CodeModuleScope (unsigned int moduleSym);
327 : :
328 : : /*
329 : : CodeStartModFile - StartModFileOp is a quadruple which has the following
330 : : format:
331 : :
332 : : StartModFileOp _ _ moduleSym
333 : :
334 : : A new source file has been encountered therefore
335 : : set LastLine to 1.
336 : : Call pushGlobalScope.
337 : : */
338 : :
339 : : static void CodeStartModFile (unsigned int moduleSym);
340 : :
341 : : /*
342 : : CodeStartDefFile - StartDefFileOp is a quadruple with the following
343 : : format:
344 : :
345 : : StartDefFileOp _ _ moduleSym
346 : :
347 : : A new source file has been encountered therefore
348 : : set LastLine to 1.
349 : : Call pushGlobalScope.
350 : : */
351 : :
352 : : static void CodeStartDefFile (unsigned int moduleSym);
353 : :
354 : : /*
355 : : CodeEndFile - pops the GlobalScope.
356 : : */
357 : :
358 : : static void CodeEndFile (void);
359 : :
360 : : /*
361 : : CallInnerInit - produce a call to inner module initialization routine.
362 : : */
363 : :
364 : : static void CallInnerInit (unsigned int moduleSym);
365 : :
366 : : /*
367 : : CallInnerFinally - produce a call to inner module finalization routine.
368 : : */
369 : :
370 : : static void CallInnerFinally (unsigned int moduleSym);
371 : :
372 : : /*
373 : : CodeInitStart - emits starting code before the main BEGIN END of the
374 : : current module.
375 : : */
376 : :
377 : : static void CodeInitStart (unsigned int moduleSym, bool CompilingMainModule);
378 : :
379 : : /*
380 : : CodeInitEnd - emits terminating code after the main BEGIN END of the
381 : : current module.
382 : : */
383 : :
384 : : static void CodeInitEnd (unsigned int moduleSym, bool CompilingMainModule);
385 : :
386 : : /*
387 : : CodeFinallyStart - emits starting code before the main BEGIN END of the
388 : : current module.
389 : : */
390 : :
391 : : static void CodeFinallyStart (unsigned int moduleSym, bool CompilingMainModule);
392 : :
393 : : /*
394 : : CodeFinallyEnd - emits terminating code after the main BEGIN END of the
395 : : current module. It also creates the scaffold if the
396 : : cflag was not present.
397 : : */
398 : :
399 : : static void CodeFinallyEnd (unsigned int moduleSym, bool CompilingMainModule);
400 : :
401 : : /*
402 : : GetAddressOfUnbounded - returns the address of the unbounded array contents.
403 : : */
404 : :
405 : : static tree GetAddressOfUnbounded (location_t location, unsigned int param);
406 : :
407 : : /*
408 : : GetSizeOfHighFromUnbounded - returns a Tree containing the value of
409 : : param.HIGH * sizeof(unboundedType).
410 : : The number of legal bytes this array
411 : : occupies.
412 : : */
413 : :
414 : : static tree GetSizeOfHighFromUnbounded (unsigned int tokenno, unsigned int param);
415 : :
416 : : /*
417 : : MaybeDebugBuiltinAlloca - if DebugBuiltins is set
418 : : then call Builtins.alloca_trace
419 : : else call Builtins.alloca.
420 : : */
421 : :
422 : : static tree MaybeDebugBuiltinAlloca (location_t location, unsigned int tok, tree high);
423 : :
424 : : /*
425 : : MaybeDebugBuiltinMemcpy - if DebugBuiltins is set
426 : : then call memcpy
427 : : else call Builtins.memcpy.
428 : : */
429 : :
430 : : static tree MaybeDebugBuiltinMemcpy (location_t location, tree src, tree dest, tree nbytes);
431 : :
432 : : /*
433 : : MakeCopyUse - make a copy of the unbounded array and alter all references
434 : : from the old unbounded array to the new unbounded array.
435 : : The parameter, param, contains a RECORD
436 : : ArrayAddress: ADDRESS ;
437 : : ArrayHigh : CARDINAL ;
438 : : END
439 : : we simply declare a new array of size, ArrayHigh
440 : : and set ArrayAddress to the address of the copy.
441 : :
442 : : Remember ArrayHigh == sizeof(Array)-sizeof(typeof(array))
443 : : so we add 1 for the size and add 1 for a possible <nul>
444 : : */
445 : :
446 : : static void MakeCopyUse (unsigned int tokenno, unsigned int param);
447 : :
448 : : /*
449 : : GetParamAddress - returns the address of parameter, param.
450 : : */
451 : :
452 : : static tree GetParamAddress (location_t location, unsigned int proc, unsigned int param);
453 : :
454 : : /*
455 : : IsUnboundedWrittenTo - returns TRUE if the unbounded parameter
456 : : might be written to, or if -funbounded-by-reference
457 : : was _not_ specified.
458 : : */
459 : :
460 : : static bool IsUnboundedWrittenTo (unsigned int proc, unsigned int param);
461 : :
462 : : /*
463 : : GetParamSize - returns the size in bytes of, param.
464 : : */
465 : :
466 : : static tree GetParamSize (unsigned int tokenno, unsigned int param);
467 : :
468 : : /*
469 : : DoIsIntersection - jumps to, tLabel, if the ranges i1..i2 j1..j2 overlap
470 : : else jump to, fLabel.
471 : : */
472 : :
473 : : static void DoIsIntersection (unsigned int tokenno, tree ta, tree tb, tree tc, tree td, DynamicStrings_String tLabel, DynamicStrings_String fLabel);
474 : :
475 : : /*
476 : : BuildCascadedIfThenElsif - mustCheck contains a list of variables which
477 : : must be checked against the address of (proc, param, i).
478 : : If the address matches we make a copy of the unbounded
479 : : parameter (proc, param) and quit further checking.
480 : : */
481 : :
482 : : static void BuildCascadedIfThenElsif (unsigned int tokenno, Lists_List mustCheck, unsigned int proc, unsigned int param);
483 : :
484 : : /*
485 : : CheckUnboundedNonVarParameter - if non var unbounded parameter is written to
486 : : then
487 : : make a copy of the contents of this parameter
488 : : and use the copy
489 : : else if param
490 : : is type compatible with any parameter, symv
491 : : and at runtime its address matches symv
492 : : then
493 : : make a copy of the contents of this parameter
494 : : and use the copy
495 : : fi
496 : : */
497 : :
498 : : static void CheckUnboundedNonVarParameter (unsigned int tokenno, Lists_List trashed, unsigned int proc, unsigned int param);
499 : :
500 : : /*
501 : : IsParameterWritten - returns TRUE if a parameter, sym, is written to.
502 : : */
503 : :
504 : : static bool IsParameterWritten (unsigned int proc, unsigned int sym);
505 : :
506 : : /*
507 : : SaveNonVarUnboundedParameters - for each var parameter, symv, do
508 : : not just unbounded var parameters, but _all_
509 : : parameters
510 : : if symv is written to
511 : : then
512 : : add symv to a compile list
513 : : fi
514 : : done
515 : :
516 : : for each parameter of procedure, symu, do
517 : : if non var unbounded parameter is written to
518 : : then
519 : : make a copy of the contents of this parameter
520 : : and use the copy
521 : : else if
522 : : symu is type compatible with any parameter, symv
523 : : and at runtime its address matches symv
524 : : then
525 : : make a copy of the contents of this parameter
526 : : and use the copy
527 : : fi
528 : : done
529 : : */
530 : :
531 : : static void SaveNonVarUnboundedParameters (unsigned int tokenno, unsigned int proc);
532 : :
533 : : /*
534 : : AutoInitVariable -
535 : : */
536 : :
537 : : static void AutoInitVariable (location_t location, unsigned int sym);
538 : :
539 : : /*
540 : : AutoInitialize - scope will be a procedure, module or defimp. All pointer
541 : : variables are assigned to NIL.
542 : : */
543 : :
544 : : static void AutoInitialize (location_t location, unsigned int scope);
545 : :
546 : : /*
547 : : CodeNewLocalVar - Builds a new frame on the stack to contain the procedure
548 : : local variables.
549 : : */
550 : :
551 : : static void CodeNewLocalVar (unsigned int tokenno, unsigned int CurrentProcedure);
552 : :
553 : : /*
554 : : CodeKillLocalVar - removes local variables and returns to previous scope.
555 : : */
556 : :
557 : : static void CodeKillLocalVar (unsigned int CurrentProcedure);
558 : :
559 : : /*
560 : : CodeProcedureScope -
561 : : */
562 : :
563 : : static void CodeProcedureScope (unsigned int CurrentProcedure);
564 : :
565 : : /*
566 : : CodeReturnValue - places the operand into the return value space
567 : : allocated by the function call.
568 : : */
569 : :
570 : : static void CodeReturnValue (unsigned int quad);
571 : :
572 : : /*
573 : : CodeCall - determines whether the procedure call is a direct call
574 : : or an indirect procedure call.
575 : : */
576 : :
577 : : static void CodeCall (unsigned int tokenno, unsigned int procedure);
578 : :
579 : : /*
580 : : UseBuiltin - returns a Tree containing the builtin function
581 : : and parameters. It should only be called if
582 : : CanUseBuiltin or IsProcedureBuiltinAvailable returns TRUE.
583 : : */
584 : :
585 : : static tree UseBuiltin (unsigned int tokenno, unsigned int Sym);
586 : :
587 : : /*
588 : : CodeDirectCall - calls a function/procedure.
589 : : */
590 : :
591 : : static tree CodeDirectCall (unsigned int tokenno, unsigned int procedure);
592 : :
593 : : /*
594 : : CodeIndirectCall - calls a function/procedure indirectly.
595 : : */
596 : :
597 : : static tree CodeIndirectCall (unsigned int tokenno, unsigned int ProcVar);
598 : :
599 : : /*
600 : : ConvertTo - convert gcc tree, t, (which currently represents Modula-2 op3) into
601 : : a symbol of, type.
602 : : */
603 : :
604 : : static tree ConvertTo (tree t, unsigned int type, unsigned int op3);
605 : :
606 : : /*
607 : : ConvertRHS - convert (t, rhs) into, type. (t, rhs) refer to the
608 : : same entity t is a GCC Tree and, rhs, is a Modula-2
609 : : symbol. It checks for char and strings
610 : : first and then the remaining types.
611 : : */
612 : :
613 : : static tree ConvertRHS (tree t, unsigned int type, unsigned int rhs);
614 : :
615 : : /*
616 : : IsCoerceableParameter - returns TRUE if symbol, sym, is a
617 : : coerceable parameter.
618 : : */
619 : :
620 : : static bool IsCoerceableParameter (unsigned int sym);
621 : :
622 : : /*
623 : : IsConstProcedure - returns TRUE if, p, is a const procedure.
624 : : */
625 : :
626 : : static bool IsConstProcedure (unsigned int p);
627 : :
628 : : /*
629 : : IsConstant - returns TRUE if symbol, p, is either a const or procedure.
630 : : */
631 : :
632 : : static bool IsConstant (unsigned int p);
633 : :
634 : : /*
635 : : CheckConvertCoerceParameter -
636 : : */
637 : :
638 : : static tree CheckConvertCoerceParameter (unsigned int tokenno, unsigned int op1, unsigned int op2, unsigned int op3);
639 : :
640 : : /*
641 : : CheckConstant - checks to see whether we should declare the constant.
642 : : */
643 : :
644 : : static tree CheckConstant (unsigned int tokenno, unsigned int des, unsigned int expr);
645 : :
646 : : /*
647 : : CodeMakeAdr - code the function MAKEADR.
648 : : */
649 : :
650 : : static void CodeMakeAdr (unsigned int q, unsigned int op1, unsigned int op2, unsigned int op3);
651 : :
652 : : /*
653 : : CodeBuiltinFunction - attempts to inline a function. Currently it only
654 : : inlines the SYSTEM function MAKEADR.
655 : : */
656 : :
657 : : static void CodeBuiltinFunction (unsigned int q, unsigned int nth, unsigned int func, unsigned int parameter);
658 : :
659 : : /*
660 : : FoldMakeAdr - attempts to fold the function MAKEADR.
661 : : */
662 : :
663 : : static void FoldMakeAdr (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int q, unsigned int op1, unsigned int op2, unsigned int op3);
664 : :
665 : : /*
666 : : doParam - builds the parameter, op3, which is to be passed to
667 : : procedure, op2. The number of the parameter is op1.
668 : : */
669 : :
670 : : static void doParam (unsigned int quad, unsigned int paramtok, unsigned int op1, unsigned int op2, unsigned int op3);
671 : :
672 : : /*
673 : : FoldBuiltin - attempts to fold the gcc builtin function.
674 : : */
675 : :
676 : : static void FoldBuiltin (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int q);
677 : :
678 : : /*
679 : : FoldBuiltinFunction - attempts to inline a function. Currently it only
680 : : inlines the SYSTEM function MAKEADR.
681 : : */
682 : :
683 : : static void FoldBuiltinFunction (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int q, unsigned int op1, unsigned int op2, unsigned int op3);
684 : :
685 : : /*
686 : : CodeParam - builds a parameter list.
687 : : Note that we can ignore ModeOfAddr as any lvalue will
688 : : have been created in a preceeding quadruple.
689 : : */
690 : :
691 : : static void CodeParam (unsigned int quad);
692 : :
693 : : /*
694 : : Replace - replace the entry for sym in the double entry bookkeeping with sym/tree.
695 : : */
696 : :
697 : : static void Replace (unsigned int sym, tree gcc);
698 : :
699 : : /*
700 : : CodeFunctValue - retrieves the function return value and assigns it
701 : : into a variable.
702 : : */
703 : :
704 : : static void CodeFunctValue (location_t location, unsigned int op1);
705 : :
706 : : /*
707 : : FoldStringLength -
708 : : */
709 : :
710 : : static void FoldStringLength (unsigned int quad, M2GCCDeclare_WalkAction p);
711 : :
712 : : /*
713 : : FoldStringConvertM2nul - attempt to assign the des with the string contents from expr.
714 : : It also marks the des as a m2 string which must be nul terminated.
715 : : The front end uses double book keeping and it is easier to have
716 : : different m2 string symbols each of which map onto a slightly different
717 : : gcc string tree.
718 : : */
719 : :
720 : : static void FoldStringConvertM2nul (unsigned int quad, M2GCCDeclare_WalkAction p);
721 : :
722 : : /*
723 : : FoldStringConvertCnul -attempt to assign the des with the string contents from expr.
724 : : It also marks the des as a C string which must be nul terminated.
725 : : */
726 : :
727 : : static void FoldStringConvertCnul (unsigned int quad, M2GCCDeclare_WalkAction p);
728 : : static void CodeAddr (unsigned int tokenno, unsigned int quad, unsigned int op1, unsigned int op3);
729 : : static void stop (void);
730 : : static void CheckStop (unsigned int q);
731 : : static void FoldBecomes (M2GCCDeclare_WalkAction p, M2BasicBlock_BasicBlock bb, unsigned int quad);
732 : :
733 : : /*
734 : : TryDeclareConst -
735 : : */
736 : :
737 : : static void TryDeclareConst (unsigned int tokenno, unsigned int sym);
738 : :
739 : : /*
740 : : RemoveQuad - remove quad and ensure p (des) is called.
741 : : */
742 : :
743 : : static void RemoveQuad (M2GCCDeclare_WalkAction p, unsigned int des, unsigned int quad);
744 : :
745 : : /*
746 : : DeclaredOperandsBecomes -
747 : : */
748 : :
749 : : static bool DeclaredOperandsBecomes (M2GCCDeclare_WalkAction p, unsigned int quad);
750 : :
751 : : /*
752 : : TypeCheckBecomes - returns TRUE if the type check succeeds.
753 : : */
754 : :
755 : : static bool TypeCheckBecomes (M2GCCDeclare_WalkAction p, unsigned int quad);
756 : :
757 : : /*
758 : : PerformFoldBecomes - attempts to fold quad. It propagates constant strings
759 : : and attempts to declare des providing it is a constant
760 : : and expr is resolved.
761 : : */
762 : :
763 : : static void PerformFoldBecomes (M2GCCDeclare_WalkAction p, unsigned int quad);
764 : :
765 : : /*
766 : : CodeTry - starts building a GCC 'try' node.
767 : : */
768 : :
769 : : static void CodeTry (void);
770 : :
771 : : /*
772 : : CodeThrow - builds a GCC 'throw' node.
773 : : */
774 : :
775 : : static void CodeThrow (unsigned int value);
776 : : static void CodeRetry (unsigned int destQuad);
777 : : static void CodeCatchBegin (void);
778 : : static void CodeCatchEnd (void);
779 : :
780 : : /*
781 : : DescribeTypeError -
782 : : */
783 : :
784 : : static void DescribeTypeError (unsigned int token, unsigned int op1, unsigned int op2);
785 : :
786 : : /*
787 : : DefaultConvertGM2 - provides a simple mapping between
788 : : front end data types and GCC equivalents.
789 : : This is only used to aid assignment of
790 : : typed constants.
791 : : */
792 : :
793 : : static tree DefaultConvertGM2 (unsigned int sym);
794 : :
795 : : /*
796 : : FoldConstBecomes - returns a Tree containing op3.
797 : : The tree will have been folded and
798 : : type converted if necessary.
799 : : */
800 : :
801 : : static tree FoldConstBecomes (unsigned int tokenno, unsigned int op1, unsigned int op3);
802 : :
803 : : /*
804 : : checkArrayElements - return TRUE if des or expr are not arrays.
805 : : If they are arrays and have different number of
806 : : elements return FALSE, otherwise TRUE.
807 : : */
808 : :
809 : : static bool checkArrayElements (unsigned int des, unsigned int expr, unsigned int virtpos, unsigned int despos, unsigned int exprpos);
810 : :
811 : : /*
812 : : CodeInitAddress -
813 : : */
814 : :
815 : : static void CodeInitAddress (unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
816 : :
817 : : /*
818 : : checkRecordTypes - returns TRUE if des is not a record or if the record
819 : : is the same type as expr.
820 : : */
821 : :
822 : : static bool checkRecordTypes (unsigned int des, unsigned int expr, unsigned int virtpos);
823 : :
824 : : /*
825 : : checkIncorrectMeta - checks to see if des and expr are assignment compatible is allows
826 : : generic system types to be assigned.
827 : : */
828 : :
829 : : static bool checkIncorrectMeta (unsigned int des, unsigned int expr, unsigned int virtpos);
830 : :
831 : : /*
832 : : checkBecomes - returns TRUE if the checks pass.
833 : : */
834 : :
835 : : static bool checkBecomes (unsigned int des, unsigned int expr, unsigned int virtpos, unsigned int despos, unsigned int exprpos);
836 : :
837 : : /*
838 : : checkDeclare - checks to see if sym is declared and if it is not then declare it.
839 : : */
840 : :
841 : : static void checkDeclare (unsigned int sym);
842 : : static void CodeBecomes (unsigned int quad);
843 : :
844 : : /*
845 : : LValueToGenericPtrOrConvert - if sym is an lvalue then convert to pointer type
846 : : else convert to type, type. Return the converted tree.
847 : : */
848 : :
849 : : static tree LValueToGenericPtrOrConvert (unsigned int sym, tree type);
850 : :
851 : : /*
852 : : FoldBinary - check whether we can fold the binop operation.
853 : : */
854 : :
855 : : static void FoldBinary (unsigned int tokenno, M2GCCDeclare_WalkAction p, m2expr_BuildBinProcedure binop, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
856 : :
857 : : /*
858 : : ConvertBinaryOperands -
859 : : */
860 : :
861 : : static void ConvertBinaryOperands (location_t location, tree *tl, tree *tr, unsigned int type, unsigned int op2, unsigned int op3);
862 : :
863 : : /*
864 : : CodeBinaryCheck - encode a binary arithmetic operation.
865 : : */
866 : :
867 : : static void CodeBinaryCheck (m2expr_BuildBinCheckProcedure binop, unsigned int quad);
868 : :
869 : : /*
870 : : MixTypesBinary - depending upon overflowCheck do not check pointer arithmetic.
871 : : */
872 : :
873 : : static unsigned int MixTypesBinary (unsigned int left, unsigned int right, unsigned int tokpos, bool overflowCheck);
874 : :
875 : : /*
876 : : CodeBinary - encode a binary arithmetic operation.
877 : : */
878 : :
879 : : static void CodeBinary (m2expr_BuildBinProcedure binop, unsigned int quad);
880 : :
881 : : /*
882 : : NoWalkProcedure -
883 : : */
884 : :
885 : : static void NoWalkProcedure (unsigned int param __attribute__((unused)));
886 : :
887 : : /*
888 : : CheckBinaryExpressionTypes - returns TRUE if all expression checks pass.
889 : : If the expression check fails quad is removed,
890 : : the walk procedure (des) is called and NoChange is
891 : : set to FALSE.
892 : : */
893 : :
894 : : static bool CheckBinaryExpressionTypes (unsigned int quad, M2GCCDeclare_WalkAction p);
895 : :
896 : : /*
897 : : CheckElementSetTypes - returns TRUE if all expression checks pass.
898 : : If the expression check fails quad is removed,
899 : : the walk procedure (des) is called and NoChange is
900 : : set to FALSE.
901 : : */
902 : :
903 : : static bool CheckElementSetTypes (unsigned int quad);
904 : :
905 : : /*
906 : : CodeBinarySet - encode a binary set arithmetic operation.
907 : : Set operands may be longer than a word.
908 : : */
909 : :
910 : : static void CodeBinarySet (m2expr_BuildBinProcedure binop, M2GenGCC_DoProcedure doOp, unsigned int quad);
911 : :
912 : : /*
913 : : CheckUnaryOperand - checks to see whether operand is using a generic type.
914 : : */
915 : :
916 : : static bool CheckUnaryOperand (unsigned int quad, unsigned int operand);
917 : :
918 : : /*
919 : : UnaryOperand - returns TRUE if operand is acceptable for
920 : : unary operator: + -. If FALSE
921 : : is returned, an error message will be generated
922 : : and the quad is deleted.
923 : : */
924 : :
925 : : static bool UnaryOperand (unsigned int quad, unsigned int operand);
926 : :
927 : : /*
928 : : CheckBinaryOperand - checks to see whether operand is using a generic type.
929 : : */
930 : :
931 : : static bool CheckBinaryOperand (unsigned int quad, bool isleft, unsigned int operand, bool result);
932 : :
933 : : /*
934 : : BinaryOperands - returns TRUE if, l, and, r, are acceptable for
935 : : binary operator: + - / * and friends. If FALSE
936 : : is returned, an error message will be generated
937 : : and the, quad, is deleted.
938 : : */
939 : :
940 : : static bool BinaryOperands (unsigned int quad, unsigned int l, unsigned int r);
941 : :
942 : : /*
943 : : IsConstStr - returns TRUE if sym is a constant string or a char constant.
944 : : */
945 : :
946 : : static bool IsConstStr (unsigned int sym);
947 : :
948 : : /*
949 : : IsConstStrKnown - returns TRUE if sym is a constant string or a char constant
950 : : which is known.
951 : : */
952 : :
953 : : static bool IsConstStrKnown (unsigned int sym);
954 : :
955 : : /*
956 : : GetStr - return a string containing a constant string value associated with sym.
957 : : A nul char constant will return an empty string.
958 : : */
959 : :
960 : : static DynamicStrings_String GetStr (unsigned int tokenno, unsigned int sym);
961 : :
962 : : /*
963 : : FoldAdd - check addition for constant folding. It checks for conststrings
964 : : overloading the +.
965 : : */
966 : :
967 : : static void FoldAdd (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
968 : :
969 : : /*
970 : : FoldArithAdd - check arithmetic addition for constant folding.
971 : : */
972 : :
973 : : static void FoldArithAdd (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
974 : :
975 : : /*
976 : : CodeAddChecked - code an addition instruction, determine whether checking
977 : : is required.
978 : : */
979 : :
980 : : static void CodeAddChecked (unsigned int quad, unsigned int left, unsigned int right);
981 : :
982 : : /*
983 : : CodeAddCheck - encode addition but check for overflow.
984 : : */
985 : :
986 : : static void CodeAddCheck (unsigned int quad, unsigned int left, unsigned int right);
987 : :
988 : : /*
989 : : CodeAdd - encode addition.
990 : : */
991 : :
992 : : static void CodeAdd (unsigned int quad, unsigned int left, unsigned int right);
993 : :
994 : : /*
995 : : FoldSub - check subtraction for constant folding.
996 : : */
997 : :
998 : : static void FoldSub (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
999 : :
1000 : : /*
1001 : : CodeSubChecked - code a subtract instruction, determine whether checking
1002 : : is required.
1003 : : */
1004 : :
1005 : : static void CodeSubChecked (unsigned int quad, unsigned int left, unsigned int right);
1006 : :
1007 : : /*
1008 : : CodeSubCheck - encode subtraction but check for overflow.
1009 : : */
1010 : :
1011 : : static void CodeSubCheck (unsigned int quad, unsigned int left, unsigned int right);
1012 : :
1013 : : /*
1014 : : CodeSub - encode subtraction.
1015 : : */
1016 : :
1017 : : static void CodeSub (unsigned int quad, unsigned int left, unsigned int right);
1018 : :
1019 : : /*
1020 : : FoldMult - check multiplication for constant folding.
1021 : : */
1022 : :
1023 : : static void FoldMult (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1024 : :
1025 : : /*
1026 : : CodeMultChecked - code a multiplication instruction, determine whether checking
1027 : : is required.
1028 : : */
1029 : :
1030 : : static void CodeMultChecked (unsigned int quad, unsigned int left, unsigned int right);
1031 : :
1032 : : /*
1033 : : CodeMultCheck - encode multiplication but check for overflow.
1034 : : */
1035 : :
1036 : : static void CodeMultCheck (unsigned int quad, unsigned int left, unsigned int right);
1037 : :
1038 : : /*
1039 : : CodeMult - encode multiplication.
1040 : : */
1041 : :
1042 : : static void CodeMult (unsigned int quad, unsigned int left, unsigned int right);
1043 : :
1044 : : /*
1045 : : CodeDivM2Checked - code a divide instruction, determine whether checking
1046 : : is required.
1047 : : */
1048 : :
1049 : : static void CodeDivM2Checked (unsigned int quad, unsigned int left, unsigned int right);
1050 : :
1051 : : /*
1052 : : CodeDivM2Check - encode addition but check for overflow.
1053 : : */
1054 : :
1055 : : static void CodeDivM2Check (unsigned int quad, unsigned int left, unsigned int right);
1056 : :
1057 : : /*
1058 : : CodeModM2Checked - code a modulus instruction, determine whether checking
1059 : : is required.
1060 : : */
1061 : :
1062 : : static void CodeModM2Checked (unsigned int quad, unsigned int left, unsigned int right);
1063 : :
1064 : : /*
1065 : : CodeModM2Check - encode addition but check for overflow.
1066 : : */
1067 : :
1068 : : static void CodeModM2Check (unsigned int quad, unsigned int left, unsigned int right);
1069 : :
1070 : : /*
1071 : : BinaryOperandRealFamily -
1072 : : */
1073 : :
1074 : : static bool BinaryOperandRealFamily (unsigned int op);
1075 : :
1076 : : /*
1077 : : FoldDivM2 - check division for constant folding.
1078 : : */
1079 : :
1080 : : static void FoldDivM2 (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1081 : :
1082 : : /*
1083 : : CodeDivM2 - encode division.
1084 : : */
1085 : :
1086 : : static void CodeDivM2 (unsigned int quad, unsigned int left, unsigned int right);
1087 : :
1088 : : /*
1089 : : FoldModM2 - check modulus for constant folding.
1090 : : */
1091 : :
1092 : : static void FoldModM2 (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1093 : :
1094 : : /*
1095 : : CodeModM2 - encode modulus.
1096 : : */
1097 : :
1098 : : static void CodeModM2 (unsigned int quad, unsigned int left, unsigned int right);
1099 : :
1100 : : /*
1101 : : FoldDivTrunc - check division for constant folding.
1102 : : */
1103 : :
1104 : : static void FoldDivTrunc (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1105 : :
1106 : : /*
1107 : : CodeDivTrunc - encode multiplication.
1108 : : */
1109 : :
1110 : : static void CodeDivTrunc (unsigned int quad, unsigned int left, unsigned int right);
1111 : :
1112 : : /*
1113 : : FoldModTrunc - check modulus for constant folding.
1114 : : */
1115 : :
1116 : : static void FoldModTrunc (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1117 : :
1118 : : /*
1119 : : CodeModTrunc - encode modulus.
1120 : : */
1121 : :
1122 : : static void CodeModTrunc (unsigned int quad, unsigned int left, unsigned int right);
1123 : :
1124 : : /*
1125 : : FoldDivCeil - check division for constant folding.
1126 : : */
1127 : :
1128 : : static void FoldDivCeil (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1129 : :
1130 : : /*
1131 : : CodeDivCeil - encode multiplication.
1132 : : */
1133 : :
1134 : : static void CodeDivCeil (unsigned int quad, unsigned int left, unsigned int right);
1135 : :
1136 : : /*
1137 : : FoldModCeil - check modulus for constant folding.
1138 : : */
1139 : :
1140 : : static void FoldModCeil (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1141 : :
1142 : : /*
1143 : : CodeModCeil - encode multiplication.
1144 : : */
1145 : :
1146 : : static void CodeModCeil (unsigned int quad, unsigned int left, unsigned int right);
1147 : :
1148 : : /*
1149 : : FoldDivFloor - check division for constant folding.
1150 : : */
1151 : :
1152 : : static void FoldDivFloor (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1153 : :
1154 : : /*
1155 : : CodeDivFloor - encode multiplication.
1156 : : */
1157 : :
1158 : : static void CodeDivFloor (unsigned int quad, unsigned int left, unsigned int right);
1159 : :
1160 : : /*
1161 : : FoldModFloor - check modulus for constant folding.
1162 : : */
1163 : :
1164 : : static void FoldModFloor (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1165 : :
1166 : : /*
1167 : : CodeModFloor - encode modulus.
1168 : : */
1169 : :
1170 : : static void CodeModFloor (unsigned int quad, unsigned int left, unsigned int right);
1171 : :
1172 : : /*
1173 : : FoldBuiltinConst -
1174 : : */
1175 : :
1176 : : static void FoldBuiltinConst (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int result, unsigned int constDesc);
1177 : :
1178 : : /*
1179 : : FoldBuiltinTypeInfo - attempts to fold a builtin attribute value on type op2.
1180 : : */
1181 : :
1182 : : static void FoldBuiltinTypeInfo (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1183 : :
1184 : : /*
1185 : : FoldStandardFunction - attempts to fold a standard function.
1186 : : */
1187 : :
1188 : : static void FoldStandardFunction (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1189 : :
1190 : : /*
1191 : : CodeStandardFunction -
1192 : : */
1193 : :
1194 : : static void CodeStandardFunction (unsigned int quad, unsigned int result, unsigned int function, unsigned int param);
1195 : :
1196 : : /*
1197 : : CodeSavePriority - checks to see whether op2 is reachable and is directly accessible
1198 : : externally. If so then it saves the current interrupt priority
1199 : : in op1 and sets the current priority to that determined by
1200 : : appropriate module.
1201 : :
1202 : : op1 := op3(GetModuleScope(op2))
1203 : : */
1204 : :
1205 : : static void CodeSavePriority (unsigned int oldValue, unsigned int scopeSym, unsigned int procedureSym);
1206 : :
1207 : : /*
1208 : : CodeRestorePriority - checks to see whether op2 is reachable and is directly accessible
1209 : : externally. If so then it restores the previous interrupt priority
1210 : : held in op1.
1211 : :
1212 : : op1 := op3(op1)
1213 : : */
1214 : :
1215 : : static void CodeRestorePriority (unsigned int oldValue, unsigned int scopeSym, unsigned int procedureSym);
1216 : :
1217 : : /*
1218 : : FoldBinarySet - attempts to fold set arithmetic it removes the quad if successful.
1219 : : */
1220 : :
1221 : : static void FoldBinarySet (unsigned int tokenno, M2GCCDeclare_WalkAction p, M2GenGCC_DoProcedure op, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1222 : :
1223 : : /*
1224 : : FoldSetOr - check whether we can fold a set arithmetic or.
1225 : : */
1226 : :
1227 : : static void FoldSetOr (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1228 : :
1229 : : /*
1230 : : CodeSetOr - encode set arithmetic or.
1231 : : */
1232 : :
1233 : : static void CodeSetOr (unsigned int quad);
1234 : :
1235 : : /*
1236 : : FoldSetAnd - check whether we can fold a logical and.
1237 : : */
1238 : :
1239 : : static void FoldSetAnd (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1240 : :
1241 : : /*
1242 : : CodeSetAnd - encode set arithmetic and.
1243 : : */
1244 : :
1245 : : static void CodeSetAnd (unsigned int quad);
1246 : :
1247 : : /*
1248 : : CodeBinarySetShift - encode a binary set arithmetic operation.
1249 : : The set maybe larger than a machine word
1250 : : and the value of one word may effect the
1251 : : values of another - ie shift and rotate.
1252 : : Set sizes of a word or less are evaluated
1253 : : with binop, whereas multiword sets are
1254 : : evaluated by M2RTS.
1255 : : */
1256 : :
1257 : : static void CodeBinarySetShift (m2expr_BuildSetProcedure binop, M2GenGCC_DoProcedure doOp, NameKey_Name var, NameKey_Name left, NameKey_Name right, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1258 : :
1259 : : /*
1260 : : FoldSetShift - check whether we can fold a logical shift.
1261 : : */
1262 : :
1263 : : static void FoldSetShift (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1264 : :
1265 : : /*
1266 : : CodeSetShift - encode set arithmetic shift.
1267 : : */
1268 : :
1269 : : static void CodeSetShift (unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1270 : :
1271 : : /*
1272 : : FoldSetRotate - check whether we can fold a logical rotate.
1273 : : */
1274 : :
1275 : : static void FoldSetRotate (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1276 : :
1277 : : /*
1278 : : CodeSetRotate - encode set arithmetic rotate.
1279 : : */
1280 : :
1281 : : static void CodeSetRotate (unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1282 : :
1283 : : /*
1284 : : CodeSetLogicalDifference - encode set arithmetic logical difference.
1285 : : */
1286 : :
1287 : : static void CodeSetLogicalDifference (unsigned int quad);
1288 : :
1289 : : /*
1290 : : FoldSymmetricDifference - check whether we can fold a logical difference.
1291 : : */
1292 : :
1293 : : static void FoldSymmetricDifference (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1294 : :
1295 : : /*
1296 : : CodeSetSymmetricDifference - code set difference.
1297 : : */
1298 : :
1299 : : static void CodeSetSymmetricDifference (unsigned int quad);
1300 : :
1301 : : /*
1302 : : CodeUnarySet - encode a unary set arithmetic operation.
1303 : : Set operands may be longer than a word.
1304 : : */
1305 : :
1306 : : static void CodeUnarySet (m2expr_BuildUnarySetFunction unop, M2GenGCC_DoUnaryProcedure constop, unsigned int quad, unsigned int result, unsigned int expr);
1307 : :
1308 : : /*
1309 : : FoldIncl - check whether we can fold the InclOp.
1310 : : result := result + (1 << expr)
1311 : : */
1312 : :
1313 : : static void FoldIncl (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int result, unsigned int expr);
1314 : :
1315 : : /*
1316 : : FoldIfLess - check to see if it is possible to evaluate
1317 : : if op1 < op2 then goto op3.
1318 : : */
1319 : :
1320 : : static void FoldIfLess (unsigned int tokenno, unsigned int quad, unsigned int left, unsigned int right, unsigned int destQuad);
1321 : :
1322 : : /*
1323 : : FoldIfGre - check to see if it is possible to evaluate
1324 : : if op1 > op2 then goto op3.
1325 : : */
1326 : :
1327 : : static void FoldIfGre (unsigned int tokenno, unsigned int quad, unsigned int left, unsigned int right, unsigned int destQuad);
1328 : :
1329 : : /*
1330 : : FoldIfLessEqu - check to see if it is possible to evaluate
1331 : : if op1 <= op2 then goto op3.
1332 : : */
1333 : :
1334 : : static void FoldIfLessEqu (unsigned int tokenno, unsigned int quad, unsigned int left, unsigned int right, unsigned int destQuad);
1335 : :
1336 : : /*
1337 : : FoldIfGreEqu - check to see if it is possible to evaluate
1338 : : if op1 >= op2 then goto op3.
1339 : : */
1340 : :
1341 : : static void FoldIfGreEqu (unsigned int tokenno, unsigned int quad, unsigned int left, unsigned int right, unsigned int destQuad);
1342 : :
1343 : : /*
1344 : : FoldIfIn - check whether we can fold the IfInOp
1345 : : if op1 in op2 then goto op3
1346 : : */
1347 : :
1348 : : static void FoldIfIn (unsigned int tokenno, unsigned int quad, unsigned int left, unsigned int right, unsigned int destQuad);
1349 : :
1350 : : /*
1351 : : FoldIfNotIn - check whether we can fold the IfNotInOp
1352 : : if not (op1 in op2) then goto op3
1353 : : */
1354 : :
1355 : : static void FoldIfNotIn (unsigned int tokenno, unsigned int quad, unsigned int left, unsigned int right, unsigned int destQuad);
1356 : :
1357 : : /*
1358 : : FoldIfEqu - check to see if it is possible to evaluate
1359 : : if op1 = op2 then goto op3.
1360 : : */
1361 : :
1362 : : static void FoldIfEqu (unsigned int tokenno, unsigned int quad, unsigned int left, unsigned int right, unsigned int destQuad);
1363 : :
1364 : : /*
1365 : : FoldIfNotEqu - check to see if it is possible to evaluate
1366 : : if op1 # op2 then goto op3.
1367 : : */
1368 : :
1369 : : static void FoldIfNotEqu (unsigned int tokenno, unsigned int quad, unsigned int left, unsigned int right, unsigned int destQuad);
1370 : :
1371 : : /*
1372 : : GetSetLimits - assigns low and high to the limits of the declared, set.
1373 : : */
1374 : :
1375 : : static void GetSetLimits (unsigned int set, unsigned int *low, unsigned int *high);
1376 : :
1377 : : /*
1378 : : GetFieldNo - returns the field number in the, set, which contains, element.
1379 : : */
1380 : :
1381 : : static int GetFieldNo (unsigned int tokenno, unsigned int element, unsigned int set, tree *offset);
1382 : :
1383 : : /*
1384 : : CodeIncl - encode an InclOp:
1385 : : result := result + (1 << expr)
1386 : : */
1387 : :
1388 : : static void CodeIncl (unsigned int result, unsigned int expr);
1389 : :
1390 : : /*
1391 : : FoldExcl - check whether we can fold the InclOp.
1392 : : op1 := op1 - (1 << op3)
1393 : : */
1394 : :
1395 : : static void FoldExcl (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int result, unsigned int expr);
1396 : :
1397 : : /*
1398 : : CodeExcl - encode an ExclOp:
1399 : : result := result - (1 << expr)
1400 : : */
1401 : :
1402 : : static void CodeExcl (unsigned int result, unsigned int expr);
1403 : :
1404 : : /*
1405 : : FoldUnary - check whether we can fold the unop operation.
1406 : : */
1407 : :
1408 : : static void FoldUnary (unsigned int tokenno, M2GCCDeclare_WalkAction p, m2expr_BuildUnaryProcedure unop, tree ZConstToTypedConst, unsigned int quad, unsigned int result, unsigned int expr);
1409 : :
1410 : : /*
1411 : : FoldUnarySet - check whether we can fold the doOp operation.
1412 : : */
1413 : :
1414 : : static void FoldUnarySet (unsigned int tokenno, M2GCCDeclare_WalkAction p, M2GenGCC_DoUnaryProcedure doOp, unsigned int quad, unsigned int result, unsigned int expr);
1415 : :
1416 : : /*
1417 : : CodeUnaryCheck - encode a unary arithmetic operation.
1418 : : */
1419 : :
1420 : : static void CodeUnaryCheck (m2expr_BuildUnaryCheckProcedure unop, tree ZConstToTypedConst, unsigned int quad, unsigned int result, unsigned int expr);
1421 : :
1422 : : /*
1423 : : CodeUnary - encode a unary arithmetic operation.
1424 : : */
1425 : :
1426 : : static void CodeUnary (m2expr_BuildUnaryProcedure unop, tree ZConstToTypedConst, unsigned int quad, unsigned int result, unsigned int expr);
1427 : :
1428 : : /*
1429 : : FoldNegate - check unary negate for constant folding.
1430 : : */
1431 : :
1432 : : static void FoldNegate (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int result, unsigned int expr);
1433 : :
1434 : : /*
1435 : : CodeNegateChecked - code a negate instruction, determine whether checking
1436 : : is required.
1437 : : */
1438 : :
1439 : : static void CodeNegateChecked (unsigned int quad, unsigned int op1, unsigned int op3);
1440 : :
1441 : : /*
1442 : : FoldSize - check unary SIZE for constant folding.
1443 : : */
1444 : :
1445 : : static void FoldSize (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1446 : :
1447 : : /*
1448 : : CodeSize - encode the inbuilt SIZE function.
1449 : : */
1450 : :
1451 : : static void CodeSize (unsigned int result, unsigned int sym);
1452 : :
1453 : : /*
1454 : : FoldRecordField - check whether we can fold an RecordFieldOp quadruple.
1455 : : Very similar to FoldBinary, except that we need to
1456 : : hard code a few parameters to the gcc backend.
1457 : : */
1458 : :
1459 : : static void FoldRecordField (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int result, unsigned int record, unsigned int field);
1460 : :
1461 : : /*
1462 : : CodeRecordField - encode a reference to a field within a record.
1463 : : */
1464 : :
1465 : : static void CodeRecordField (unsigned int result, unsigned int record, unsigned int field);
1466 : :
1467 : : /*
1468 : : BuildHighFromChar -
1469 : : */
1470 : :
1471 : : static tree BuildHighFromChar (unsigned int operand);
1472 : :
1473 : : /*
1474 : : SkipToArray -
1475 : : */
1476 : :
1477 : : static unsigned int SkipToArray (unsigned int operand, unsigned int dim);
1478 : :
1479 : : /*
1480 : : BuildHighFromArray -
1481 : : */
1482 : :
1483 : : static tree BuildHighFromArray (unsigned int tokenno, unsigned int dim, unsigned int operand);
1484 : :
1485 : : /*
1486 : : BuildHighFromStaticArray -
1487 : : */
1488 : :
1489 : : static tree BuildHighFromStaticArray (location_t location, unsigned int Type);
1490 : :
1491 : : /*
1492 : : BuildHighFromString -
1493 : : */
1494 : :
1495 : : static tree BuildHighFromString (unsigned int operand);
1496 : :
1497 : : /*
1498 : : ResolveHigh - given an Modula-2 operand, it resolves the HIGH(operand)
1499 : : and returns a GCC constant symbol containing the value of
1500 : : HIGH(operand).
1501 : : */
1502 : :
1503 : : static tree ResolveHigh (unsigned int tokenno, unsigned int dim, unsigned int operand);
1504 : :
1505 : : /*
1506 : : FoldHigh - if the array is not dynamic then we should be able to
1507 : : remove the HighOp quadruple and assign op1 with
1508 : : the known compile time HIGH(op3).
1509 : : */
1510 : :
1511 : : static void FoldHigh (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int dim, unsigned int op3);
1512 : :
1513 : : /*
1514 : : CodeHigh - encode a unary arithmetic operation.
1515 : : */
1516 : :
1517 : : static void CodeHigh (unsigned int result, unsigned int dim, unsigned int array);
1518 : :
1519 : : /*
1520 : : CodeUnbounded - codes the creation of an unbounded parameter variable.
1521 : : places the address of op3 into *op1
1522 : : */
1523 : :
1524 : : static void CodeUnbounded (unsigned int result, unsigned int array);
1525 : :
1526 : : /*
1527 : : AreSubrangesKnown - returns TRUE if the subranges values used within, array, are known.
1528 : : */
1529 : :
1530 : : static bool AreSubrangesKnown (unsigned int array);
1531 : :
1532 : : /*
1533 : : CodeArray - res is an lvalue which will point to the array element.
1534 : : */
1535 : :
1536 : : static void CodeArray (unsigned int res, unsigned int index, unsigned int array);
1537 : :
1538 : : /*
1539 : : FoldElementSizeForArray - attempts to calculate the Subscript
1540 : : multiplier for the index op3.
1541 : : */
1542 : :
1543 : : static void FoldElementSizeForArray (unsigned int tokenno, unsigned int quad, M2GCCDeclare_WalkAction p, unsigned int result, unsigned int type);
1544 : :
1545 : : /*
1546 : : FoldElementSizeForUnbounded - Unbounded arrays only have one index,
1547 : : therefore element size will be the
1548 : : TSIZE(Type) where Type is defined as:
1549 : : ARRAY OF Type.
1550 : : */
1551 : :
1552 : : static void FoldElementSizeForUnbounded (unsigned int tokenno, unsigned int quad, M2GCCDeclare_WalkAction p, unsigned int result, unsigned int ArrayType);
1553 : :
1554 : : /*
1555 : : FoldElementSize - folds the element size for an ArraySym or UnboundedSym.
1556 : : ElementSize returns a constant which defines the
1557 : : multiplier to be multiplied by this element index.
1558 : : */
1559 : :
1560 : : static void FoldElementSize (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int result, unsigned int type);
1561 : :
1562 : : /*
1563 : : PopKindTree - returns a Tree from M2ALU of the type implied by, op.
1564 : : */
1565 : :
1566 : : static tree PopKindTree (unsigned int op, unsigned int tokenno);
1567 : :
1568 : : /*
1569 : : FoldConvert - attempts to fold expr to type into result
1570 : : providing that result and expr are constants.
1571 : : If required convert will alter the machine representation
1572 : : of expr to comply with type.
1573 : : */
1574 : :
1575 : : static void FoldConvert (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int result, unsigned int type, unsigned int expr);
1576 : :
1577 : : /*
1578 : : CodeConvert - Converts, rhs, to, type, placing the result into lhs.
1579 : : Convert will, if need be, alter the machine representation
1580 : : of op3 to comply with TYPE op2.
1581 : : */
1582 : :
1583 : : static void CodeConvert (unsigned int quad, unsigned int lhs, unsigned int type, unsigned int rhs);
1584 : :
1585 : : /*
1586 : : CodeCoerce - Coerce op3 to type op2 placing the result into
1587 : : op1.
1588 : : Coerce will NOT alter the machine representation
1589 : : of op3 to comply with TYPE op2.
1590 : : Therefore it _insists_ that under all circumstances that the
1591 : : type sizes of op1 and op3 are the same.
1592 : : CONVERT will perform machine manipulation to change variable
1593 : : types, coerce does no such thing.
1594 : : */
1595 : :
1596 : : static void CodeCoerce (unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1597 : :
1598 : : /*
1599 : : FoldCoerce -
1600 : : */
1601 : :
1602 : : static void FoldCoerce (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1603 : :
1604 : : /*
1605 : : CanConvert - returns TRUE if we can convert variable, var, to a, type.
1606 : : */
1607 : :
1608 : : static bool CanConvert (unsigned int type, unsigned int var);
1609 : :
1610 : : /*
1611 : : CodeCast - Cast op3 to type op2 placing the result into op1.
1612 : : Cast will NOT alter the machine representation
1613 : : of op3 to comply with TYPE op2 as long as SIZE(op3)=SIZE(op2).
1614 : : If the sizes differ then Convert is called.
1615 : : */
1616 : :
1617 : : static void CodeCast (unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1618 : : static void FoldCast (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1619 : :
1620 : : /*
1621 : : CreateLabelProcedureN - creates a label using procedure name and
1622 : : an integer.
1623 : : */
1624 : :
1625 : : static DynamicStrings_String CreateLabelProcedureN (unsigned int proc, const char *leader_, unsigned int _leader_high, unsigned int unboundedCount, unsigned int n);
1626 : :
1627 : : /*
1628 : : CreateLabelName - creates a namekey from quadruple, q.
1629 : : */
1630 : :
1631 : : static DynamicStrings_String CreateLabelName (unsigned int q);
1632 : :
1633 : : /*
1634 : : CodeGoto - creates a jump to a labeled quadruple.
1635 : : */
1636 : :
1637 : : static void CodeGoto (unsigned int destquad);
1638 : :
1639 : : /*
1640 : : CheckReferenced - checks to see whether this quadruple requires a label.
1641 : : */
1642 : :
1643 : : static void CheckReferenced (unsigned int quad, M2Quads_QuadOperator op);
1644 : :
1645 : : /*
1646 : : CodeIfSetLess -
1647 : : */
1648 : :
1649 : : static void CodeIfSetLess (unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1650 : :
1651 : : /*
1652 : : PerformCodeIfLess - codes the quadruple if op1 < op2 then goto op3
1653 : : */
1654 : :
1655 : : static void PerformCodeIfLess (unsigned int quad);
1656 : :
1657 : : /*
1658 : : CodeIfLess - codes the quadruple if op1 < op2 then goto op3
1659 : : */
1660 : :
1661 : : static void CodeIfLess (unsigned int quad);
1662 : :
1663 : : /*
1664 : : CodeIfSetGre -
1665 : : */
1666 : :
1667 : : static void CodeIfSetGre (unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1668 : :
1669 : : /*
1670 : : PerformCodeIfGre - codes the quadruple if op1 > op2 then goto op3
1671 : : */
1672 : :
1673 : : static void PerformCodeIfGre (unsigned int quad);
1674 : :
1675 : : /*
1676 : : CodeIfGre - codes the quadruple if op1 > op2 then goto op3
1677 : : */
1678 : :
1679 : : static void CodeIfGre (unsigned int quad);
1680 : :
1681 : : /*
1682 : : CodeIfSetLessEqu -
1683 : : */
1684 : :
1685 : : static void CodeIfSetLessEqu (unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1686 : :
1687 : : /*
1688 : : PerformCodeIfLessEqu - codes the quadruple if op1 <= op2 then goto op3
1689 : : */
1690 : :
1691 : : static void PerformCodeIfLessEqu (unsigned int quad);
1692 : :
1693 : : /*
1694 : : CodeIfLessEqu - codes the quadruple if op1 <= op2 then goto op3
1695 : : */
1696 : :
1697 : : static void CodeIfLessEqu (unsigned int quad);
1698 : :
1699 : : /*
1700 : : CodeIfSetGreEqu -
1701 : : */
1702 : :
1703 : : static void CodeIfSetGreEqu (unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1704 : :
1705 : : /*
1706 : : PerformCodeIfGreEqu - codes the quadruple if op1 >= op2 then goto op3
1707 : : */
1708 : :
1709 : : static void PerformCodeIfGreEqu (unsigned int quad);
1710 : :
1711 : : /*
1712 : : CodeIfGreEqu - codes the quadruple if op1 >= op2 then goto op3
1713 : : */
1714 : :
1715 : : static void CodeIfGreEqu (unsigned int quad);
1716 : :
1717 : : /*
1718 : : CodeIfSetEqu - codes if op1 = op2 then goto op3
1719 : : Note that if op1 and op2 are not both constants
1720 : : since this will have been evaluated in CodeIfEqu.
1721 : : */
1722 : :
1723 : : static void CodeIfSetEqu (unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1724 : :
1725 : : /*
1726 : : CodeIfSetNotEqu - codes if op1 # op2 then goto op3
1727 : : Note that if op1 and op2 are not both constants
1728 : : since this will have been evaluated in CodeIfNotEqu.
1729 : : */
1730 : :
1731 : : static void CodeIfSetNotEqu (unsigned int left, unsigned int right, unsigned int destQuad);
1732 : :
1733 : : /*
1734 : : ComparisonMixTypes -
1735 : : */
1736 : :
1737 : : static unsigned int ComparisonMixTypes (unsigned int varleft, unsigned int varright, unsigned int left, unsigned int right, unsigned int tokpos);
1738 : :
1739 : : /*
1740 : : PerformCodeIfEqu -
1741 : : */
1742 : :
1743 : : static void PerformCodeIfEqu (unsigned int quad);
1744 : :
1745 : : /*
1746 : : PerformCodeIfNotEqu -
1747 : : */
1748 : :
1749 : : static void PerformCodeIfNotEqu (unsigned int quad);
1750 : :
1751 : : /*
1752 : : IsValidExpressionRelOp - declare left and right constants (if they are not already declared).
1753 : : Check whether left and right are expression compatible.
1754 : : */
1755 : :
1756 : : static bool IsValidExpressionRelOp (unsigned int quad, bool isin);
1757 : :
1758 : : /*
1759 : : CodeIfEqu - codes the quadruple if op1 = op2 then goto op3
1760 : : */
1761 : :
1762 : : static void CodeIfEqu (unsigned int quad);
1763 : :
1764 : : /*
1765 : : CodeIfNotEqu - codes the quadruple if op1 # op2 then goto op3
1766 : : */
1767 : :
1768 : : static void CodeIfNotEqu (unsigned int quad);
1769 : :
1770 : : /*
1771 : : MixTypes3 - returns a type compatible from, low, high, var.
1772 : : */
1773 : :
1774 : : static unsigned int MixTypes3 (unsigned int low, unsigned int high, unsigned int var, unsigned int tokenno);
1775 : :
1776 : : /*
1777 : : BuildIfVarInConstValue - if var in constsetvalue then goto trueexit
1778 : : */
1779 : :
1780 : : static void BuildIfVarInConstValue (location_t location, unsigned int tokenno, M2ALU_PtrToValue constsetvalue, unsigned int var, unsigned int trueexit);
1781 : :
1782 : : /*
1783 : : BuildIfNotVarInConstValue - if not (var in constsetvalue) then goto trueexit
1784 : : */
1785 : :
1786 : : static void BuildIfNotVarInConstValue (unsigned int quad, M2ALU_PtrToValue constsetvalue, unsigned int var, unsigned int trueexit);
1787 : :
1788 : : /*
1789 : : PerformCodeIfIn - code the quadruple: if op1 in op2 then goto op3
1790 : : */
1791 : :
1792 : : static void PerformCodeIfIn (unsigned int quad);
1793 : :
1794 : : /*
1795 : : PerformCodeIfNotIn - code the quadruple: if not (op1 in op2) then goto op3
1796 : : */
1797 : :
1798 : : static void PerformCodeIfNotIn (unsigned int quad);
1799 : :
1800 : : /*
1801 : : CodeIfIn - code the quadruple: if op1 in op2 then goto op3
1802 : : */
1803 : :
1804 : : static void CodeIfIn (unsigned int quad);
1805 : :
1806 : : /*
1807 : : CodeIfNotIn - code the quadruple: if not (op1 in op2) then goto op3
1808 : : */
1809 : :
1810 : : static void CodeIfNotIn (unsigned int quad);
1811 : : static void CodeIndrX (unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3);
1812 : :
1813 : : /*
1814 : : CodeXIndr - operands for XIndrOp are: left type right.
1815 : : *left = right. The second operand is the type of the data being
1816 : : indirectly copied.
1817 : : */
1818 : :
1819 : : static void CodeXIndr (unsigned int quad);
1820 : :
1821 : : /*
1822 : : InitBuiltinSyms -
1823 : : */
1824 : :
1825 : : static void InitBuiltinSyms (unsigned int tok);
1826 : :
1827 : :
1828 : : /*
1829 : : ErrorMessageDecl - emit an error message together with declaration fragments of left
1830 : : and right if they are parameters or variables.
1831 : : */
1832 : :
1833 : 144 : static void ErrorMessageDecl (unsigned int tok, const char *message_, unsigned int _message_high, unsigned int left, unsigned int right, bool iserror)
1834 : : {
1835 : 144 : char message[_message_high+1];
1836 : :
1837 : : /* make a local copy of each unbounded array. */
1838 : 144 : memcpy (message, message_, _message_high+1);
1839 : :
1840 : 144 : M2MetaError_MetaErrorT2 (tok, (const char *) message, _message_high, left, right);
1841 : 144 : M2MetaError_MetaErrorDecl (left, iserror);
1842 : 144 : M2MetaError_MetaErrorDecl (right, iserror);
1843 : 144 : }
1844 : :
1845 : :
1846 : : /*
1847 : : IsExportedGcc - returns TRUE if this symbol should be (as far as the middle/backend of GCC)
1848 : : is concerned, exported.
1849 : : */
1850 : :
1851 : 93735 : static bool IsExportedGcc (unsigned int sym)
1852 : : {
1853 : 93735 : unsigned int scope;
1854 : :
1855 : : /* Has a procedure been overridden as public? */
1856 : 93735 : if ((SymbolTable_IsProcedure (sym)) && (SymbolTable_IsPublic (sym)))
1857 : : {
1858 : : return true;
1859 : : }
1860 : : /* Check for whole program. */
1861 : 49666 : if (M2Options_WholeProgram)
1862 : : {
1863 : 7320 : scope = SymbolTable_GetScope (sym);
1864 : 14640 : while (scope != SymbolTable_NulSym)
1865 : : {
1866 : 7320 : if (SymbolTable_IsDefImp (scope))
1867 : : {
1868 : 7296 : return SymbolTable_IsExported (scope, sym);
1869 : : }
1870 : 24 : else if (SymbolTable_IsModule (scope))
1871 : : {
1872 : : /* avoid dangling else. */
1873 : : return false;
1874 : : }
1875 : 0 : scope = SymbolTable_GetScope (scope);
1876 : : }
1877 : 0 : M2Error_InternalError ((const char *) "expecting scope to eventually reach a module or defimp symbol", 61);
1878 : : }
1879 : : else
1880 : : {
1881 : : /* Otherwise it is public if it were exported. */
1882 : 42346 : return SymbolTable_IsExported (SymbolTable_GetMainModule (), sym);
1883 : : }
1884 : : ReturnException ("/home/worker/buildworker/tiber-lcov/build/gcc/m2/gm2-compiler/M2GenGCC.def", 20, 1);
1885 : : __builtin_unreachable ();
1886 : : }
1887 : :
1888 : :
1889 : : /*
1890 : : IsCompilingMainModule -
1891 : : */
1892 : :
1893 : 153678 : static bool IsCompilingMainModule (unsigned int sym)
1894 : : {
1895 : 254666 : while ((sym != SymbolTable_NulSym) && ((SymbolTable_GetMainModule ()) != sym))
1896 : : {
1897 : 100988 : sym = SymbolTable_GetModuleScope (sym);
1898 : : }
1899 : 153678 : return sym != SymbolTable_NulSym;
1900 : : /* static analysis guarentees a RETURN statement will be used before here. */
1901 : : __builtin_unreachable ();
1902 : : }
1903 : :
1904 : :
1905 : : /*
1906 : : CodeLastForIterator - call PerformLastForIterator allowing for
1907 : : a non constant last iterator value.
1908 : : */
1909 : :
1910 : 482 : static void CodeLastForIterator (unsigned int quad)
1911 : : {
1912 : 0 : PerformLastForIterator (quad, (M2GCCDeclare_WalkAction) {(M2GCCDeclare_WalkAction_t) NoWalkProcedure}, false);
1913 : 482 : }
1914 : :
1915 : :
1916 : : /*
1917 : : FoldLastForIterator - call PerformLastForIterator providing
1918 : : all operands are constant and are known by GCC.
1919 : : */
1920 : :
1921 : 11564 : static void FoldLastForIterator (unsigned int quad, M2GCCDeclare_WalkAction p)
1922 : : {
1923 : 11564 : M2Quads_QuadOperator op;
1924 : 11564 : unsigned int e1;
1925 : 11564 : unsigned int e2;
1926 : 11564 : unsigned int op1;
1927 : 11564 : unsigned int tuple;
1928 : 11564 : unsigned int incr;
1929 : :
1930 : 11564 : M2Quads_GetQuad (quad, &op, &op1, &tuple, &incr);
1931 : 11564 : M2Debug_Assert (SymbolTable_IsTuple (tuple));
1932 : 11564 : e1 = SymbolTable_GetNth (tuple, 1);
1933 : 11564 : e2 = SymbolTable_GetNth (tuple, 2);
1934 : 11564 : if (((((((SymbolTable_IsConst (op1)) && (SymbolTable_IsConst (e1))) && (SymbolTable_IsConst (e2))) && (SymbolTable_IsConst (incr))) && (SymbolConversion_GccKnowsAbout (e1))) && (SymbolConversion_GccKnowsAbout (e2))) && (SymbolConversion_GccKnowsAbout (incr)))
1935 : : {
1936 : 1494 : PerformLastForIterator (quad, p, true);
1937 : : }
1938 : 11564 : }
1939 : :
1940 : 1976 : static void PerformLastForIterator (unsigned int quad, M2GCCDeclare_WalkAction p, bool constant)
1941 : : {
1942 : 1976 : bool success;
1943 : 1976 : bool constExpr;
1944 : 1976 : bool overflowChecking;
1945 : 1976 : M2Quads_QuadOperator op;
1946 : 1976 : unsigned int lastpos;
1947 : 1976 : unsigned int op1pos;
1948 : 1976 : unsigned int op2pos;
1949 : 1976 : unsigned int incrpos;
1950 : 1976 : unsigned int last;
1951 : 1976 : unsigned int tuple;
1952 : 1976 : unsigned int incr;
1953 : 1976 : unsigned int e1;
1954 : 1976 : unsigned int e2;
1955 : 1976 : tree lasttree;
1956 : 1976 : tree e1tree;
1957 : 1976 : tree e2tree;
1958 : 1976 : tree expr;
1959 : 1976 : tree incrtree;
1960 : 1976 : location_t location;
1961 : :
1962 : : /*
1963 : : FoldLastForIterator - generates code to calculate the last iterator value
1964 : : in a for loop. It examines the increment constant
1965 : : and generates different code depending whether it is
1966 : : negative or positive.
1967 : : */
1968 : 1976 : M2Quads_GetQuadOtok (quad, &lastpos, &op, &last, &tuple, &incr, &overflowChecking, &constExpr, &op1pos, &op2pos, &incrpos);
1969 : 1976 : M2GCCDeclare_DeclareConstant (incrpos, incr);
1970 : 1976 : lasttree = SymbolConversion_Mod2Gcc (last);
1971 : 1976 : success = true;
1972 : 1976 : if (SymbolTable_IsConst (incr))
1973 : : {
1974 : : /* avoid dangling else. */
1975 : 1976 : incrtree = SymbolConversion_Mod2Gcc (incr);
1976 : 1976 : location = M2LexBuf_TokenToLocation (lastpos);
1977 : 1976 : e1 = SymbolTable_GetNth (tuple, 1);
1978 : 1976 : e2 = SymbolTable_GetNth (tuple, 2);
1979 : 1976 : e1tree = SymbolConversion_Mod2Gcc (e1);
1980 : 1976 : e2tree = SymbolConversion_Mod2Gcc (e2);
1981 : 1976 : if ((m2expr_CompareTrees (incrtree, m2expr_GetIntegerZero (location))) == 0)
1982 : : {
1983 : 6 : M2MetaError_MetaErrorT0 (lastpos, (const char *) "the {%kFOR} loop step value must not be zero", 44);
1984 : 6 : M2MetaError_MetaErrorDecl (incr, true);
1985 : 6 : NoChange = false;
1986 : 6 : M2Quads_SubQuad (quad);
1987 : 6 : success = false;
1988 : : }
1989 : 1970 : else if ((m2expr_CompareTrees (incrtree, m2expr_GetIntegerZero (location))) > 0)
1990 : : {
1991 : : /* avoid dangling else. */
1992 : : /* If incr > 0 then LastIterator := ((e2-e1) DIV incr) * incr + e1. */
1993 : 1760 : expr = m2expr_BuildSub (location, e2tree, e1tree, false);
1994 : 1760 : incrtree = m2convert_BuildConvert (location, m2type_GetTreeType (expr), incrtree, false);
1995 : 1760 : if (m2expr_TreeOverflow (incrtree))
1996 : : {
1997 : 0 : M2MetaError_MetaErrorT0 (lastpos, (const char *) "the intemediate calculation for the last iterator value in the {%kFOR} loop has caused an overflow", 98);
1998 : 0 : NoChange = false;
1999 : 0 : M2Quads_SubQuad (quad);
2000 : 0 : success = false;
2001 : : }
2002 : : else
2003 : : {
2004 : 1760 : expr = m2expr_BuildDivFloor (location, expr, incrtree, false);
2005 : 1760 : expr = m2expr_BuildMult (location, expr, incrtree, false);
2006 : 1760 : expr = m2expr_BuildAdd (location, expr, e1tree, false);
2007 : : }
2008 : : }
2009 : : else
2010 : : {
2011 : : /* avoid dangling else. */
2012 : : /* Else use LastIterator := e1 - ((e1-e2) DIV PositiveBy) * PositiveBy
2013 : : to avoid unsigned div signed arithmetic. */
2014 : 210 : expr = m2expr_BuildSub (location, e1tree, e2tree, false);
2015 : 210 : incrtree = m2convert_BuildConvert (location, m2type_GetM2ZType (), incrtree, false);
2016 : 210 : incrtree = m2expr_BuildNegate (location, incrtree, false);
2017 : 210 : incrtree = m2convert_BuildConvert (location, m2type_GetTreeType (expr), incrtree, false);
2018 : 210 : if (m2expr_TreeOverflow (incrtree))
2019 : : {
2020 : 0 : M2MetaError_MetaErrorT0 (lastpos, (const char *) "the intemediate calculation for the last iterator value in the {%kFOR} loop has caused an overflow", 98);
2021 : 0 : NoChange = false;
2022 : 0 : M2Quads_SubQuad (quad);
2023 : 0 : success = false;
2024 : : }
2025 : : else
2026 : : {
2027 : 210 : expr = m2expr_BuildSub (location, e1tree, e2tree, false);
2028 : 210 : expr = m2expr_BuildDivFloor (location, expr, incrtree, false);
2029 : 210 : expr = m2expr_BuildMult (location, expr, incrtree, false);
2030 : 210 : expr = m2expr_BuildSub (location, e1tree, expr, false);
2031 : : }
2032 : : }
2033 : 1976 : if (success)
2034 : : {
2035 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
2036 : 1970 : if (SymbolTable_IsConst (last))
2037 : : {
2038 : 1488 : SymbolConversion_AddModGcc (last, expr);
2039 : 1488 : (*p.proc) (last);
2040 : 1488 : NoChange = false;
2041 : 1488 : M2Quads_SubQuad (quad);
2042 : : }
2043 : : else
2044 : : {
2045 : 482 : M2Debug_Assert (! constant);
2046 : 482 : m2statement_BuildAssignmentStatement (location, lasttree, expr);
2047 : : }
2048 : : }
2049 : : }
2050 : : else
2051 : : {
2052 : 0 : M2MetaError_MetaErrorT1 (lastpos, (const char *) "the value {%1Ead} in the {%kBY} clause of the {%kFOR} loop must be constant", 75, incr);
2053 : 0 : M2MetaError_MetaErrorDecl (incr, true);
2054 : 0 : NoChange = false;
2055 : 0 : M2Quads_SubQuad (quad);
2056 : : }
2057 : 1976 : }
2058 : :
2059 : :
2060 : : /*
2061 : : CodeStatement - A multi-way decision call depending on the current
2062 : : quadruple.
2063 : : */
2064 : :
2065 : 3290770 : static void CodeStatement (unsigned int q)
2066 : : {
2067 : 3290770 : M2Quads_QuadOperator op;
2068 : 3290770 : unsigned int op1;
2069 : 3290770 : unsigned int op2;
2070 : 3290770 : unsigned int op3;
2071 : 3290770 : location_t location;
2072 : :
2073 : 3290770 : InitBuiltinSyms (M2LexBuf_BuiltinTokenNo);
2074 : 3290770 : M2Quads_GetQuad (q, &op, &op1, &op2, &op3);
2075 : 3290770 : if (op == M2Quads_StatementNoteOp)
2076 : : {
2077 : 396111 : FoldStatementNote (op3); /* will change CurrentQuadToken using op3 */
2078 : : }
2079 : : else
2080 : : {
2081 : 2894659 : CurrentQuadToken = M2Quads_QuadToTokenNo (q);
2082 : : }
2083 : 3290770 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
2084 : 3290770 : CheckReferenced (q, op);
2085 : 3290770 : if (M2Options_GetDebugTraceQuad ())
2086 : : {
2087 : 0 : M2Printf_printf0 ((const char *) "building: ", 10);
2088 : 0 : M2Quads_DisplayQuad (q);
2089 : : }
2090 : 3290770 : switch (op)
2091 : : {
2092 : 112048 : case M2Quads_StartDefFileOp:
2093 : 112048 : CodeStartDefFile (op3);
2094 : 112048 : break;
2095 : :
2096 : 62429 : case M2Quads_StartModFileOp:
2097 : 62429 : CodeStartModFile (op3);
2098 : 62429 : break;
2099 : :
2100 : 62837 : case M2Quads_ModuleScopeOp:
2101 : 62837 : CodeModuleScope (op3);
2102 : 62837 : break;
2103 : :
2104 : 174471 : case M2Quads_EndFileOp:
2105 : 174471 : CodeEndFile ();
2106 : 174471 : break;
2107 : :
2108 : 62837 : case M2Quads_InitStartOp:
2109 : 62837 : CodeInitStart (op3, IsCompilingMainModule (op3));
2110 : 62837 : break;
2111 : :
2112 : 62831 : case M2Quads_InitEndOp:
2113 : 62831 : CodeInitEnd (op3, IsCompilingMainModule (op3));
2114 : 62831 : break;
2115 : :
2116 : 14005 : case M2Quads_FinallyStartOp:
2117 : 14005 : CodeFinallyStart (op3, IsCompilingMainModule (op3));
2118 : 14005 : break;
2119 : :
2120 : 14005 : case M2Quads_FinallyEndOp:
2121 : 14005 : CodeFinallyEnd (op3, IsCompilingMainModule (op3));
2122 : 14005 : break;
2123 : :
2124 : 65719 : case M2Quads_NewLocalVarOp:
2125 : 65719 : CodeNewLocalVar (op1, op3);
2126 : 65719 : break;
2127 : :
2128 : 65713 : case M2Quads_KillLocalVarOp:
2129 : 65713 : CodeKillLocalVar (op3);
2130 : 65713 : break;
2131 : :
2132 : 65719 : case M2Quads_ProcedureScopeOp:
2133 : 65719 : CodeProcedureScope (op3);
2134 : 65719 : break;
2135 : :
2136 : : case M2Quads_ReturnOp:
2137 : : break;
2138 : :
2139 : 18364 : case M2Quads_ReturnValueOp:
2140 : 18364 : CodeReturnValue (q); /* Not used as return is achieved by KillLocalVar. */
2141 : 18364 : break;
2142 : :
2143 : 2684 : case M2Quads_TryOp:
2144 : 2684 : CodeTry ();
2145 : 2684 : break;
2146 : :
2147 : 284 : case M2Quads_ThrowOp:
2148 : 284 : CodeThrow (op3);
2149 : 284 : break;
2150 : :
2151 : 2684 : case M2Quads_CatchBeginOp:
2152 : 2684 : CodeCatchBegin ();
2153 : 2684 : break;
2154 : :
2155 : 2684 : case M2Quads_CatchEndOp:
2156 : 2684 : CodeCatchEnd ();
2157 : 2684 : break;
2158 : :
2159 : 108 : case M2Quads_RetryOp:
2160 : 108 : CodeRetry (op3);
2161 : 108 : break;
2162 : :
2163 : : case M2Quads_DummyOp:
2164 : : break;
2165 : :
2166 : 54 : case M2Quads_InitAddressOp:
2167 : 54 : CodeInitAddress (q, op1, op2, op3);
2168 : 54 : break;
2169 : :
2170 : 158717 : case M2Quads_BecomesOp:
2171 : 158717 : CodeBecomes (q);
2172 : 158717 : break;
2173 : :
2174 : 27864 : case M2Quads_ArithAddOp:
2175 : 27864 : case M2Quads_AddOp:
2176 : 27864 : CodeAddChecked (q, op2, op3);
2177 : 27864 : break;
2178 : :
2179 : 8190 : case M2Quads_SubOp:
2180 : 8190 : CodeSubChecked (q, op2, op3);
2181 : 8190 : break;
2182 : :
2183 : 9988 : case M2Quads_MultOp:
2184 : 9988 : CodeMultChecked (q, op2, op3);
2185 : 9988 : break;
2186 : :
2187 : 1644 : case M2Quads_DivM2Op:
2188 : 1644 : CodeDivM2Checked (q, op2, op3);
2189 : 1644 : break;
2190 : :
2191 : 1792 : case M2Quads_ModM2Op:
2192 : 1792 : CodeModM2Checked (q, op2, op3);
2193 : 1792 : break;
2194 : :
2195 : 430 : case M2Quads_DivTruncOp:
2196 : 430 : CodeDivTrunc (q, op2, op3);
2197 : 430 : break;
2198 : :
2199 : 0 : case M2Quads_ModTruncOp:
2200 : 0 : CodeModTrunc (q, op2, op3);
2201 : 0 : break;
2202 : :
2203 : 0 : case M2Quads_DivCeilOp:
2204 : 0 : CodeDivCeil (q, op2, op3);
2205 : 0 : break;
2206 : :
2207 : 0 : case M2Quads_ModCeilOp:
2208 : 0 : CodeModCeil (q, op2, op3);
2209 : 0 : break;
2210 : :
2211 : 0 : case M2Quads_DivFloorOp:
2212 : 0 : CodeDivFloor (q, op2, op3);
2213 : 0 : break;
2214 : :
2215 : 0 : case M2Quads_ModFloorOp:
2216 : 0 : CodeModFloor (q, op2, op3);
2217 : 0 : break;
2218 : :
2219 : 35772 : case M2Quads_GotoOp:
2220 : 35772 : CodeGoto (op3);
2221 : 35772 : break;
2222 : :
2223 : 758 : case M2Quads_InclOp:
2224 : 758 : CodeIncl (op1, op3);
2225 : 758 : break;
2226 : :
2227 : 434 : case M2Quads_ExclOp:
2228 : 434 : CodeExcl (op1, op3);
2229 : 434 : break;
2230 : :
2231 : 840 : case M2Quads_NegateOp:
2232 : 840 : CodeNegateChecked (q, op1, op3);
2233 : 840 : break;
2234 : :
2235 : 482 : case M2Quads_LastForIteratorOp:
2236 : 482 : CodeLastForIterator (q);
2237 : 482 : break;
2238 : :
2239 : 696 : case M2Quads_LogicalShiftOp:
2240 : 696 : CodeSetShift (q, op1, op2, op3);
2241 : 696 : break;
2242 : :
2243 : 232 : case M2Quads_LogicalRotateOp:
2244 : 232 : CodeSetRotate (q, op1, op2, op3);
2245 : 232 : break;
2246 : :
2247 : 750 : case M2Quads_LogicalOrOp:
2248 : 750 : CodeSetOr (q);
2249 : 750 : break;
2250 : :
2251 : 60 : case M2Quads_LogicalAndOp:
2252 : 60 : CodeSetAnd (q);
2253 : 60 : break;
2254 : :
2255 : 12 : case M2Quads_LogicalXorOp:
2256 : 12 : CodeSetSymmetricDifference (q);
2257 : 12 : break;
2258 : :
2259 : 66 : case M2Quads_LogicalDiffOp:
2260 : 66 : CodeSetLogicalDifference (q);
2261 : 66 : break;
2262 : :
2263 : 2984 : case M2Quads_IfLessOp:
2264 : 2984 : CodeIfLess (q);
2265 : 2984 : break;
2266 : :
2267 : 17194 : case M2Quads_IfEquOp:
2268 : 17194 : CodeIfEqu (q);
2269 : 17194 : break;
2270 : :
2271 : 26888 : case M2Quads_IfNotEquOp:
2272 : 26888 : CodeIfNotEqu (q);
2273 : 26888 : break;
2274 : :
2275 : 5030 : case M2Quads_IfGreEquOp:
2276 : 5030 : CodeIfGreEqu (q);
2277 : 5030 : break;
2278 : :
2279 : 4720 : case M2Quads_IfLessEquOp:
2280 : 4720 : CodeIfLessEqu (q);
2281 : 4720 : break;
2282 : :
2283 : 3896 : case M2Quads_IfGreOp:
2284 : 3896 : CodeIfGre (q);
2285 : 3896 : break;
2286 : :
2287 : 368 : case M2Quads_IfInOp:
2288 : 368 : CodeIfIn (q);
2289 : 368 : break;
2290 : :
2291 : 1086 : case M2Quads_IfNotInOp:
2292 : 1086 : CodeIfNotIn (q);
2293 : 1086 : break;
2294 : :
2295 : 13835 : case M2Quads_IndrXOp:
2296 : 13835 : CodeIndrX (q, op1, op2, op3);
2297 : 13835 : break;
2298 : :
2299 : 35172 : case M2Quads_XIndrOp:
2300 : 35172 : CodeXIndr (q);
2301 : 35172 : break;
2302 : :
2303 : 172947 : case M2Quads_CallOp:
2304 : 172947 : CodeCall (CurrentQuadToken, op3);
2305 : 172947 : break;
2306 : :
2307 : 495029 : case M2Quads_ParamOp:
2308 : 495029 : CodeParam (q);
2309 : 495029 : break;
2310 : :
2311 : 44508 : case M2Quads_FunctValueOp:
2312 : 44508 : CodeFunctValue (location, op1);
2313 : 44508 : break;
2314 : :
2315 : 170486 : case M2Quads_AddrOp:
2316 : 170486 : CodeAddr (CurrentQuadToken, q, op1, op3);
2317 : 170486 : break;
2318 : :
2319 : 0 : case M2Quads_SizeOp:
2320 : 0 : CodeSize (op1, op3);
2321 : 0 : break;
2322 : :
2323 : 29818 : case M2Quads_UnboundedOp:
2324 : 29818 : CodeUnbounded (op1, op3);
2325 : 29818 : break;
2326 : :
2327 : 119144 : case M2Quads_RecordFieldOp:
2328 : 119144 : CodeRecordField (op1, op2, op3);
2329 : 119144 : break;
2330 : :
2331 : 34584 : case M2Quads_HighOp:
2332 : 34584 : CodeHigh (op1, op2, op3);
2333 : 34584 : break;
2334 : :
2335 : 38968 : case M2Quads_ArrayOp:
2336 : 38968 : CodeArray (op1, op2, op3);
2337 : 38968 : break;
2338 : :
2339 : 0 : case M2Quads_ElementSizeOp:
2340 : 0 : M2Error_InternalError ((const char *) "ElementSizeOp is expected to have been folded via constant evaluation", 69);
2341 : 40660 : break;
2342 : :
2343 : 40660 : case M2Quads_ConvertOp:
2344 : 40660 : CodeConvert (q, op1, op2, op3);
2345 : 40660 : break;
2346 : :
2347 : 448 : case M2Quads_CoerceOp:
2348 : 448 : CodeCoerce (q, op1, op2, op3);
2349 : 448 : break;
2350 : :
2351 : 126 : case M2Quads_CastOp:
2352 : 126 : CodeCast (q, op1, op2, op3);
2353 : 126 : break;
2354 : :
2355 : 282 : case M2Quads_StandardFunctionOp:
2356 : 282 : CodeStandardFunction (q, op1, op2, op3);
2357 : 282 : break;
2358 : :
2359 : 420 : case M2Quads_SavePriorityOp:
2360 : 420 : CodeSavePriority (op1, op2, op3);
2361 : 420 : break;
2362 : :
2363 : 412 : case M2Quads_RestorePriorityOp:
2364 : 412 : CodeRestorePriority (op1, op2, op3);
2365 : 412 : break;
2366 : :
2367 : 24 : case M2Quads_InlineOp:
2368 : 24 : CodeInline (q);
2369 : 24 : break;
2370 : :
2371 : 396111 : case M2Quads_StatementNoteOp:
2372 : 396111 : CodeStatementNote (op3);
2373 : 396111 : break;
2374 : :
2375 : : case M2Quads_CodeOnOp:
2376 : : break;
2377 : :
2378 : : case M2Quads_CodeOffOp:
2379 : : break;
2380 : :
2381 : : case M2Quads_ProfileOnOp:
2382 : : break;
2383 : :
2384 : : case M2Quads_ProfileOffOp:
2385 : : break;
2386 : :
2387 : : case M2Quads_OptimizeOnOp:
2388 : : break;
2389 : :
2390 : : case M2Quads_OptimizeOffOp:
2391 : : break;
2392 : :
2393 : 524871 : case M2Quads_RangeCheckOp:
2394 : 524871 : CodeRange (op3); /* the following make no sense with gcc */
2395 : 524871 : break;
2396 : :
2397 : 809 : case M2Quads_ErrorOp:
2398 : 809 : CodeError (op3);
2399 : 809 : break;
2400 : :
2401 : 2684 : case M2Quads_SaveExceptionOp:
2402 : 2684 : CodeSaveException (op1, op3);
2403 : 2684 : break;
2404 : :
2405 : 2618 : case M2Quads_RestoreExceptionOp:
2406 : 2618 : CodeRestoreException (op1, op3);
2407 : 2618 : break;
2408 : :
2409 : :
2410 : 0 : default:
2411 : 0 : M2Error_WriteFormat1 ((const char *) "quadruple %d not yet implemented", 32, (const unsigned char *) &q, (sizeof (q)-1));
2412 : 0 : M2Error_InternalError ((const char *) "quadruple not implemented yet", 29);
2413 : 3290758 : break;
2414 : : }
2415 : 3290758 : LastOperator = op;
2416 : 3290758 : }
2417 : :
2418 : :
2419 : : /*
2420 : : FindSize - given a Modula-2 symbol sym return a gcc tree
2421 : : constant representing the storage size in bytes.
2422 : : */
2423 : :
2424 : 25828 : static tree FindSize (unsigned int tokenno, unsigned int sym)
2425 : : {
2426 : 25828 : location_t location;
2427 : :
2428 : 25828 : location = M2LexBuf_TokenToLocation (tokenno);
2429 : 25828 : if (SymbolTable_IsConstString (sym))
2430 : : {
2431 : 6408 : M2Debug_Assert (SymbolTable_IsConstStringKnown (sym));
2432 : 6408 : M2ALU_PushCard (SymbolTable_GetStringLength (tokenno, sym));
2433 : 6408 : return M2ALU_PopIntegerTree ();
2434 : : }
2435 : 19420 : else if (SymbolTable_IsSizeSolved (sym))
2436 : : {
2437 : : /* avoid dangling else. */
2438 : 17280 : SymbolTable_PushSize (sym);
2439 : 17280 : return M2ALU_PopIntegerTree ();
2440 : : }
2441 : : else
2442 : : {
2443 : : /* avoid dangling else. */
2444 : 2140 : if (SymbolConversion_GccKnowsAbout (sym))
2445 : : {
2446 : 2140 : if ((SymbolTable_IsVar (sym)) && (SymbolTable_IsVariableSSA (sym)))
2447 : : {
2448 : 0 : sym = SymbolTable_GetType (sym);
2449 : : }
2450 : 2140 : M2ALU_PushIntegerTree (m2expr_BuildSize (location, SymbolConversion_Mod2Gcc (sym), false));
2451 : 2140 : SymbolTable_PopSize (sym);
2452 : 2140 : SymbolTable_PushSize (sym);
2453 : 2140 : return M2ALU_PopIntegerTree ();
2454 : : }
2455 : 0 : else if ((SymbolTable_IsVar (sym)) && (SymbolConversion_GccKnowsAbout (SymbolTable_GetType (sym))))
2456 : : {
2457 : : /* avoid dangling else. */
2458 : 0 : M2ALU_PushIntegerTree (m2expr_BuildSize (location, SymbolConversion_Mod2Gcc (SymbolTable_GetType (sym)), false));
2459 : 0 : return M2ALU_PopIntegerTree ();
2460 : : }
2461 : : else
2462 : : {
2463 : : /* avoid dangling else. */
2464 : 0 : M2Error_InternalError ((const char *) "expecting gcc to already know about this symbol", 47);
2465 : : }
2466 : : }
2467 : : ReturnException ("/home/worker/buildworker/tiber-lcov/build/gcc/m2/gm2-compiler/M2GenGCC.def", 20, 1);
2468 : : __builtin_unreachable ();
2469 : : }
2470 : :
2471 : :
2472 : : /*
2473 : : FindType - returns the type of, Sym, if Sym is a TYPE then return Sym otherwise return GetType(Sym)
2474 : : */
2475 : :
2476 : 167372 : static unsigned int FindType (unsigned int Sym)
2477 : : {
2478 : 167372 : if (SymbolTable_IsType (Sym))
2479 : : {
2480 : : return Sym;
2481 : : }
2482 : : else
2483 : : {
2484 : 167372 : return SymbolTable_GetType (Sym);
2485 : : }
2486 : : /* static analysis guarentees a RETURN statement will be used before here. */
2487 : : __builtin_unreachable ();
2488 : : }
2489 : :
2490 : :
2491 : : /*
2492 : : BuildTreeFromInterface - generates a GCC tree from an interface definition.
2493 : : */
2494 : :
2495 : 48 : static tree BuildTreeFromInterface (unsigned int sym)
2496 : : {
2497 : 48 : unsigned int tok;
2498 : 48 : unsigned int i;
2499 : 48 : NameKey_Name name;
2500 : 48 : unsigned int str;
2501 : 48 : unsigned int obj;
2502 : 48 : tree gccName;
2503 : 48 : tree asmTree;
2504 : :
2505 : 48 : asmTree = (tree) (NULL);
2506 : 48 : if (sym != SymbolTable_NulSym)
2507 : : {
2508 : : i = 1;
2509 : 48 : do {
2510 : 48 : SymbolTable_GetRegInterface (sym, i, &tok, &name, &str, &obj);
2511 : 48 : if (str != SymbolTable_NulSym)
2512 : : {
2513 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
2514 : 24 : if (SymbolTable_IsConstString (str))
2515 : : {
2516 : : /* avoid dangling else. */
2517 : 24 : M2GCCDeclare_DeclareConstant (tok, obj);
2518 : 24 : if (name == NameKey_NulName)
2519 : : {
2520 : : gccName = NULL;
2521 : : }
2522 : : else
2523 : : {
2524 : 0 : gccName = m2decl_BuildCStringConstant (const_cast <const char * > (static_cast <char * > (NameKey_KeyToCharStar (name))), static_cast<int> (NameKey_LengthKey (name)));
2525 : : }
2526 : 24 : asmTree = m2type_ChainOnParamValue (asmTree, gccName, M2GCCDeclare_PromoteToCString (tok, str), m2tree_skip_const_decl (SymbolConversion_Mod2Gcc (obj)));
2527 : 24 : if (DebugTokPos)
2528 : : {
2529 : : M2Error_WarnStringAt (DynamicStrings_InitString ((const char *) "input expression", 16), tok);
2530 : : }
2531 : : }
2532 : : else
2533 : : {
2534 : 0 : M2MetaError_MetaErrorT1 (tok, (const char *) "a constraint to the GNU ASM statement must be a constant string and not a {%1Ed}", 80, str);
2535 : : }
2536 : : }
2537 : 48 : i += 1;
2538 : 48 : } while (! ((str == SymbolTable_NulSym) && (obj == SymbolTable_NulSym)));
2539 : : }
2540 : 48 : return asmTree;
2541 : : /* static analysis guarentees a RETURN statement will be used before here. */
2542 : : __builtin_unreachable ();
2543 : : }
2544 : :
2545 : :
2546 : : /*
2547 : : BuildTrashTreeFromInterface - generates a GCC string tree from an interface definition.
2548 : : */
2549 : :
2550 : 24 : static tree BuildTrashTreeFromInterface (unsigned int sym)
2551 : : {
2552 : 24 : unsigned int tok;
2553 : 24 : unsigned int i;
2554 : 24 : unsigned int str;
2555 : 24 : unsigned int obj;
2556 : 24 : NameKey_Name name;
2557 : 24 : tree asmTree;
2558 : :
2559 : 24 : asmTree = (tree) (NULL);
2560 : 24 : if (sym != SymbolTable_NulSym)
2561 : : {
2562 : : i = 1;
2563 : 0 : do {
2564 : 0 : SymbolTable_GetRegInterface (sym, i, &tok, &name, &str, &obj);
2565 : 0 : if (str != SymbolTable_NulSym)
2566 : : {
2567 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
2568 : 0 : if (SymbolTable_IsConstString (str))
2569 : : {
2570 : : /* avoid dangling else. */
2571 : 0 : asmTree = m2type_AddStringToTreeList (asmTree, M2GCCDeclare_PromoteToCString (tok, str));
2572 : 0 : if (DebugTokPos)
2573 : : {
2574 : : M2Error_WarnStringAt (DynamicStrings_InitString ((const char *) "trash expression", 16), tok);
2575 : : }
2576 : : }
2577 : : else
2578 : : {
2579 : 0 : M2MetaError_MetaErrorT1 (tok, (const char *) "a constraint to the GNU ASM statement must be a constant string and not a {%1Ed}", 80, str);
2580 : : }
2581 : : }
2582 : : /*
2583 : : IF obj#NulSym
2584 : : THEN
2585 : : InternalError ('not expecting the object to be non null in the trash list')
2586 : : END ;
2587 : : */
2588 : 0 : i += 1;
2589 : 0 : } while (! ((str == SymbolTable_NulSym) && (obj == SymbolTable_NulSym)));
2590 : : }
2591 : 24 : return asmTree;
2592 : : /* static analysis guarentees a RETURN statement will be used before here. */
2593 : : __builtin_unreachable ();
2594 : : }
2595 : :
2596 : :
2597 : : /*
2598 : : CodeInline - InlineOp is a quadruple which has the following format:
2599 : :
2600 : : InlineOp NulSym NulSym Sym
2601 : : */
2602 : :
2603 : 24 : static void CodeInline (unsigned int quad)
2604 : : {
2605 : 24 : bool constExpr;
2606 : 24 : bool overflowChecking;
2607 : 24 : M2Quads_QuadOperator op;
2608 : 24 : unsigned int op1;
2609 : 24 : unsigned int op2;
2610 : 24 : unsigned int GnuAsm;
2611 : 24 : unsigned int op1pos;
2612 : 24 : unsigned int op2pos;
2613 : 24 : unsigned int op3pos;
2614 : 24 : unsigned int asmpos;
2615 : 24 : unsigned int string;
2616 : 24 : tree inputs;
2617 : 24 : tree outputs;
2618 : 24 : tree trash;
2619 : 24 : tree labels;
2620 : 24 : location_t location;
2621 : :
2622 : 24 : M2Quads_GetQuadOtok (quad, &asmpos, &op, &op1, &op2, &GnuAsm, &overflowChecking, &constExpr, &op1pos, &op2pos, &op3pos);
2623 : 24 : location = M2LexBuf_TokenToLocation (asmpos);
2624 : 24 : inputs = BuildTreeFromInterface (SymbolTable_GetGnuAsmInput (GnuAsm));
2625 : 24 : outputs = BuildTreeFromInterface (SymbolTable_GetGnuAsmOutput (GnuAsm));
2626 : 24 : trash = BuildTrashTreeFromInterface (SymbolTable_GetGnuAsmTrash (GnuAsm));
2627 : 24 : labels = NULL; /* At present it makes no sence for Modula-2 to jump to a label,
2628 : : given that labels are not allowed in Modula-2. */
2629 : 24 : string = SymbolTable_GetGnuAsm (GnuAsm); /* At present it makes no sence for Modula-2 to jump to a label,
2630 : : given that labels are not allowed in Modula-2. */
2631 : 24 : m2statement_BuildAsm (location, M2GCCDeclare_PromoteToCString (SymbolTable_GetDeclaredMod (string), string), SymbolTable_IsGnuAsmVolatile (GnuAsm), SymbolTable_IsGnuAsmSimple (GnuAsm), inputs, outputs, trash, labels);
2632 : 24 : }
2633 : :
2634 : :
2635 : : /*
2636 : : FoldStatementNote -
2637 : : */
2638 : :
2639 : 7010441 : static void FoldStatementNote (unsigned int tokenno)
2640 : : {
2641 : 7010441 : CurrentQuadToken = tokenno;
2642 : 396111 : }
2643 : :
2644 : :
2645 : : /*
2646 : : CodeStatementNote -
2647 : : */
2648 : :
2649 : 396111 : static void CodeStatementNote (unsigned int tokenno)
2650 : : {
2651 : 396111 : CurrentQuadToken = tokenno;
2652 : 396111 : m2block_addStmtNote (M2LexBuf_TokenToLocation (tokenno));
2653 : 396111 : }
2654 : :
2655 : :
2656 : : /*
2657 : : FoldRange - attempts to fold the range test.
2658 : : --fixme-- complete this
2659 : : */
2660 : :
2661 : 7600145 : static void FoldRange (unsigned int tokenno, unsigned int quad, unsigned int rangeno)
2662 : : {
2663 : 0 : M2Range_FoldRangeCheck (tokenno, quad, rangeno); /* p: WalkAction; */
2664 : 7600109 : }
2665 : :
2666 : :
2667 : : /*
2668 : : CodeSaveException - op1 := op3(TRUE)
2669 : : */
2670 : :
2671 : 2684 : static void CodeSaveException (unsigned int des, unsigned int exceptionProcedure)
2672 : : {
2673 : 2684 : tree functValue;
2674 : 2684 : location_t location;
2675 : :
2676 : 2684 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
2677 : 2684 : m2statement_BuildParam (location, SymbolConversion_Mod2Gcc (M2Base_True));
2678 : 2684 : m2statement_BuildFunctionCallTree (location, SymbolConversion_Mod2Gcc (exceptionProcedure), SymbolConversion_Mod2Gcc (SymbolTable_GetType (exceptionProcedure)));
2679 : 2684 : functValue = m2statement_BuildFunctValue (location, SymbolConversion_Mod2Gcc (des));
2680 : 2684 : m2type_AddStatement (location, functValue);
2681 : 2684 : }
2682 : :
2683 : :
2684 : : /*
2685 : : CodeRestoreException - op1 := op3(op1)
2686 : : */
2687 : :
2688 : 2618 : static void CodeRestoreException (unsigned int des, unsigned int exceptionProcedure)
2689 : : {
2690 : 2618 : tree functValue;
2691 : 2618 : location_t location;
2692 : :
2693 : 2618 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
2694 : 2618 : m2statement_BuildParam (location, SymbolConversion_Mod2Gcc (des));
2695 : 2618 : m2statement_BuildFunctionCallTree (location, SymbolConversion_Mod2Gcc (exceptionProcedure), SymbolConversion_Mod2Gcc (SymbolTable_GetType (exceptionProcedure)));
2696 : 2618 : functValue = m2statement_BuildFunctValue (location, SymbolConversion_Mod2Gcc (des));
2697 : 2618 : m2type_AddStatement (location, functValue);
2698 : 2618 : }
2699 : :
2700 : :
2701 : : /*
2702 : : PushScope -
2703 : : */
2704 : :
2705 : 303033 : static void PushScope (unsigned int sym)
2706 : : {
2707 : 0 : M2StackWord_PushWord (ScopeStack, sym);
2708 : 0 : }
2709 : :
2710 : :
2711 : : /*
2712 : : PopScope -
2713 : : */
2714 : :
2715 : 65713 : static void PopScope (void)
2716 : : {
2717 : 65713 : unsigned int sym;
2718 : :
2719 : 65713 : sym = static_cast<unsigned int> (M2StackWord_PopWord (ScopeStack));
2720 : 65713 : M2Debug_Assert (sym != SymbolTable_NulSym);
2721 : 65713 : }
2722 : :
2723 : :
2724 : : /*
2725 : : GetCurrentScopeDescription - returns a description of the current scope.
2726 : : */
2727 : :
2728 : 525680 : static DynamicStrings_String GetCurrentScopeDescription (void)
2729 : : {
2730 : 525680 : unsigned int sym;
2731 : 525680 : DynamicStrings_String n;
2732 : :
2733 : 525680 : if (M2StackWord_IsEmptyWord (ScopeStack))
2734 : : {
2735 : 0 : M2Error_InternalError ((const char *) "not expecting scope stack to be empty", 37);
2736 : : }
2737 : : else
2738 : : {
2739 : 525680 : sym = static_cast<unsigned int> (M2StackWord_PeepWord (ScopeStack, 1));
2740 : 525680 : n = DynamicStrings_Mark (DynamicStrings_InitStringCharStar (NameKey_KeyToCharStar (SymbolTable_GetSymName (sym))));
2741 : 525680 : if (SymbolTable_IsDefImp (sym))
2742 : : {
2743 : 3899 : return FormatStrings_Sprintf1 (DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "implementation module %s", 24)), (const unsigned char *) &n, (sizeof (n)-1));
2744 : : }
2745 : 521781 : else if (SymbolTable_IsModule (sym))
2746 : : {
2747 : : /* avoid dangling else. */
2748 : 39114 : if (SymbolTable_IsInnerModule (sym))
2749 : : {
2750 : 60 : return FormatStrings_Sprintf1 (DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "inner module %s", 15)), (const unsigned char *) &n, (sizeof (n)-1));
2751 : : }
2752 : : else
2753 : : {
2754 : 39054 : return FormatStrings_Sprintf1 (DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "program module %s", 17)), (const unsigned char *) &n, (sizeof (n)-1));
2755 : : }
2756 : : }
2757 : 482667 : else if (SymbolTable_IsProcedure (sym))
2758 : : {
2759 : : /* avoid dangling else. */
2760 : 482667 : if (SymbolTable_IsProcedureNested (sym))
2761 : : {
2762 : 270 : return FormatStrings_Sprintf1 (DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "nested procedure %s", 19)), (const unsigned char *) &n, (sizeof (n)-1));
2763 : : }
2764 : : else
2765 : : {
2766 : 482397 : return FormatStrings_Sprintf1 (DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "procedure %s", 12)), (const unsigned char *) &n, (sizeof (n)-1));
2767 : : }
2768 : : }
2769 : : else
2770 : : {
2771 : : /* avoid dangling else. */
2772 : 0 : M2Error_InternalError ((const char *) "unexpected scope symbol", 23);
2773 : : }
2774 : : }
2775 : : ReturnException ("/home/worker/buildworker/tiber-lcov/build/gcc/m2/gm2-compiler/M2GenGCC.def", 20, 1);
2776 : : __builtin_unreachable ();
2777 : : }
2778 : :
2779 : :
2780 : : /*
2781 : : CodeRange - encode the range test associated with op3.
2782 : : */
2783 : :
2784 : 524871 : static void CodeRange (unsigned int rangeId)
2785 : : {
2786 : 524871 : M2Range_CodeRangeCheck (rangeId, GetCurrentScopeDescription ());
2787 : 524865 : }
2788 : :
2789 : :
2790 : : /*
2791 : : CodeError - encode the error test associated with op3.
2792 : : */
2793 : :
2794 : 809 : static void CodeError (unsigned int errorId)
2795 : : {
2796 : : /* would like to test whether this position is in the same basicblock
2797 : : as any known entry point. If so we could emit an error message.
2798 : : */
2799 : 809 : m2type_AddStatement (M2LexBuf_TokenToLocation (CurrentQuadToken), M2Range_CodeErrorCheck (errorId, GetCurrentScopeDescription (), static_cast<DynamicStrings_String> (NULL)));
2800 : 809 : }
2801 : :
2802 : :
2803 : : /*
2804 : : CodeModuleScope - ModuleScopeOp is a quadruple which has the following
2805 : : format:
2806 : :
2807 : : ModuleScopeOp _ _ moduleSym
2808 : :
2809 : : Its purpose is to reset the source file to another
2810 : : file, hence all line numbers emitted with the
2811 : : generated code will be relative to this source file.
2812 : : */
2813 : :
2814 : 62837 : static void CodeModuleScope (unsigned int moduleSym)
2815 : : {
2816 : 62837 : PushScope (moduleSym);
2817 : 62837 : }
2818 : :
2819 : :
2820 : : /*
2821 : : CodeStartModFile - StartModFileOp is a quadruple which has the following
2822 : : format:
2823 : :
2824 : : StartModFileOp _ _ moduleSym
2825 : :
2826 : : A new source file has been encountered therefore
2827 : : set LastLine to 1.
2828 : : Call pushGlobalScope.
2829 : : */
2830 : :
2831 : 62429 : static void CodeStartModFile (unsigned int moduleSym)
2832 : : {
2833 : 62429 : m2block_pushGlobalScope ();
2834 : 62429 : LastLine = 1;
2835 : 62429 : PushScope (moduleSym);
2836 : 62429 : }
2837 : :
2838 : :
2839 : : /*
2840 : : CodeStartDefFile - StartDefFileOp is a quadruple with the following
2841 : : format:
2842 : :
2843 : : StartDefFileOp _ _ moduleSym
2844 : :
2845 : : A new source file has been encountered therefore
2846 : : set LastLine to 1.
2847 : : Call pushGlobalScope.
2848 : : */
2849 : :
2850 : 112048 : static void CodeStartDefFile (unsigned int moduleSym)
2851 : : {
2852 : 112048 : m2block_pushGlobalScope ();
2853 : 112048 : PushScope (moduleSym);
2854 : 112048 : LastLine = 1;
2855 : 112048 : }
2856 : :
2857 : :
2858 : : /*
2859 : : CodeEndFile - pops the GlobalScope.
2860 : : */
2861 : :
2862 : 174471 : static void CodeEndFile (void)
2863 : : {
2864 : 174471 : m2block_popGlobalScope ();
2865 : 174471 : }
2866 : :
2867 : :
2868 : : /*
2869 : : CallInnerInit - produce a call to inner module initialization routine.
2870 : : */
2871 : :
2872 : 408 : static void CallInnerInit (unsigned int moduleSym)
2873 : : {
2874 : 408 : location_t location;
2875 : 408 : unsigned int ctor;
2876 : 408 : unsigned int init;
2877 : 408 : unsigned int fini;
2878 : 408 : unsigned int dep;
2879 : :
2880 : 408 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
2881 : 408 : SymbolTable_GetModuleCtors (moduleSym, &ctor, &init, &fini, &dep);
2882 : 408 : m2statement_BuildCallInner (location, SymbolConversion_Mod2Gcc (init));
2883 : 408 : }
2884 : :
2885 : :
2886 : : /*
2887 : : CallInnerFinally - produce a call to inner module finalization routine.
2888 : : */
2889 : :
2890 : 264 : static void CallInnerFinally (unsigned int moduleSym)
2891 : : {
2892 : 264 : location_t location;
2893 : 264 : unsigned int ctor;
2894 : 264 : unsigned int init;
2895 : 264 : unsigned int fini;
2896 : 264 : unsigned int dep;
2897 : :
2898 : 264 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
2899 : 264 : SymbolTable_GetModuleCtors (moduleSym, &ctor, &init, &fini, &dep);
2900 : 264 : m2statement_BuildCallInner (location, SymbolConversion_Mod2Gcc (fini));
2901 : 264 : }
2902 : :
2903 : :
2904 : : /*
2905 : : CodeInitStart - emits starting code before the main BEGIN END of the
2906 : : current module.
2907 : : */
2908 : :
2909 : 62837 : static void CodeInitStart (unsigned int moduleSym, bool CompilingMainModule)
2910 : : {
2911 : 62837 : location_t location;
2912 : 62837 : unsigned int ctor;
2913 : 62837 : unsigned int init;
2914 : 62837 : unsigned int fini;
2915 : 62837 : unsigned int dep;
2916 : :
2917 : 62837 : if (CompilingMainModule || M2Options_WholeProgram)
2918 : : {
2919 : : /* SetFileNameAndLineNo (string (FileName), op1) ; */
2920 : 14011 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
2921 : 14011 : SymbolTable_GetModuleCtors (moduleSym, &ctor, &init, &fini, &dep);
2922 : 14011 : m2statement_BuildStartFunctionCode (location, SymbolConversion_Mod2Gcc (init), IsExportedGcc (init), false);
2923 : 14011 : SymbolTable_ForeachInnerModuleDo (moduleSym, (SymbolKey_PerformOperation) {(SymbolKey_PerformOperation_t) CallInnerInit});
2924 : : }
2925 : 62837 : }
2926 : :
2927 : :
2928 : : /*
2929 : : CodeInitEnd - emits terminating code after the main BEGIN END of the
2930 : : current module.
2931 : : */
2932 : :
2933 : 62831 : static void CodeInitEnd (unsigned int moduleSym, bool CompilingMainModule)
2934 : : {
2935 : 62831 : location_t location;
2936 : 62831 : unsigned int ctor;
2937 : 62831 : unsigned int init;
2938 : 62831 : unsigned int fini;
2939 : 62831 : unsigned int dep;
2940 : :
2941 : 62831 : if (CompilingMainModule || M2Options_WholeProgram)
2942 : : {
2943 : : /*
2944 : : SetFileNameAndLineNo(string(FileName), op1) ;
2945 : : EmitLineNote(string(FileName), op1) ;
2946 : : */
2947 : 14005 : location = M2LexBuf_TokenToLocation (SymbolTable_GetDeclaredMod (moduleSym));
2948 : 14005 : SymbolTable_GetModuleCtors (moduleSym, &ctor, &init, &fini, &dep);
2949 : 14005 : m2block_finishFunctionDecl (location, SymbolConversion_Mod2Gcc (init));
2950 : 14005 : m2statement_BuildEndFunctionCode (location, SymbolConversion_Mod2Gcc (init), SymbolTable_IsModuleWithinProcedure (moduleSym));
2951 : : }
2952 : 62831 : }
2953 : :
2954 : :
2955 : : /*
2956 : : CodeFinallyStart - emits starting code before the main BEGIN END of the
2957 : : current module.
2958 : : */
2959 : :
2960 : 14005 : static void CodeFinallyStart (unsigned int moduleSym, bool CompilingMainModule)
2961 : : {
2962 : 14005 : location_t location;
2963 : 14005 : unsigned int ctor;
2964 : 14005 : unsigned int init;
2965 : 14005 : unsigned int fini;
2966 : 14005 : unsigned int dep;
2967 : :
2968 : 14005 : if (CompilingMainModule || M2Options_WholeProgram)
2969 : : {
2970 : : /* SetFileNameAndLineNo (string (FileName), op1) ; */
2971 : 14005 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
2972 : 14005 : SymbolTable_GetModuleCtors (moduleSym, &ctor, &init, &fini, &dep);
2973 : 14005 : m2statement_BuildStartFunctionCode (location, SymbolConversion_Mod2Gcc (fini), IsExportedGcc (fini), false);
2974 : 14005 : SymbolTable_ForeachInnerModuleDo (moduleSym, (SymbolKey_PerformOperation) {(SymbolKey_PerformOperation_t) CallInnerFinally});
2975 : : }
2976 : 14005 : }
2977 : :
2978 : :
2979 : : /*
2980 : : CodeFinallyEnd - emits terminating code after the main BEGIN END of the
2981 : : current module. It also creates the scaffold if the
2982 : : cflag was not present.
2983 : : */
2984 : :
2985 : 14005 : static void CodeFinallyEnd (unsigned int moduleSym, bool CompilingMainModule)
2986 : : {
2987 : 14005 : location_t location;
2988 : 14005 : unsigned int tokenpos;
2989 : 14005 : unsigned int ctor;
2990 : 14005 : unsigned int init;
2991 : 14005 : unsigned int fini;
2992 : 14005 : unsigned int dep;
2993 : :
2994 : 14005 : if (CompilingMainModule || M2Options_WholeProgram)
2995 : : {
2996 : : /*
2997 : : SetFileNameAndLineNo(string(FileName), op1) ;
2998 : : EmitLineNote(string(FileName), op1) ;
2999 : : */
3000 : 14005 : tokenpos = SymbolTable_GetDeclaredMod (moduleSym);
3001 : 14005 : location = M2LexBuf_TokenToLocation (tokenpos);
3002 : 14005 : SymbolTable_GetModuleCtors (moduleSym, &ctor, &init, &fini, &dep);
3003 : 14005 : m2block_finishFunctionDecl (location, SymbolConversion_Mod2Gcc (fini));
3004 : 14005 : m2statement_BuildEndFunctionCode (location, SymbolConversion_Mod2Gcc (fini), SymbolTable_IsModuleWithinProcedure (moduleSym));
3005 : : }
3006 : 14005 : }
3007 : :
3008 : :
3009 : : /*
3010 : : GetAddressOfUnbounded - returns the address of the unbounded array contents.
3011 : : */
3012 : :
3013 : 4308 : static tree GetAddressOfUnbounded (location_t location, unsigned int param)
3014 : : {
3015 : 4308 : unsigned int UnboundedType;
3016 : :
3017 : 4308 : UnboundedType = SymbolTable_GetType (param);
3018 : 4308 : M2Debug_Assert (SymbolTable_IsUnbounded (UnboundedType));
3019 : 4308 : return m2convert_BuildConvert (M2LexBuf_TokenToLocation (SymbolTable_GetDeclaredMod (param)), m2type_GetPointerType (), m2expr_BuildComponentRef (location, SymbolConversion_Mod2Gcc (param), SymbolConversion_Mod2Gcc (SymbolTable_GetUnboundedAddressOffset (UnboundedType))), false);
3020 : : /* static analysis guarentees a RETURN statement will be used before here. */
3021 : : __builtin_unreachable ();
3022 : : }
3023 : :
3024 : :
3025 : : /*
3026 : : GetSizeOfHighFromUnbounded - returns a Tree containing the value of
3027 : : param.HIGH * sizeof(unboundedType).
3028 : : The number of legal bytes this array
3029 : : occupies.
3030 : : */
3031 : :
3032 : 4308 : static tree GetSizeOfHighFromUnbounded (unsigned int tokenno, unsigned int param)
3033 : : {
3034 : 4308 : tree t;
3035 : 4308 : unsigned int UnboundedType;
3036 : 4308 : unsigned int ArrayType;
3037 : 4308 : unsigned int i;
3038 : 4308 : unsigned int n;
3039 : 4308 : location_t location;
3040 : :
3041 : 4308 : location = M2LexBuf_TokenToLocation (tokenno);
3042 : 4308 : UnboundedType = SymbolTable_GetType (param);
3043 : 4308 : M2Debug_Assert (SymbolTable_IsUnbounded (UnboundedType));
3044 : 4308 : ArrayType = SymbolTable_GetType (UnboundedType);
3045 : 4308 : i = 1;
3046 : 4308 : n = SymbolTable_GetDimension (UnboundedType);
3047 : 4308 : t = m2expr_GetCardinalOne (location);
3048 : 13014 : while (i <= n)
3049 : : {
3050 : 4398 : t = m2expr_BuildMult (location, m2expr_BuildAdd (location, M2GenGCC_GetHighFromUnbounded (location, i, param), m2expr_GetCardinalOne (location), false), t, false);
3051 : : /* remember we must add one as HIGH(a) means we can legally reference a[HIGH(a)]. */
3052 : 4398 : i += 1;
3053 : : }
3054 : 4308 : return m2convert_BuildConvert (location, m2type_GetCardinalType (), m2expr_BuildMult (location, t, m2convert_BuildConvert (location, m2type_GetCardinalType (), FindSize (tokenno, ArrayType), false), false), false);
3055 : : /* static analysis guarentees a RETURN statement will be used before here. */
3056 : : __builtin_unreachable ();
3057 : : }
3058 : :
3059 : :
3060 : : /*
3061 : : MaybeDebugBuiltinAlloca - if DebugBuiltins is set
3062 : : then call Builtins.alloca_trace
3063 : : else call Builtins.alloca.
3064 : : */
3065 : :
3066 : 4308 : static tree MaybeDebugBuiltinAlloca (location_t location, unsigned int tok, tree high)
3067 : : {
3068 : 4308 : tree call;
3069 : 4308 : tree memptr;
3070 : 4308 : tree func;
3071 : :
3072 : 4308 : if (M2Options_DebugBuiltins)
3073 : : {
3074 : 0 : func = SymbolConversion_Mod2Gcc (SymbolTable_FromModuleGetSym (tok, NameKey_MakeKey ((const char *) "alloca_trace", 12), M2Batch_MakeDefinitionSource (tok, NameKey_MakeKey ((const char *) "Builtins", 8))));
3075 : 0 : call = m2builtins_BuiltInAlloca (location, high);
3076 : 0 : m2statement_SetLastFunction (call);
3077 : 0 : memptr = m2statement_BuildFunctValue (location, call);
3078 : 0 : call = m2statement_BuildCall2 (location, func, m2type_GetPointerType (), memptr, high);
3079 : : }
3080 : : else
3081 : : {
3082 : 4308 : call = m2builtins_BuiltInAlloca (location, high);
3083 : : }
3084 : 4308 : m2statement_SetLastFunction (call);
3085 : 4308 : return m2statement_BuildFunctValue (location, call);
3086 : : /* static analysis guarentees a RETURN statement will be used before here. */
3087 : : __builtin_unreachable ();
3088 : : }
3089 : :
3090 : :
3091 : : /*
3092 : : MaybeDebugBuiltinMemcpy - if DebugBuiltins is set
3093 : : then call memcpy
3094 : : else call Builtins.memcpy.
3095 : : */
3096 : :
3097 : 5750 : static tree MaybeDebugBuiltinMemcpy (location_t location, tree src, tree dest, tree nbytes)
3098 : : {
3099 : 5750 : tree call;
3100 : 5750 : tree func;
3101 : :
3102 : 5750 : if (M2Options_DebugBuiltins)
3103 : : {
3104 : 0 : func = SymbolConversion_Mod2Gcc (Memcpy);
3105 : 0 : call = m2statement_BuildCall3 (location, func, m2type_GetPointerType (), src, dest, nbytes);
3106 : : }
3107 : : else
3108 : : {
3109 : 5750 : call = m2builtins_BuiltinMemCopy (location, src, dest, nbytes);
3110 : : }
3111 : 5750 : m2statement_SetLastFunction (call);
3112 : 5750 : return m2statement_BuildFunctValue (location, call);
3113 : : /* static analysis guarentees a RETURN statement will be used before here. */
3114 : : __builtin_unreachable ();
3115 : : }
3116 : :
3117 : :
3118 : : /*
3119 : : MakeCopyUse - make a copy of the unbounded array and alter all references
3120 : : from the old unbounded array to the new unbounded array.
3121 : : The parameter, param, contains a RECORD
3122 : : ArrayAddress: ADDRESS ;
3123 : : ArrayHigh : CARDINAL ;
3124 : : END
3125 : : we simply declare a new array of size, ArrayHigh
3126 : : and set ArrayAddress to the address of the copy.
3127 : :
3128 : : Remember ArrayHigh == sizeof(Array)-sizeof(typeof(array))
3129 : : so we add 1 for the size and add 1 for a possible <nul>
3130 : : */
3131 : :
3132 : 4308 : static void MakeCopyUse (unsigned int tokenno, unsigned int param)
3133 : : {
3134 : 4308 : location_t location;
3135 : 4308 : unsigned int UnboundedType;
3136 : 4308 : tree Addr;
3137 : 4308 : tree High;
3138 : 4308 : tree NewArray;
3139 : :
3140 : 4308 : location = M2LexBuf_TokenToLocation (tokenno);
3141 : 4308 : UnboundedType = SymbolTable_GetType (param);
3142 : 4308 : M2Debug_Assert (SymbolTable_IsUnbounded (UnboundedType));
3143 : 4308 : High = GetSizeOfHighFromUnbounded (tokenno, param);
3144 : 4308 : Addr = GetAddressOfUnbounded (location, param);
3145 : 4308 : NewArray = MaybeDebugBuiltinAlloca (location, tokenno, High);
3146 : 4308 : NewArray = MaybeDebugBuiltinMemcpy (location, NewArray, Addr, High);
3147 : : /* now assign param.Addr := ADR(NewArray) */
3148 : 4308 : m2statement_BuildAssignmentStatement (location, m2expr_BuildComponentRef (location, SymbolConversion_Mod2Gcc (param), SymbolConversion_Mod2Gcc (SymbolTable_GetUnboundedAddressOffset (UnboundedType))), NewArray);
3149 : 4308 : }
3150 : :
3151 : :
3152 : : /*
3153 : : GetParamAddress - returns the address of parameter, param.
3154 : : */
3155 : :
3156 : 0 : static tree GetParamAddress (location_t location, unsigned int proc, unsigned int param)
3157 : : {
3158 : 0 : unsigned int sym;
3159 : 0 : unsigned int type;
3160 : :
3161 : 0 : if (SymbolTable_IsParameter (param))
3162 : : {
3163 : 0 : type = SymbolTable_GetType (param);
3164 : 0 : sym = SymbolTable_GetLocalSym (proc, SymbolTable_GetSymName (param));
3165 : 0 : if (SymbolTable_IsUnbounded (type))
3166 : : {
3167 : 0 : return GetAddressOfUnbounded (location, sym);
3168 : : }
3169 : : else
3170 : : {
3171 : 0 : M2Debug_Assert ((SymbolTable_GetMode (sym)) == SymbolTable_LeftValue);
3172 : 0 : return SymbolConversion_Mod2Gcc (sym);
3173 : : }
3174 : : }
3175 : : else
3176 : : {
3177 : 0 : M2Debug_Assert (SymbolTable_IsVar (param));
3178 : 0 : M2Debug_Assert ((SymbolTable_GetMode (param)) == SymbolTable_LeftValue);
3179 : 0 : return SymbolConversion_Mod2Gcc (param);
3180 : : }
3181 : : /* static analysis guarentees a RETURN statement will be used before here. */
3182 : : __builtin_unreachable ();
3183 : : }
3184 : :
3185 : :
3186 : : /*
3187 : : IsUnboundedWrittenTo - returns TRUE if the unbounded parameter
3188 : : might be written to, or if -funbounded-by-reference
3189 : : was _not_ specified.
3190 : : */
3191 : :
3192 : 4308 : static bool IsUnboundedWrittenTo (unsigned int proc, unsigned int param)
3193 : : {
3194 : 4308 : DynamicStrings_String f;
3195 : 4308 : unsigned int l;
3196 : 4308 : unsigned int sym;
3197 : 4308 : NameKey_Name n1;
3198 : 4308 : NameKey_Name n2;
3199 : :
3200 : 4308 : sym = SymbolTable_GetLocalSym (proc, SymbolTable_GetSymName (param));
3201 : 4308 : if (sym == SymbolTable_NulSym)
3202 : : {
3203 : 0 : M2Error_InternalError ((const char *) "should find symbol in table", 27);
3204 : : }
3205 : : else
3206 : : {
3207 : 4308 : if (M2Options_UnboundedByReference)
3208 : : {
3209 : 0 : if ((! (SymbolTable_GetVarWritten (sym))) && M2Options_VerboseUnbounded)
3210 : : {
3211 : 0 : n1 = SymbolTable_GetSymName (sym);
3212 : 0 : n2 = SymbolTable_GetSymName (proc);
3213 : 0 : f = M2LexBuf_FindFileNameFromToken (SymbolTable_GetDeclaredMod (sym), 0);
3214 : 0 : l = M2LexBuf_TokenToLineNo (SymbolTable_GetDeclaredMod (sym), 0);
3215 : 0 : M2Printf_printf4 ((const char *) "%s:%d:non VAR unbounded parameter %a in procedure %a does not need to be copied\\n", 81, (const unsigned char *) &f, (sizeof (f)-1), (const unsigned char *) &l, (sizeof (l)-1), (const unsigned char *) &n1, (sizeof (n1)-1), (const unsigned char *) &n2, (sizeof (n2)-1));
3216 : : }
3217 : 0 : return SymbolTable_GetVarWritten (sym);
3218 : : }
3219 : : else
3220 : : {
3221 : : return true;
3222 : : }
3223 : : }
3224 : : ReturnException ("/home/worker/buildworker/tiber-lcov/build/gcc/m2/gm2-compiler/M2GenGCC.def", 20, 1);
3225 : : __builtin_unreachable ();
3226 : : }
3227 : :
3228 : :
3229 : : /*
3230 : : GetParamSize - returns the size in bytes of, param.
3231 : : */
3232 : :
3233 : 0 : static tree GetParamSize (unsigned int tokenno, unsigned int param)
3234 : : {
3235 : 0 : M2Debug_Assert ((SymbolTable_IsVar (param)) || (SymbolTable_IsParameter (param)));
3236 : 0 : if (SymbolTable_IsUnbounded (param))
3237 : : {
3238 : 0 : return GetSizeOfHighFromUnbounded (tokenno, param);
3239 : : }
3240 : : else
3241 : : {
3242 : 0 : return m2expr_BuildSize (tokenno, SymbolConversion_Mod2Gcc (SymbolTable_GetType (param)), false);
3243 : : }
3244 : : /* static analysis guarentees a RETURN statement will be used before here. */
3245 : : __builtin_unreachable ();
3246 : : }
3247 : :
3248 : :
3249 : : /*
3250 : : DoIsIntersection - jumps to, tLabel, if the ranges i1..i2 j1..j2 overlap
3251 : : else jump to, fLabel.
3252 : : */
3253 : :
3254 : 0 : static void DoIsIntersection (unsigned int tokenno, tree ta, tree tb, tree tc, tree td, DynamicStrings_String tLabel, DynamicStrings_String fLabel)
3255 : : {
3256 : 0 : location_t location;
3257 : :
3258 : 0 : location = M2LexBuf_TokenToLocation (tokenno);
3259 : : /*
3260 : : if (ta>td) OR (tb<tc)
3261 : : then
3262 : : goto fLabel
3263 : : else
3264 : : goto tLabel
3265 : : fi
3266 : : */
3267 : 0 : m2statement_DoJump (location, m2expr_BuildGreaterThan (location, ta, td), NULL, reinterpret_cast <char * > (DynamicStrings_string (fLabel)));
3268 : 0 : m2statement_DoJump (location, m2expr_BuildLessThan (location, tb, tc), NULL, reinterpret_cast <char * > (DynamicStrings_string (fLabel)));
3269 : 0 : m2statement_BuildGoto (location, reinterpret_cast <char * > (DynamicStrings_string (tLabel)));
3270 : 0 : if (CascadedDebugging)
3271 : : {
3272 : : M2Printf_printf1 ((const char *) "label used %s\\n", 15, (const unsigned char *) &tLabel, (sizeof (tLabel)-1));
3273 : : M2Printf_printf1 ((const char *) "label used %s\\n", 15, (const unsigned char *) &fLabel, (sizeof (fLabel)-1));
3274 : : }
3275 : 0 : }
3276 : :
3277 : :
3278 : : /*
3279 : : BuildCascadedIfThenElsif - mustCheck contains a list of variables which
3280 : : must be checked against the address of (proc, param, i).
3281 : : If the address matches we make a copy of the unbounded
3282 : : parameter (proc, param) and quit further checking.
3283 : : */
3284 : :
3285 : 0 : static void BuildCascadedIfThenElsif (unsigned int tokenno, Lists_List mustCheck, unsigned int proc, unsigned int param)
3286 : : {
3287 : 0 : tree ta;
3288 : 0 : tree tb;
3289 : 0 : tree tc;
3290 : 0 : tree td;
3291 : 0 : unsigned int n;
3292 : 0 : unsigned int j;
3293 : 0 : DynamicStrings_String tLabel;
3294 : 0 : DynamicStrings_String fLabel;
3295 : 0 : DynamicStrings_String nLabel;
3296 : 0 : location_t location;
3297 : :
3298 : 0 : location = M2LexBuf_TokenToLocation (tokenno);
3299 : 0 : n = Lists_NoOfItemsInList (mustCheck);
3300 : : /* want a sequence of if then elsif statements */
3301 : 0 : if (n > 0)
3302 : : {
3303 : 0 : UnboundedLabelNo += 1;
3304 : 0 : j = 1;
3305 : 0 : ta = GetAddressOfUnbounded (location, param);
3306 : 0 : tb = m2convert_BuildConvert (M2LexBuf_TokenToLocation (tokenno), m2type_GetPointerType (), m2expr_BuildAddAddress (location, ta, GetSizeOfHighFromUnbounded (tokenno, param)), false);
3307 : 0 : while (j <= n)
3308 : : {
3309 : 0 : if (j > 1)
3310 : : {
3311 : 0 : nLabel = CreateLabelProcedureN (proc, (const char *) "n", 1, UnboundedLabelNo, j);
3312 : 0 : if (CascadedDebugging)
3313 : : {
3314 : : M2Printf_printf1 ((const char *) "label declared %s\\n", 19, (const unsigned char *) &nLabel, (sizeof (nLabel)-1));
3315 : : }
3316 : 0 : m2statement_DeclareLabel (location, reinterpret_cast <char * > (DynamicStrings_string (nLabel)));
3317 : : }
3318 : 0 : tc = GetParamAddress (location, proc, Lists_GetItemFromList (mustCheck, j));
3319 : 0 : td = m2convert_BuildConvert (M2LexBuf_TokenToLocation (tokenno), m2type_GetPointerType (), m2expr_BuildAddAddress (location, tc, GetParamSize (tokenno, param)), false);
3320 : 0 : tLabel = CreateLabelProcedureN (proc, (const char *) "t", 1, UnboundedLabelNo, j+1);
3321 : 0 : fLabel = CreateLabelProcedureN (proc, (const char *) "f", 1, UnboundedLabelNo, j+1);
3322 : 0 : DoIsIntersection (tokenno, ta, tb, tc, td, tLabel, fLabel);
3323 : 0 : if (CascadedDebugging)
3324 : : {
3325 : : M2Printf_printf1 ((const char *) "label declared %s\\n", 19, (const unsigned char *) &tLabel, (sizeof (tLabel)-1));
3326 : : }
3327 : 0 : m2statement_DeclareLabel (location, reinterpret_cast <char * > (DynamicStrings_string (tLabel)));
3328 : 0 : MakeCopyUse (tokenno, param);
3329 : 0 : if (j < n)
3330 : : {
3331 : 0 : nLabel = CreateLabelProcedureN (proc, (const char *) "n", 1, UnboundedLabelNo, n+1);
3332 : 0 : m2statement_BuildGoto (location, reinterpret_cast <char * > (DynamicStrings_string (nLabel)));
3333 : 0 : if (CascadedDebugging)
3334 : : {
3335 : : M2Printf_printf1 ((const char *) "goto %s\\n", 9, (const unsigned char *) &nLabel, (sizeof (nLabel)-1));
3336 : : }
3337 : : }
3338 : 0 : if (CascadedDebugging)
3339 : : {
3340 : : M2Printf_printf1 ((const char *) "label declared %s\\n", 19, (const unsigned char *) &fLabel, (sizeof (fLabel)-1));
3341 : : }
3342 : 0 : m2statement_DeclareLabel (location, reinterpret_cast <char * > (DynamicStrings_string (fLabel)));
3343 : 0 : j += 1;
3344 : : }
3345 : : }
3346 : : /*
3347 : : nLabel := CreateLabelProcedureN(proc, "fin", UnboundedLabelNo, n+1) ;
3348 : : IF CascadedDebugging
3349 : : THEN
3350 : : printf1('label declared %s
3351 : : ', nLabel)
3352 : : END ;
3353 : : DeclareLabel(location, string(nLabel))
3354 : : */
3355 : 0 : }
3356 : :
3357 : :
3358 : : /*
3359 : : CheckUnboundedNonVarParameter - if non var unbounded parameter is written to
3360 : : then
3361 : : make a copy of the contents of this parameter
3362 : : and use the copy
3363 : : else if param
3364 : : is type compatible with any parameter, symv
3365 : : and at runtime its address matches symv
3366 : : then
3367 : : make a copy of the contents of this parameter
3368 : : and use the copy
3369 : : fi
3370 : : */
3371 : :
3372 : 4308 : static void CheckUnboundedNonVarParameter (unsigned int tokenno, Lists_List trashed, unsigned int proc, unsigned int param)
3373 : : {
3374 : 4308 : Lists_List mustCheck;
3375 : 4308 : unsigned int paramTrashed;
3376 : 4308 : unsigned int n;
3377 : 4308 : unsigned int j;
3378 : 4308 : DynamicStrings_String f;
3379 : 4308 : unsigned int l;
3380 : 4308 : NameKey_Name n1;
3381 : 4308 : NameKey_Name n2;
3382 : :
3383 : 4308 : if (IsUnboundedWrittenTo (proc, param))
3384 : : {
3385 : 4308 : MakeCopyUse (tokenno, param);
3386 : : }
3387 : : else
3388 : : {
3389 : 0 : Lists_InitList (&mustCheck);
3390 : 0 : n = Lists_NoOfItemsInList (trashed);
3391 : 0 : j = 1;
3392 : 0 : while (j <= n)
3393 : : {
3394 : 0 : paramTrashed = static_cast<unsigned int> (Lists_GetItemFromList (trashed, j));
3395 : 0 : if (M2Base_IsAssignmentCompatible (SymbolTable_GetLowestType (param), SymbolTable_GetLowestType (paramTrashed)))
3396 : : {
3397 : : /* we must check whether this unbounded parameter has the same
3398 : : address as the trashed parameter */
3399 : 0 : if (M2Options_VerboseUnbounded)
3400 : : {
3401 : 0 : n1 = SymbolTable_GetSymName (paramTrashed);
3402 : 0 : n2 = SymbolTable_GetSymName (proc);
3403 : 0 : f = M2LexBuf_FindFileNameFromToken (SymbolTable_GetDeclaredMod (paramTrashed), 0);
3404 : 0 : l = M2LexBuf_TokenToLineNo (SymbolTable_GetDeclaredMod (paramTrashed), 0);
3405 : 0 : M2Printf_printf4 ((const char *) "%s:%d:must check at runtime the address of parameter, %a, in procedure, %a, whose contents will be trashed\\n", 108, (const unsigned char *) &f, (sizeof (f)-1), (const unsigned char *) &l, (sizeof (l)-1), (const unsigned char *) &n1, (sizeof (n1)-1), (const unsigned char *) &n2, (sizeof (n2)-1));
3406 : 0 : n1 = SymbolTable_GetSymName (param);
3407 : 0 : n2 = SymbolTable_GetSymName (paramTrashed);
3408 : 0 : M2Printf_printf4 ((const char *) "%s:%d:against address of parameter, %a, possibly resulting in a copy of parameter, %a\\n", 87, (const unsigned char *) &f, (sizeof (f)-1), (const unsigned char *) &l, (sizeof (l)-1), (const unsigned char *) &n1, (sizeof (n1)-1), (const unsigned char *) &n2, (sizeof (n2)-1));
3409 : : }
3410 : 0 : Lists_PutItemIntoList (mustCheck, paramTrashed);
3411 : : }
3412 : 0 : j += 1;
3413 : : }
3414 : : /* now we build a sequence of if then { elsif then } end to check addresses */
3415 : 0 : BuildCascadedIfThenElsif (tokenno, mustCheck, proc, param);
3416 : 0 : Lists_KillList (&mustCheck);
3417 : : }
3418 : 4308 : }
3419 : :
3420 : :
3421 : : /*
3422 : : IsParameterWritten - returns TRUE if a parameter, sym, is written to.
3423 : : */
3424 : :
3425 : 72532 : static bool IsParameterWritten (unsigned int proc, unsigned int sym)
3426 : : {
3427 : 72532 : if (SymbolTable_IsParameter (sym))
3428 : : {
3429 : 72532 : sym = SymbolTable_GetLocalSym (proc, SymbolTable_GetSymName (sym));
3430 : : }
3431 : 72532 : if (SymbolTable_IsVar (sym))
3432 : : {
3433 : : /* unbounded arrays will appear as vars */
3434 : 72532 : return SymbolTable_GetVarWritten (sym);
3435 : : }
3436 : 0 : M2Error_InternalError ((const char *) "expecting IsVar to return TRUE", 30);
3437 : : ReturnException ("/home/worker/buildworker/tiber-lcov/build/gcc/m2/gm2-compiler/M2GenGCC.def", 20, 1);
3438 : : __builtin_unreachable ();
3439 : : }
3440 : :
3441 : :
3442 : : /*
3443 : : SaveNonVarUnboundedParameters - for each var parameter, symv, do
3444 : : not just unbounded var parameters, but _all_
3445 : : parameters
3446 : : if symv is written to
3447 : : then
3448 : : add symv to a compile list
3449 : : fi
3450 : : done
3451 : :
3452 : : for each parameter of procedure, symu, do
3453 : : if non var unbounded parameter is written to
3454 : : then
3455 : : make a copy of the contents of this parameter
3456 : : and use the copy
3457 : : else if
3458 : : symu is type compatible with any parameter, symv
3459 : : and at runtime its address matches symv
3460 : : then
3461 : : make a copy of the contents of this parameter
3462 : : and use the copy
3463 : : fi
3464 : : done
3465 : : */
3466 : :
3467 : 65719 : static void SaveNonVarUnboundedParameters (unsigned int tokenno, unsigned int proc)
3468 : : {
3469 : 65719 : unsigned int i;
3470 : 65719 : unsigned int p;
3471 : 65719 : Lists_List trashed;
3472 : 65719 : DynamicStrings_String f;
3473 : 65719 : unsigned int sym;
3474 : 65719 : unsigned int l;
3475 : 65719 : NameKey_Name n1;
3476 : 65719 : NameKey_Name n2;
3477 : :
3478 : 65719 : Lists_InitList (&trashed);
3479 : 65719 : i = 1;
3480 : 65719 : p = SymbolTable_NoOfParamAny (proc);
3481 : 203970 : while (i <= p)
3482 : : {
3483 : 72532 : sym = SymbolTable_GetNthParamAny (proc, i);
3484 : 72532 : if (IsParameterWritten (proc, sym))
3485 : : {
3486 : 5790 : if (M2Options_VerboseUnbounded)
3487 : : {
3488 : 0 : n1 = SymbolTable_GetSymName (sym);
3489 : 0 : n2 = SymbolTable_GetSymName (proc);
3490 : 0 : f = M2LexBuf_FindFileNameFromToken (SymbolTable_GetDeclaredMod (sym), 0);
3491 : 0 : l = M2LexBuf_TokenToLineNo (SymbolTable_GetDeclaredMod (sym), 0);
3492 : 0 : M2Printf_printf4 ((const char *) "%s:%d:parameter, %a, in procedure, %a, is trashed\\n", 51, (const unsigned char *) &f, (sizeof (f)-1), (const unsigned char *) &l, (sizeof (l)-1), (const unsigned char *) &n1, (sizeof (n1)-1), (const unsigned char *) &n2, (sizeof (n2)-1));
3493 : : }
3494 : 5790 : Lists_PutItemIntoList (trashed, sym);
3495 : : }
3496 : 72532 : i += 1;
3497 : : }
3498 : : /* now see whether we need to copy any unbounded array parameters */
3499 : 65719 : i = 1;
3500 : 65719 : p = SymbolTable_NoOfParamAny (proc);
3501 : 203970 : while (i <= p)
3502 : : {
3503 : 72532 : if ((SymbolTable_IsUnboundedParamAny (proc, i)) && (! (SymbolTable_IsVarParamAny (proc, i))))
3504 : : {
3505 : 4308 : CheckUnboundedNonVarParameter (tokenno, trashed, proc, SymbolTable_GetNth (proc, i));
3506 : : }
3507 : 72532 : i += 1;
3508 : : }
3509 : 65719 : Lists_KillList (&trashed);
3510 : 65719 : }
3511 : :
3512 : :
3513 : : /*
3514 : : AutoInitVariable -
3515 : : */
3516 : :
3517 : 60 : static void AutoInitVariable (location_t location, unsigned int sym)
3518 : : {
3519 : 60 : unsigned int type;
3520 : :
3521 : 60 : if (((! (SymbolTable_IsParameter (sym))) && (SymbolTable_IsVar (sym))) && (! (SymbolTable_IsTemporary (sym))))
3522 : : {
3523 : : /* PrintSym (sym) ; */
3524 : 6 : type = SymbolTable_SkipType (SymbolTable_GetType (sym));
3525 : : /* the type SYSTEM.ADDRESS is a pointer type. */
3526 : 6 : if (SymbolTable_IsPointer (type))
3527 : : {
3528 : 6 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (sym), m2convert_BuildConvert (location, SymbolConversion_Mod2Gcc (SymbolTable_GetType (sym)), m2expr_GetPointerZero (location), true));
3529 : : }
3530 : : }
3531 : 60 : }
3532 : :
3533 : :
3534 : : /*
3535 : : AutoInitialize - scope will be a procedure, module or defimp. All pointer
3536 : : variables are assigned to NIL.
3537 : : */
3538 : :
3539 : 65719 : static void AutoInitialize (location_t location, unsigned int scope)
3540 : : {
3541 : 65719 : unsigned int i;
3542 : 65719 : unsigned int n;
3543 : :
3544 : 65719 : if (M2Options_AutoInit)
3545 : : {
3546 : 30 : n = SymbolTable_NoOfVariables (scope);
3547 : 30 : i = 1;
3548 : 30 : if (SymbolTable_IsProcedure (scope))
3549 : : {
3550 : : /* the parameters are stored as local variables. */
3551 : 30 : i += SymbolTable_NoOfParamAny (scope);
3552 : : }
3553 : 90 : while (i <= n)
3554 : : {
3555 : 60 : AutoInitVariable (location, SymbolTable_GetNth (scope, i));
3556 : 60 : i += 1;
3557 : : }
3558 : : }
3559 : 65719 : }
3560 : :
3561 : :
3562 : : /*
3563 : : CodeNewLocalVar - Builds a new frame on the stack to contain the procedure
3564 : : local variables.
3565 : : */
3566 : :
3567 : 65719 : static void CodeNewLocalVar (unsigned int tokenno, unsigned int CurrentProcedure)
3568 : : {
3569 : 65719 : unsigned int begin;
3570 : 65719 : unsigned int end;
3571 : :
3572 : : /* callee saves non var unbounded parameter contents */
3573 : 65719 : SaveNonVarUnboundedParameters (tokenno, CurrentProcedure);
3574 : 65719 : m2statement_BuildPushFunctionContext ();
3575 : 65719 : SymbolTable_GetProcedureBeginEnd (CurrentProcedure, &begin, &end);
3576 : 65719 : CurrentQuadToken = begin;
3577 : 65719 : m2statement_SetBeginLocation (M2LexBuf_TokenToLocation (begin));
3578 : 65719 : AutoInitialize (M2LexBuf_TokenToLocation (begin), CurrentProcedure);
3579 : 65719 : SymbolTable_ForeachProcedureDo (CurrentProcedure, (SymbolKey_PerformOperation) {(SymbolKey_PerformOperation_t) M2Code_CodeBlock});
3580 : 65719 : SymbolTable_ForeachInnerModuleDo (CurrentProcedure, (SymbolKey_PerformOperation) {(SymbolKey_PerformOperation_t) M2Code_CodeBlock});
3581 : 65719 : m2statement_BuildPopFunctionContext ();
3582 : 65719 : SymbolTable_ForeachInnerModuleDo (CurrentProcedure, (SymbolKey_PerformOperation) {(SymbolKey_PerformOperation_t) CallInnerInit});
3583 : 65719 : }
3584 : :
3585 : :
3586 : : /*
3587 : : CodeKillLocalVar - removes local variables and returns to previous scope.
3588 : : */
3589 : :
3590 : 65713 : static void CodeKillLocalVar (unsigned int CurrentProcedure)
3591 : : {
3592 : 65713 : unsigned int begin;
3593 : 65713 : unsigned int end;
3594 : 65713 : tree proc;
3595 : :
3596 : 65713 : SymbolTable_GetProcedureBeginEnd (CurrentProcedure, &begin, &end);
3597 : 65713 : CurrentQuadToken = end;
3598 : 65713 : proc = NULL;
3599 : 65713 : if (SymbolTable_IsCtor (CurrentProcedure))
3600 : : {
3601 : 13543 : proc = m2decl_DeclareModuleCtor (SymbolConversion_Mod2Gcc (CurrentProcedure));
3602 : : }
3603 : 65713 : m2statement_BuildEndFunctionCode (M2LexBuf_TokenToLocation (end), SymbolConversion_Mod2Gcc (CurrentProcedure), M2GCCDeclare_IsProcedureGccNested (CurrentProcedure));
3604 : 65713 : if ((SymbolTable_IsCtor (CurrentProcedure)) && (proc != NULL))
3605 : : {
3606 : 13543 : m2decl_BuildModuleCtor (proc);
3607 : : }
3608 : 65713 : M2GCCDeclare_PoisonSymbols (CurrentProcedure);
3609 : 65713 : m2block_removeStmtNote ();
3610 : 65713 : PopScope ();
3611 : 65713 : }
3612 : :
3613 : :
3614 : : /*
3615 : : CodeProcedureScope -
3616 : : */
3617 : :
3618 : 65719 : static void CodeProcedureScope (unsigned int CurrentProcedure)
3619 : : {
3620 : 65719 : unsigned int begin;
3621 : 65719 : unsigned int end;
3622 : :
3623 : 65719 : m2block_removeStmtNote ();
3624 : 65719 : SymbolTable_GetProcedureBeginEnd (CurrentProcedure, &begin, &end);
3625 : 65719 : m2statement_BuildStartFunctionCode (M2LexBuf_TokenToLocation (begin), SymbolConversion_Mod2Gcc (CurrentProcedure), IsExportedGcc (CurrentProcedure), SymbolTable_IsProcedureInline (CurrentProcedure));
3626 : 65719 : M2GCCDeclare_StartDeclareScope (CurrentProcedure);
3627 : 65719 : PushScope (CurrentProcedure);
3628 : 65719 : }
3629 : :
3630 : :
3631 : : /*
3632 : : CodeReturnValue - places the operand into the return value space
3633 : : allocated by the function call.
3634 : : */
3635 : :
3636 : 18364 : static void CodeReturnValue (unsigned int quad)
3637 : : {
3638 : 18364 : M2Quads_QuadOperator op;
3639 : 18364 : bool constExpr;
3640 : 18364 : bool overflowChecking;
3641 : 18364 : unsigned int expr;
3642 : 18364 : unsigned int none;
3643 : 18364 : unsigned int procedure;
3644 : 18364 : unsigned int combinedpos;
3645 : 18364 : unsigned int returnpos;
3646 : 18364 : unsigned int exprpos;
3647 : 18364 : unsigned int nonepos;
3648 : 18364 : unsigned int procpos;
3649 : 18364 : tree value;
3650 : 18364 : tree length;
3651 : 18364 : location_t location;
3652 : :
3653 : 18364 : M2Quads_GetQuadOtok (quad, &returnpos, &op, &expr, &none, &procedure, &overflowChecking, &constExpr, &exprpos, &nonepos, &procpos);
3654 : 18364 : combinedpos = M2LexBuf_MakeVirtualTok (returnpos, returnpos, exprpos);
3655 : 18364 : location = M2LexBuf_TokenToLocation (combinedpos);
3656 : 18364 : M2GCCDeclare_TryDeclareConstant (exprpos, expr); /* checks to see whether it is a constant and declares it */
3657 : 18364 : M2GCCDeclare_TryDeclareConstructor (exprpos, expr); /* checks to see whether it is a constant and declares it */
3658 : 18364 : if ((SymbolTable_IsConstString (expr)) && ((SymbolTable_SkipTypeAndSubrange (SymbolTable_GetType (procedure))) != M2Base_Char))
3659 : : {
3660 : 24 : if (! (M2GenGCC_PrepareCopyString (returnpos, &length, &value, expr, SymbolTable_GetType (procedure))))
3661 : : {
3662 : 0 : M2MetaError_MetaErrorT3 (M2LexBuf_MakeVirtualTok (returnpos, returnpos, exprpos), (const char *) "string constant {%1Ea} is too large to be returned from procedure {%2a} via the {%3d} {%3a}", 91, expr, procedure, SymbolTable_GetType (procedure));
3663 : : }
3664 : 24 : value = m2type_BuildArrayStringConstructor (location, SymbolConversion_Mod2Gcc (SymbolTable_GetType (procedure)), value, length);
3665 : : }
3666 : : else
3667 : : {
3668 : 18340 : value = SymbolConversion_Mod2Gcc (expr);
3669 : : }
3670 : 18364 : m2statement_BuildReturnValueCode (location, SymbolConversion_Mod2Gcc (procedure), value);
3671 : 18364 : }
3672 : :
3673 : :
3674 : : /*
3675 : : CodeCall - determines whether the procedure call is a direct call
3676 : : or an indirect procedure call.
3677 : : */
3678 : :
3679 : 172947 : static void CodeCall (unsigned int tokenno, unsigned int procedure)
3680 : : {
3681 : 172947 : tree callTree;
3682 : 172947 : location_t location;
3683 : :
3684 : 172947 : if (SymbolTable_IsProcedure (procedure))
3685 : : {
3686 : 172227 : M2GCCDeclare_DeclareParameters (procedure);
3687 : 172227 : callTree = CodeDirectCall (tokenno, procedure);
3688 : : }
3689 : 720 : else if (SymbolTable_IsProcType (SymbolTable_SkipType (SymbolTable_GetType (procedure))))
3690 : : {
3691 : : /* avoid dangling else. */
3692 : 720 : M2GCCDeclare_DeclareParameters (SymbolTable_SkipType (SymbolTable_GetType (procedure)));
3693 : 720 : callTree = CodeIndirectCall (tokenno, procedure);
3694 : 720 : procedure = SymbolTable_SkipType (SymbolTable_GetType (procedure));
3695 : : }
3696 : : else
3697 : : {
3698 : : /* avoid dangling else. */
3699 : 0 : M2Error_InternalError ((const char *) "expecting Procedure or ProcType", 31);
3700 : : }
3701 : 172947 : if ((SymbolTable_GetType (procedure)) == SymbolTable_NulSym)
3702 : : {
3703 : 128439 : location = M2LexBuf_TokenToLocation (tokenno);
3704 : 128439 : m2type_AddStatement (location, callTree);
3705 : : }
3706 : : /* leave tree alone - as it will be picked up when processing FunctValue */
3707 : 172947 : }
3708 : :
3709 : :
3710 : : /*
3711 : : UseBuiltin - returns a Tree containing the builtin function
3712 : : and parameters. It should only be called if
3713 : : CanUseBuiltin or IsProcedureBuiltinAvailable returns TRUE.
3714 : : */
3715 : :
3716 : 924 : static tree UseBuiltin (unsigned int tokenno, unsigned int Sym)
3717 : : {
3718 : 924 : if (m2builtins_BuiltinExists (reinterpret_cast <char * > (NameKey_KeyToCharStar (SymbolTable_GetProcedureBuiltin (Sym)))))
3719 : : {
3720 : 924 : return m2builtins_BuildBuiltinTree (M2LexBuf_TokenToLocation (tokenno), reinterpret_cast <char * > (NameKey_KeyToCharStar (SymbolTable_GetProcedureBuiltin (Sym))));
3721 : : }
3722 : : else
3723 : : {
3724 : 0 : return m2builtins_BuildBuiltinTree (M2LexBuf_TokenToLocation (tokenno), reinterpret_cast <char * > (NameKey_KeyToCharStar (SymbolTable_GetSymName (Sym))));
3725 : : }
3726 : : /* static analysis guarentees a RETURN statement will be used before here. */
3727 : : __builtin_unreachable ();
3728 : : }
3729 : :
3730 : :
3731 : : /*
3732 : : CodeDirectCall - calls a function/procedure.
3733 : : */
3734 : :
3735 : 172227 : static tree CodeDirectCall (unsigned int tokenno, unsigned int procedure)
3736 : : {
3737 : 172227 : location_t location;
3738 : 172227 : tree call;
3739 : :
3740 : 172227 : location = M2LexBuf_TokenToLocation (tokenno);
3741 : 172227 : if (SymbolTable_IsProcedureBuiltinAvailable (procedure))
3742 : : {
3743 : : /* avoid dangling else. */
3744 : 918 : call = UseBuiltin (tokenno, procedure);
3745 : 918 : if (call != NULL)
3746 : : {
3747 : 918 : call = m2statement_BuildBuiltinCallTree (call);
3748 : : }
3749 : : }
3750 : : else
3751 : : {
3752 : : call = NULL;
3753 : : }
3754 : 918 : if (call == NULL)
3755 : : {
3756 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
3757 : 171309 : if ((SymbolTable_GetType (procedure)) == SymbolTable_NulSym)
3758 : : {
3759 : 127771 : call = m2statement_BuildProcedureCallTree (location, SymbolConversion_Mod2Gcc (procedure), NULL);
3760 : : }
3761 : : else
3762 : : {
3763 : 43538 : call = m2statement_BuildProcedureCallTree (location, SymbolConversion_Mod2Gcc (procedure), SymbolConversion_Mod2Gcc (SymbolTable_GetType (procedure)));
3764 : : }
3765 : : }
3766 : 172227 : if ((SymbolTable_GetType (procedure)) == SymbolTable_NulSym)
3767 : : {
3768 : 127795 : m2statement_SetLastFunction (NULL);
3769 : : }
3770 : : else
3771 : : {
3772 : 44432 : m2statement_SetLastFunction (call);
3773 : : }
3774 : 172227 : return call;
3775 : : /* static analysis guarentees a RETURN statement will be used before here. */
3776 : : __builtin_unreachable ();
3777 : : }
3778 : :
3779 : :
3780 : : /*
3781 : : CodeIndirectCall - calls a function/procedure indirectly.
3782 : : */
3783 : :
3784 : 720 : static tree CodeIndirectCall (unsigned int tokenno, unsigned int ProcVar)
3785 : : {
3786 : 720 : tree ReturnType;
3787 : 720 : unsigned int proc;
3788 : 720 : location_t location;
3789 : :
3790 : 720 : location = M2LexBuf_TokenToLocation (tokenno);
3791 : 720 : proc = SymbolTable_SkipType (SymbolTable_GetType (ProcVar));
3792 : 720 : if ((SymbolTable_GetType (proc)) == SymbolTable_NulSym)
3793 : : {
3794 : : ReturnType = (tree) (NULL);
3795 : : }
3796 : : else
3797 : : {
3798 : 76 : ReturnType = (tree) (SymbolConversion_Mod2Gcc (SymbolTable_GetType (proc)));
3799 : : }
3800 : : /* now we dereference the lvalue if necessary */
3801 : 720 : if ((SymbolTable_GetMode (ProcVar)) == SymbolTable_LeftValue)
3802 : : {
3803 : 68 : return m2statement_BuildIndirectProcedureCallTree (location, m2expr_BuildIndirect (location, SymbolConversion_Mod2Gcc (ProcVar), SymbolConversion_Mod2Gcc (proc)), ReturnType);
3804 : : }
3805 : : else
3806 : : {
3807 : 652 : return m2statement_BuildIndirectProcedureCallTree (location, SymbolConversion_Mod2Gcc (ProcVar), ReturnType);
3808 : : }
3809 : : /* static analysis guarentees a RETURN statement will be used before here. */
3810 : : __builtin_unreachable ();
3811 : : }
3812 : :
3813 : :
3814 : : /*
3815 : : ConvertTo - convert gcc tree, t, (which currently represents Modula-2 op3) into
3816 : : a symbol of, type.
3817 : : */
3818 : :
3819 : 25298 : static tree ConvertTo (tree t, unsigned int type, unsigned int op3)
3820 : : {
3821 : 25298 : if ((SymbolTable_SkipType (type)) != (SymbolTable_SkipType (SymbolTable_GetType (op3))))
3822 : : {
3823 : 16918 : if ((SymbolTable_IsConst (op3)) && (! (SymbolTable_IsConstString (op3))))
3824 : : {
3825 : 1544 : SymbolTable_PushValue (op3);
3826 : 1544 : return m2convert_BuildConvert (M2LexBuf_TokenToLocation (SymbolTable_GetDeclaredMod (op3)), SymbolConversion_Mod2Gcc (type), t, false);
3827 : : }
3828 : : }
3829 : : return t;
3830 : : /* static analysis guarentees a RETURN statement will be used before here. */
3831 : : __builtin_unreachable ();
3832 : : }
3833 : :
3834 : :
3835 : : /*
3836 : : ConvertRHS - convert (t, rhs) into, type. (t, rhs) refer to the
3837 : : same entity t is a GCC Tree and, rhs, is a Modula-2
3838 : : symbol. It checks for char and strings
3839 : : first and then the remaining types.
3840 : : */
3841 : :
3842 : 25298 : static tree ConvertRHS (tree t, unsigned int type, unsigned int rhs)
3843 : : {
3844 : 25298 : t = M2GenGCC_StringToChar (SymbolConversion_Mod2Gcc (rhs), type, rhs);
3845 : 25298 : return ConvertTo (t, type, rhs);
3846 : : /* static analysis guarentees a RETURN statement will be used before here. */
3847 : : __builtin_unreachable ();
3848 : : }
3849 : :
3850 : :
3851 : : /*
3852 : : IsCoerceableParameter - returns TRUE if symbol, sym, is a
3853 : : coerceable parameter.
3854 : : */
3855 : :
3856 : 328880 : static bool IsCoerceableParameter (unsigned int sym)
3857 : : {
3858 : 328880 : return ((((((SymbolTable_IsSet (sym)) || (((M2Base_IsOrdinalType (sym)) && (sym != M2Base_Boolean)) && (! (SymbolTable_IsEnumeration (sym))))) || (M2Base_IsComplexType (sym))) || (M2Base_IsRealType (sym))) || (M2System_IsComplexN (sym))) || (M2System_IsRealN (sym))) || (M2System_IsSetN (sym));
3859 : : /* static analysis guarentees a RETURN statement will be used before here. */
3860 : : __builtin_unreachable ();
3861 : : }
3862 : :
3863 : :
3864 : : /*
3865 : : IsConstProcedure - returns TRUE if, p, is a const procedure.
3866 : : */
3867 : :
3868 : 580 : static bool IsConstProcedure (unsigned int p)
3869 : : {
3870 : 580 : return ((SymbolTable_IsConst (p)) && ((SymbolTable_GetType (p)) != SymbolTable_NulSym)) && (SymbolTable_IsProcType (SymbolTable_GetType (p)));
3871 : : /* static analysis guarentees a RETURN statement will be used before here. */
3872 : : __builtin_unreachable ();
3873 : : }
3874 : :
3875 : :
3876 : : /*
3877 : : IsConstant - returns TRUE if symbol, p, is either a const or procedure.
3878 : : */
3879 : :
3880 : 693394 : static bool IsConstant (unsigned int p)
3881 : : {
3882 : 693394 : return (SymbolTable_IsConst (p)) || (SymbolTable_IsProcedure (p));
3883 : : /* static analysis guarentees a RETURN statement will be used before here. */
3884 : : __builtin_unreachable ();
3885 : : }
3886 : :
3887 : :
3888 : : /*
3889 : : CheckConvertCoerceParameter -
3890 : : */
3891 : :
3892 : 450491 : static tree CheckConvertCoerceParameter (unsigned int tokenno, unsigned int op1, unsigned int op2, unsigned int op3)
3893 : : {
3894 : 450491 : unsigned int OperandType;
3895 : 450491 : unsigned int ParamType;
3896 : 450491 : location_t location;
3897 : :
3898 : 450491 : location = M2LexBuf_TokenToLocation (tokenno);
3899 : 450491 : if ((SymbolTable_GetNthParamAny (op2, op1)) == SymbolTable_NulSym)
3900 : : {
3901 : : /* We reach here if the argument is being passed to a C vararg function. */
3902 : 5660 : return SymbolConversion_Mod2Gcc (op3);
3903 : : }
3904 : : else
3905 : : {
3906 : 444831 : OperandType = SymbolTable_SkipType (SymbolTable_GetType (op3));
3907 : 444831 : ParamType = SymbolTable_SkipType (SymbolTable_GetType (SymbolTable_GetNthParamAny (op2, op1)));
3908 : : }
3909 : 444831 : if (SymbolTable_IsProcType (ParamType))
3910 : : {
3911 : 42443 : if (((SymbolTable_IsProcedure (op3)) || (IsConstProcedure (op3))) || (OperandType == ParamType))
3912 : : {
3913 : 42379 : return SymbolConversion_Mod2Gcc (op3);
3914 : : }
3915 : : else
3916 : : {
3917 : 64 : return m2convert_BuildConvert (location, SymbolConversion_Mod2Gcc (ParamType), SymbolConversion_Mod2Gcc (op3), false);
3918 : : }
3919 : : }
3920 : 402388 : else if (((M2Base_IsRealType (OperandType)) && (M2Base_IsRealType (ParamType))) && (ParamType != OperandType))
3921 : : {
3922 : : /* avoid dangling else. */
3923 : : /* SHORTREAL, LONGREAL and REAL conversion during parameter passing */
3924 : 1962 : return m2convert_BuildConvert (location, SymbolConversion_Mod2Gcc (ParamType), SymbolConversion_Mod2Gcc (op3), false);
3925 : : }
3926 : 400426 : else if (((OperandType != SymbolTable_NulSym) && (SymbolTable_IsSet (OperandType))) && (SymbolTable_IsConst (op3)))
3927 : : {
3928 : : /* avoid dangling else. */
3929 : 500 : return m2decl_DeclareKnownConstant (location, SymbolConversion_Mod2Gcc (ParamType), SymbolConversion_Mod2Gcc (op3));
3930 : : }
3931 : 399926 : else if ((SymbolTable_IsConst (op3)) && ((M2Base_IsOrdinalType (ParamType)) || (M2System_IsSystemType (ParamType))))
3932 : : {
3933 : : /* avoid dangling else. */
3934 : 71022 : return m2convert_BuildConvert (location, SymbolConversion_Mod2Gcc (ParamType), M2GenGCC_StringToChar (SymbolConversion_Mod2Gcc (op3), ParamType, op3), false);
3935 : : }
3936 : 328904 : else if ((SymbolTable_IsConstString (op3)) || (((OperandType != SymbolTable_NulSym) && (IsCoerceableParameter (OperandType))) && (OperandType != ParamType)))
3937 : : {
3938 : : /* avoid dangling else. */
3939 : 3940 : return m2convert_BuildConvert (location, SymbolConversion_Mod2Gcc (ParamType), SymbolConversion_Mod2Gcc (op3), false);
3940 : : }
3941 : : else
3942 : : {
3943 : : /* avoid dangling else. */
3944 : 324964 : return SymbolConversion_Mod2Gcc (op3);
3945 : : }
3946 : : /* static analysis guarentees a RETURN statement will be used before here. */
3947 : : __builtin_unreachable ();
3948 : : }
3949 : :
3950 : :
3951 : : /*
3952 : : CheckConstant - checks to see whether we should declare the constant.
3953 : : */
3954 : :
3955 : 6 : static tree CheckConstant (unsigned int tokenno, unsigned int des, unsigned int expr)
3956 : : {
3957 : 6 : location_t location;
3958 : :
3959 : 6 : location = M2LexBuf_TokenToLocation (tokenno);
3960 : 6 : if (SymbolTable_IsProcedure (expr))
3961 : : {
3962 : 0 : return SymbolConversion_Mod2Gcc (expr);
3963 : : }
3964 : : else
3965 : : {
3966 : 6 : return m2decl_DeclareKnownConstant (location, SymbolConversion_Mod2Gcc (SymbolTable_GetType (des)), SymbolConversion_Mod2Gcc (expr));
3967 : : }
3968 : : /* static analysis guarentees a RETURN statement will be used before here. */
3969 : : __builtin_unreachable ();
3970 : : }
3971 : :
3972 : :
3973 : : /*
3974 : : CodeMakeAdr - code the function MAKEADR.
3975 : : */
3976 : :
3977 : 0 : static void CodeMakeAdr (unsigned int q, unsigned int op1, unsigned int op2, unsigned int op3)
3978 : : {
3979 : 0 : unsigned int r;
3980 : 0 : unsigned int n;
3981 : 0 : unsigned int type;
3982 : 0 : M2Quads_QuadOperator op;
3983 : 0 : tree bits;
3984 : 0 : tree max;
3985 : 0 : tree tmp;
3986 : 0 : tree res;
3987 : 0 : tree val;
3988 : 0 : location_t location;
3989 : :
3990 : 0 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
3991 : 0 : n = q;
3992 : 0 : do {
3993 : 0 : if (op1 > 0)
3994 : : {
3995 : 0 : M2GCCDeclare_DeclareConstant (CurrentQuadToken, op3);
3996 : : }
3997 : 0 : n = M2Quads_GetNextQuad (n);
3998 : 0 : M2Quads_GetQuad (n, &op, &r, &op2, &op3);
3999 : 0 : } while (! (op == M2Quads_FunctValueOp));
4000 : 0 : n = q;
4001 : 0 : M2Quads_GetQuad (n, &op, &op1, &op2, &op3);
4002 : 0 : res = SymbolConversion_Mod2Gcc (r);
4003 : 0 : max = m2expr_GetSizeOfInBits (SymbolConversion_Mod2Gcc (M2System_Address));
4004 : 0 : bits = m2expr_GetIntegerZero (location);
4005 : 0 : val = m2expr_GetPointerZero (location);
4006 : 0 : do {
4007 : 0 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
4008 : 0 : if ((op == M2Quads_ParamOp) && (op1 > 0))
4009 : : {
4010 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
4011 : 0 : if ((SymbolTable_GetType (op3)) == SymbolTable_NulSym)
4012 : : {
4013 : 0 : M2Error_WriteFormat0 ((const char *) "must supply typed constants to MAKEADR", 38);
4014 : : }
4015 : : else
4016 : : {
4017 : 0 : type = SymbolTable_GetType (op3);
4018 : 0 : tmp = m2convert_BuildConvert (location, m2type_GetPointerType (), SymbolConversion_Mod2Gcc (op3), false);
4019 : 0 : if ((m2expr_CompareTrees (bits, m2expr_GetIntegerZero (location))) > 0)
4020 : : {
4021 : 0 : tmp = m2expr_BuildLSL (location, tmp, bits, false);
4022 : : }
4023 : 0 : bits = m2expr_BuildAdd (location, bits, m2expr_GetSizeOfInBits (SymbolConversion_Mod2Gcc (type)), false);
4024 : 0 : val = m2expr_BuildLogicalOrAddress (location, val, tmp, false);
4025 : : }
4026 : : }
4027 : 0 : M2Quads_SubQuad (n);
4028 : 0 : n = M2Quads_GetNextQuad (n);
4029 : 0 : M2Quads_GetQuad (n, &op, &op1, &op2, &op3);
4030 : 0 : } while (! (op == M2Quads_FunctValueOp));
4031 : 0 : if ((m2expr_CompareTrees (bits, max)) > 0)
4032 : : {
4033 : 0 : M2MetaError_MetaErrorT0 (CurrentQuadToken, (const char *) "total number of bits specified as parameters to {%kMAKEADR} exceeds address width", 81);
4034 : : }
4035 : 0 : M2Quads_SubQuad (n);
4036 : 0 : m2statement_BuildAssignmentStatement (location, res, val);
4037 : 0 : }
4038 : :
4039 : :
4040 : : /*
4041 : : CodeBuiltinFunction - attempts to inline a function. Currently it only
4042 : : inlines the SYSTEM function MAKEADR.
4043 : : */
4044 : :
4045 : 44508 : static void CodeBuiltinFunction (unsigned int q, unsigned int nth, unsigned int func, unsigned int parameter)
4046 : : {
4047 : 44508 : if (nth == 0)
4048 : : {
4049 : 44508 : InitBuiltinSyms (M2LexBuf_BuiltinTokenNo);
4050 : 44508 : if (func == M2System_MakeAdr)
4051 : : {
4052 : 0 : CodeMakeAdr (q, nth, func, parameter);
4053 : : }
4054 : : }
4055 : 44508 : }
4056 : :
4057 : :
4058 : : /*
4059 : : FoldMakeAdr - attempts to fold the function MAKEADR.
4060 : : */
4061 : :
4062 : 12 : static void FoldMakeAdr (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int q, unsigned int op1, unsigned int op2, unsigned int op3)
4063 : : {
4064 : 12 : bool resolved;
4065 : 12 : unsigned int r;
4066 : 12 : unsigned int n;
4067 : 12 : M2Quads_QuadOperator op;
4068 : 12 : unsigned int type;
4069 : 12 : tree bits;
4070 : 12 : tree max;
4071 : 12 : tree tmp;
4072 : 12 : tree val;
4073 : 12 : location_t location;
4074 : :
4075 : 12 : location = M2LexBuf_TokenToLocation (tokenno);
4076 : 12 : resolved = true;
4077 : 12 : n = q;
4078 : 12 : r = op1;
4079 : 24 : do {
4080 : 24 : if (r > 0)
4081 : : {
4082 : 12 : M2GCCDeclare_TryDeclareConstant (tokenno, op3);
4083 : 12 : if (! (SymbolConversion_GccKnowsAbout (op3)))
4084 : : {
4085 : 24 : resolved = false;
4086 : : }
4087 : : }
4088 : 24 : n = M2Quads_GetNextQuad (n);
4089 : 24 : M2Quads_GetQuad (n, &op, &r, &op2, &op3);
4090 : 24 : } while (! (op == M2Quads_FunctValueOp));
4091 : 12 : if (resolved && (SymbolTable_IsConst (r)))
4092 : : {
4093 : 12 : n = q;
4094 : 12 : M2Quads_GetQuad (n, &op, &op1, &op2, &op3);
4095 : 12 : max = m2expr_GetSizeOfInBits (SymbolConversion_Mod2Gcc (M2System_Address));
4096 : 12 : bits = m2expr_GetIntegerZero (location);
4097 : 12 : val = m2expr_GetPointerZero (location);
4098 : 24 : do {
4099 : 24 : location = M2LexBuf_TokenToLocation (tokenno);
4100 : 24 : if ((op == M2Quads_ParamOp) && (op1 > 0))
4101 : : {
4102 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
4103 : 12 : if ((SymbolTable_GetType (op3)) == SymbolTable_NulSym)
4104 : : {
4105 : 0 : M2MetaError_MetaErrorT0 (tokenno, (const char *) "constants passed to {%kMAKEADR} must be typed", 45);
4106 : : }
4107 : : else
4108 : : {
4109 : 12 : type = SymbolTable_GetType (op3);
4110 : 12 : tmp = m2convert_BuildConvert (location, m2type_GetPointerType (), SymbolConversion_Mod2Gcc (op3), false);
4111 : 12 : if ((m2expr_CompareTrees (bits, m2expr_GetIntegerZero (location))) > 0)
4112 : : {
4113 : 0 : tmp = m2expr_BuildLSL (location, tmp, bits, false);
4114 : : }
4115 : 12 : bits = m2expr_BuildAdd (location, bits, m2expr_GetSizeOfInBits (SymbolConversion_Mod2Gcc (type)), false);
4116 : 12 : val = m2expr_BuildLogicalOrAddress (location, val, tmp, false);
4117 : : }
4118 : : }
4119 : 24 : M2Quads_SubQuad (n);
4120 : 24 : n = M2Quads_GetNextQuad (n);
4121 : 24 : M2Quads_GetQuad (n, &op, &op1, &op2, &op3);
4122 : 24 : } while (! (op == M2Quads_FunctValueOp));
4123 : 12 : if ((m2expr_CompareTrees (bits, max)) > 0)
4124 : : {
4125 : 0 : M2MetaError_MetaErrorT0 (tokenno, (const char *) "total number of bits specified as parameters to {%kMAKEADR} exceeds address width", 81);
4126 : : }
4127 : 12 : SymbolTable_PutConst (r, M2System_Address);
4128 : 12 : SymbolConversion_AddModGcc (r, m2decl_DeclareKnownConstant (location, SymbolConversion_Mod2Gcc (M2System_Address), val));
4129 : 12 : (*p.proc) (r);
4130 : 12 : NoChange = false;
4131 : 12 : M2Quads_SubQuad (n);
4132 : : }
4133 : 12 : }
4134 : :
4135 : :
4136 : : /*
4137 : : doParam - builds the parameter, op3, which is to be passed to
4138 : : procedure, op2. The number of the parameter is op1.
4139 : : */
4140 : :
4141 : 450491 : static void doParam (unsigned int quad, unsigned int paramtok, unsigned int op1, unsigned int op2, unsigned int op3)
4142 : : {
4143 : 450491 : location_t location;
4144 : :
4145 : 450491 : location = M2LexBuf_TokenToLocation (paramtok);
4146 : 450491 : M2GCCDeclare_DeclareConstant (paramtok, op3);
4147 : 450491 : M2GCCDeclare_DeclareConstructor (paramtok, quad, op3);
4148 : 450491 : m2statement_BuildParam (location, CheckConvertCoerceParameter (paramtok, op1, op2, op3));
4149 : 450491 : }
4150 : :
4151 : :
4152 : : /*
4153 : : FoldBuiltin - attempts to fold the gcc builtin function.
4154 : : */
4155 : :
4156 : 14832 : static void FoldBuiltin (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int q)
4157 : : {
4158 : 14832 : bool resolved;
4159 : 14832 : unsigned int procedure;
4160 : 14832 : unsigned int r;
4161 : 14832 : unsigned int n;
4162 : 14832 : unsigned int op1;
4163 : 14832 : unsigned int op2;
4164 : 14832 : unsigned int op3;
4165 : 14832 : M2Quads_QuadOperator op;
4166 : 14832 : tree val;
4167 : 14832 : tree call;
4168 : 14832 : location_t location;
4169 : :
4170 : 14832 : M2Quads_GetQuad (q, &op, &op1, &op2, &op3);
4171 : 14832 : resolved = true;
4172 : 14832 : procedure = SymbolTable_NulSym;
4173 : 14832 : n = q;
4174 : 14832 : r = op1;
4175 : 46540 : do {
4176 : 46540 : if (r > 0)
4177 : : {
4178 : 16876 : M2GCCDeclare_TryDeclareConstant (tokenno, op3);
4179 : 16876 : if (! (SymbolConversion_GccKnowsAbout (op3)))
4180 : : {
4181 : 46540 : resolved = false;
4182 : : }
4183 : : }
4184 : 46540 : if ((op == M2Quads_CallOp) && (! (SymbolTable_IsProcedure (op3))))
4185 : : {
4186 : : /* cannot fold an indirect procedure function call */
4187 : : resolved = false;
4188 : : }
4189 : 46540 : n = M2Quads_GetNextQuad (n);
4190 : 46540 : M2Quads_GetQuad (n, &op, &r, &op2, &op3);
4191 : 46540 : } while (! (op == M2Quads_FunctValueOp));
4192 : 14832 : if (resolved && (SymbolTable_IsConst (r)))
4193 : : {
4194 : 6 : n = q;
4195 : 6 : M2Quads_GetQuad (n, &op, &op1, &op2, &op3);
4196 : 18 : do {
4197 : 18 : if ((op == M2Quads_ParamOp) && (op1 > 0))
4198 : : {
4199 : 6 : doParam (tokenno, n, op1, op2, op3);
4200 : : }
4201 : 12 : else if (op == M2Quads_CallOp)
4202 : : {
4203 : : /* avoid dangling else. */
4204 : 6 : procedure = op3;
4205 : : }
4206 : 18 : M2Quads_SubQuad (n);
4207 : 18 : n = M2Quads_GetNextQuad (n);
4208 : 18 : M2Quads_GetQuad (n, &op, &op1, &op2, &op3);
4209 : 18 : } while (! (op == M2Quads_FunctValueOp));
4210 : 6 : if (SymbolTable_IsProcedureBuiltinAvailable (procedure))
4211 : : {
4212 : 6 : location = M2LexBuf_TokenToLocation (tokenno);
4213 : 6 : call = UseBuiltin (tokenno, procedure);
4214 : 6 : val = m2statement_BuildFunctValue (location, call);
4215 : 6 : val = m2expr_FoldAndStrip (val);
4216 : 6 : SymbolTable_PutConst (r, SymbolTable_GetType (procedure));
4217 : 6 : SymbolConversion_AddModGcc (r, m2decl_DeclareKnownConstant (location, SymbolConversion_Mod2Gcc (SymbolTable_GetType (procedure)), val));
4218 : 6 : (*p.proc) (r);
4219 : 6 : m2statement_SetLastFunction (NULL);
4220 : : }
4221 : : else
4222 : : {
4223 : 0 : M2MetaError_MetaErrorT1 (tokenno, (const char *) "gcc builtin procedure {%1Ead} cannot be used in a constant expression", 69, procedure);
4224 : : }
4225 : 6 : NoChange = false;
4226 : 6 : M2Quads_SubQuad (n);
4227 : : }
4228 : 14832 : }
4229 : :
4230 : :
4231 : : /*
4232 : : FoldBuiltinFunction - attempts to inline a function. Currently it only
4233 : : inlines the SYSTEM function MAKEADR.
4234 : : */
4235 : :
4236 : 5847110 : static void FoldBuiltinFunction (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int q, unsigned int op1, unsigned int op2, unsigned int op3)
4237 : : {
4238 : 5847110 : if (op1 == 0)
4239 : : {
4240 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
4241 : : /* must be a function as op1 is the return parameter */
4242 : 699296 : if (op3 == M2System_MakeAdr)
4243 : : {
4244 : 12 : FoldMakeAdr (tokenno, p, q, op1, op2, op3);
4245 : : }
4246 : 699284 : else if ((SymbolTable_IsProcedure (op3)) && (SymbolTable_IsProcedureBuiltinAvailable (op3)))
4247 : : {
4248 : : /* avoid dangling else. */
4249 : 14832 : FoldBuiltin (tokenno, p, q);
4250 : : }
4251 : : }
4252 : 5847110 : }
4253 : :
4254 : :
4255 : : /*
4256 : : CodeParam - builds a parameter list.
4257 : : Note that we can ignore ModeOfAddr as any lvalue will
4258 : : have been created in a preceeding quadruple.
4259 : : */
4260 : :
4261 : 495029 : static void CodeParam (unsigned int quad)
4262 : : {
4263 : 495029 : unsigned int nopos;
4264 : 495029 : unsigned int procedure;
4265 : 495029 : unsigned int parameter;
4266 : 495029 : unsigned int parampos;
4267 : 495029 : unsigned int nth;
4268 : 495029 : bool compatible;
4269 : 495029 : bool constExpr;
4270 : 495029 : bool overflow;
4271 : 495029 : M2Quads_QuadOperator op;
4272 : :
4273 : 495029 : M2Quads_GetQuadOtok (quad, ¶mpos, &op, &nth, &procedure, ¶meter, &overflow, &constExpr, &nopos, &nopos, &nopos);
4274 : 495029 : compatible = true;
4275 : 495029 : if (nth == 0)
4276 : : {
4277 : 44508 : CodeBuiltinFunction (quad, nth, procedure, parameter);
4278 : : }
4279 : : else
4280 : : {
4281 : 450521 : if (M2Options_StrictTypeChecking)
4282 : : {
4283 : 450521 : if (nth <= (SymbolTable_NoOfParamAny (procedure)))
4284 : : {
4285 : 444861 : compatible = M2Check_ParameterTypeCompatible (parampos, (const char *) "parameter incompatibility when attempting to pass actual parameter {%2ad} to a {%kVAR} formal parameter {%3Ead} during call to procedure {%1ad}", 143, procedure, SymbolTable_GetNthParamAny (procedure, nth), parameter, nth, SymbolTable_IsVarParamAny (procedure, nth));
4286 : : }
4287 : : }
4288 : 450521 : if (((nth <= (SymbolTable_NoOfParamAny (procedure))) && (SymbolTable_IsVarParamAny (procedure, nth))) && (SymbolTable_IsConst (parameter)))
4289 : : {
4290 : 0 : M2MetaError_MetaErrorT1 (parampos, (const char *) "cannot pass a constant {%1Ead} as a VAR parameter", 49, parameter);
4291 : : }
4292 : 450521 : else if (SymbolTable_IsAModula2Type (parameter))
4293 : : {
4294 : : /* avoid dangling else. */
4295 : 0 : M2MetaError_MetaErrorT2 (parampos, (const char *) "cannot pass a type {%1Ead} as a parameter to procedure {%2ad}", 61, parameter, procedure);
4296 : : }
4297 : 450521 : else if (compatible)
4298 : : {
4299 : : /* avoid dangling else. */
4300 : 450485 : doParam (quad, parampos, nth, procedure, parameter);
4301 : : }
4302 : : }
4303 : 495029 : }
4304 : :
4305 : :
4306 : : /*
4307 : : Replace - replace the entry for sym in the double entry bookkeeping with sym/tree.
4308 : : */
4309 : :
4310 : 0 : static void Replace (unsigned int sym, tree gcc)
4311 : : {
4312 : 0 : if (SymbolConversion_GccKnowsAbout (sym))
4313 : : {
4314 : 0 : SymbolConversion_RemoveMod2Gcc (sym);
4315 : : }
4316 : 0 : SymbolConversion_AddModGcc (sym, gcc);
4317 : 0 : }
4318 : :
4319 : :
4320 : : /*
4321 : : CodeFunctValue - retrieves the function return value and assigns it
4322 : : into a variable.
4323 : : */
4324 : :
4325 : 44508 : static void CodeFunctValue (location_t location, unsigned int op1)
4326 : : {
4327 : 44508 : tree call;
4328 : 44508 : tree value;
4329 : :
4330 : : /*
4331 : : operator : FunctValueOp
4332 : : op1 : The Returned Variable
4333 : : op3 : The Function Returning this Variable
4334 : : */
4335 : 44508 : if (M2SSA_EnableSSA && (SymbolTable_IsVariableSSA (op1)))
4336 : : {
4337 : : call = m2statement_GetLastFunction ();
4338 : : m2statement_SetLastFunction (NULL);
4339 : : Replace (op1, call);
4340 : : }
4341 : : else
4342 : : {
4343 : 44508 : value = m2statement_BuildFunctValue (location, SymbolConversion_Mod2Gcc (op1));
4344 : : /* AddStatement (location, CheckCleanup (location, op3, value, call)) */
4345 : 44508 : m2type_AddStatement (location, value);
4346 : : }
4347 : 44508 : }
4348 : :
4349 : :
4350 : : /*
4351 : : FoldStringLength -
4352 : : */
4353 : :
4354 : 72 : static void FoldStringLength (unsigned int quad, M2GCCDeclare_WalkAction p)
4355 : : {
4356 : 72 : M2Quads_QuadOperator op;
4357 : 72 : unsigned int des;
4358 : 72 : unsigned int none;
4359 : 72 : unsigned int expr;
4360 : 72 : unsigned int stroppos;
4361 : 72 : unsigned int despos;
4362 : 72 : unsigned int nonepos;
4363 : 72 : unsigned int exprpos;
4364 : 72 : bool constExpr;
4365 : 72 : bool overflowChecking;
4366 : 72 : location_t location;
4367 : :
4368 : 72 : M2Quads_GetQuadOtok (quad, &stroppos, &op, &des, &none, &expr, &overflowChecking, &constExpr, &despos, &nonepos, &exprpos);
4369 : 72 : if ((IsConstStr (expr)) && (IsConstStrKnown (expr)))
4370 : : {
4371 : 66 : location = M2LexBuf_TokenToLocation (stroppos);
4372 : 66 : M2ALU_PushCard (SymbolTable_GetStringLength (exprpos, expr));
4373 : 66 : SymbolConversion_AddModGcc (des, m2convert_BuildConvert (location, SymbolConversion_Mod2Gcc (SymbolTable_GetType (des)), M2ALU_PopIntegerTree (), false));
4374 : 132 : RemoveQuad (p, des, quad);
4375 : : }
4376 : 72 : }
4377 : :
4378 : :
4379 : : /*
4380 : : FoldStringConvertM2nul - attempt to assign the des with the string contents from expr.
4381 : : It also marks the des as a m2 string which must be nul terminated.
4382 : : The front end uses double book keeping and it is easier to have
4383 : : different m2 string symbols each of which map onto a slightly different
4384 : : gcc string tree.
4385 : : */
4386 : :
4387 : 30094 : static void FoldStringConvertM2nul (unsigned int quad, M2GCCDeclare_WalkAction p)
4388 : : {
4389 : 30094 : M2Quads_QuadOperator op;
4390 : 30094 : unsigned int des;
4391 : 30094 : unsigned int none;
4392 : 30094 : unsigned int expr;
4393 : 30094 : unsigned int stroppos;
4394 : 30094 : unsigned int despos;
4395 : 30094 : unsigned int nonepos;
4396 : 30094 : unsigned int exprpos;
4397 : 30094 : DynamicStrings_String s;
4398 : 30094 : bool constExpr;
4399 : 30094 : bool overflowChecking;
4400 : :
4401 : 30094 : M2Quads_GetQuadOtok (quad, &stroppos, &op, &des, &none, &expr, &overflowChecking, &constExpr, &despos, &nonepos, &exprpos);
4402 : 30094 : if ((IsConstStr (expr)) && (IsConstStrKnown (expr)))
4403 : : {
4404 : 30094 : s = GetStr (exprpos, expr);
4405 : 30094 : SymbolTable_PutConstStringKnown (stroppos, des, NameKey_makekey (DynamicStrings_string (s)), false, true);
4406 : 30094 : M2GCCDeclare_TryDeclareConstant (despos, des);
4407 : 30094 : (*p.proc) (des);
4408 : 30094 : NoChange = false;
4409 : 30094 : M2Quads_SubQuad (quad);
4410 : 30094 : s = DynamicStrings_KillString (s);
4411 : : }
4412 : 30094 : }
4413 : :
4414 : :
4415 : : /*
4416 : : FoldStringConvertCnul -attempt to assign the des with the string contents from expr.
4417 : : It also marks the des as a C string which must be nul terminated.
4418 : : */
4419 : :
4420 : 7540 : static void FoldStringConvertCnul (unsigned int quad, M2GCCDeclare_WalkAction p)
4421 : : {
4422 : 7540 : M2Quads_QuadOperator op;
4423 : 7540 : unsigned int des;
4424 : 7540 : unsigned int none;
4425 : 7540 : unsigned int expr;
4426 : 7540 : unsigned int stroppos;
4427 : 7540 : unsigned int despos;
4428 : 7540 : unsigned int nonepos;
4429 : 7540 : unsigned int exprpos;
4430 : 7540 : DynamicStrings_String s;
4431 : 7540 : bool constExpr;
4432 : 7540 : bool overflowChecking;
4433 : :
4434 : 7540 : M2Quads_GetQuadOtok (quad, &stroppos, &op, &des, &none, &expr, &overflowChecking, &constExpr, &despos, &nonepos, &exprpos);
4435 : 7540 : if ((IsConstStr (expr)) && (IsConstStrKnown (expr)))
4436 : : {
4437 : 7516 : s = GetStr (exprpos, expr);
4438 : 7516 : SymbolTable_PutConstStringKnown (stroppos, des, NameKey_makekey (DynamicStrings_string (s)), true, true);
4439 : 7516 : M2GCCDeclare_TryDeclareConstant (despos, des);
4440 : 7516 : (*p.proc) (des);
4441 : 7516 : NoChange = false;
4442 : 7516 : M2Quads_SubQuad (quad);
4443 : 7516 : s = DynamicStrings_KillString (s);
4444 : : }
4445 : 7540 : }
4446 : :
4447 : 170486 : static void CodeAddr (unsigned int tokenno, unsigned int quad, unsigned int op1, unsigned int op3)
4448 : : {
4449 : 170486 : tree value;
4450 : 170486 : unsigned int type;
4451 : 170486 : location_t location;
4452 : :
4453 : : /*
4454 : : Addr Operator - generates the address of a variable (op1 = &op3).
4455 : : */
4456 : 170486 : if ((SymbolTable_IsConst (op3)) && (! (SymbolTable_IsConstString (op3))))
4457 : : {
4458 : 6 : M2MetaError_MetaErrorT1 (tokenno, (const char *) "error in expression, trying to find the address of a constant {%1Ead}", 69, op3);
4459 : : }
4460 : : else
4461 : : {
4462 : 170480 : if ((SymbolTable_IsConstString (op3)) && (! (SymbolTable_IsConstStringKnown (op3))))
4463 : : {
4464 : 0 : M2Printf_printf1 ((const char *) "failure in quad: %d\\n", 21, (const unsigned char *) &quad, (sizeof (quad)-1));
4465 : : }
4466 : 170480 : location = M2LexBuf_TokenToLocation (tokenno);
4467 : 170480 : type = SymbolTable_SkipType (SymbolTable_GetType (op3));
4468 : 170480 : M2GCCDeclare_DeclareConstant (tokenno, op3); /* we might be asked to find the address of a constant string */
4469 : 170480 : M2GCCDeclare_DeclareConstructor (tokenno, quad, op3); /* we might be asked to find the address of a constant string */
4470 : 170480 : if (((SymbolTable_IsConst (op3)) && (type == M2Base_Char)) || (SymbolTable_IsConstString (op3)))
4471 : : {
4472 : 156880 : value = m2decl_BuildStringConstant (const_cast <const char * > (static_cast <char * > (NameKey_KeyToCharStar (SymbolTable_GetString (op3)))), static_cast<int> (SymbolTable_GetStringLength (tokenno, op3)));
4473 : : }
4474 : : else
4475 : : {
4476 : 13600 : value = SymbolConversion_Mod2Gcc (op3);
4477 : : }
4478 : 170480 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (op1), m2expr_BuildAddr (location, value, false));
4479 : : }
4480 : 170486 : }
4481 : :
4482 : 0 : static void stop (void)
4483 : : {
4484 : 0 : }
4485 : :
4486 : 0 : static void CheckStop (unsigned int q)
4487 : : {
4488 : 0 : if (q == 3827)
4489 : : {
4490 : 0 : stop ();
4491 : : }
4492 : 0 : }
4493 : :
4494 : 3497393 : static void FoldBecomes (M2GCCDeclare_WalkAction p, M2BasicBlock_BasicBlock bb, unsigned int quad)
4495 : : {
4496 : 3497393 : M2Quads_QuadOperator op;
4497 : 3497393 : unsigned int des;
4498 : 3497393 : unsigned int op2;
4499 : 3497393 : unsigned int expr;
4500 : :
4501 : : /*
4502 : : ------------------------------------------------------------------------------
4503 : : := Operator
4504 : : ------------------------------------------------------------------------------
4505 : : Sym1<I> := Sym3<I> := produces a constant
4506 : : */
4507 : 3497393 : if (DeclaredOperandsBecomes (p, quad))
4508 : : {
4509 : 243063 : if ((! (M2Quads_IsConditionalBooleanQuad (quad))) || (M2BasicBlock_IsBasicBlockFirst (bb)))
4510 : : {
4511 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
4512 : 239031 : if (TypeCheckBecomes (p, quad))
4513 : : {
4514 : 239031 : PerformFoldBecomes (p, quad);
4515 : : }
4516 : : else
4517 : : {
4518 : 0 : M2Quads_GetQuad (quad, &op, &des, &op2, &expr);
4519 : 0 : RemoveQuad (p, des, quad);
4520 : : }
4521 : : }
4522 : : }
4523 : 3497393 : }
4524 : :
4525 : :
4526 : : /*
4527 : : TryDeclareConst -
4528 : : */
4529 : :
4530 : 3497393 : static void TryDeclareConst (unsigned int tokenno, unsigned int sym)
4531 : : {
4532 : : /* Check whether expr is a constant literal and if so declare it. */
4533 : 3497393 : M2GCCDeclare_TryDeclareConstant (tokenno, sym);
4534 : : /* Check whether expr is a const constructor and if so declare it. */
4535 : 3497393 : M2GCCDeclare_TryDeclareConstructor (tokenno, sym);
4536 : 3497393 : }
4537 : :
4538 : :
4539 : : /*
4540 : : RemoveQuad - remove quad and ensure p (des) is called.
4541 : : */
4542 : :
4543 : 238741 : static void RemoveQuad (M2GCCDeclare_WalkAction p, unsigned int des, unsigned int quad)
4544 : : {
4545 : 66 : (*p.proc) (des);
4546 : 238741 : NoChange = false;
4547 : 238741 : M2Quads_SubQuad (quad);
4548 : 0 : }
4549 : :
4550 : :
4551 : : /*
4552 : : DeclaredOperandsBecomes -
4553 : : */
4554 : :
4555 : 3497393 : static bool DeclaredOperandsBecomes (M2GCCDeclare_WalkAction p, unsigned int quad)
4556 : : {
4557 : 3497393 : unsigned int des;
4558 : 3497393 : unsigned int op2;
4559 : 3497393 : unsigned int expr;
4560 : 3497393 : bool constExpr;
4561 : 3497393 : bool overflowChecking;
4562 : 3497393 : unsigned int despos;
4563 : 3497393 : unsigned int op2pos;
4564 : 3497393 : unsigned int exprpos;
4565 : 3497393 : unsigned int becomespos;
4566 : 3497393 : M2Quads_QuadOperator op;
4567 : :
4568 : 3497393 : M2Quads_GetQuadOtok (quad, &becomespos, &op, &des, &op2, &expr, &overflowChecking, &constExpr, &despos, &op2pos, &exprpos);
4569 : 3497393 : M2Debug_Assert (op2pos == M2LexBuf_UnknownTokenNo);
4570 : 3497393 : TryDeclareConst (exprpos, expr);
4571 : 3497393 : if ((SymbolTable_IsConst (des)) && (IsConstant (expr)))
4572 : : {
4573 : : /* Constant folding taking place, but have we resolved op3 yet? */
4574 : 250179 : if (SymbolConversion_GccKnowsAbout (expr))
4575 : : {
4576 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
4577 : : /* RemoveSSAPlaceholder (quad, des) ; */
4578 : 243063 : if (SymbolConversion_GccKnowsAbout (des))
4579 : : {
4580 : 0 : M2MetaError_MetaErrorT1 (despos, (const char *) "constant {%1Ead} should not be reassigned", 41, des);
4581 : 0 : RemoveQuad (p, des, quad);
4582 : 0 : return false;
4583 : : }
4584 : : else
4585 : : {
4586 : : return true;
4587 : : }
4588 : : }
4589 : : }
4590 : : return false;
4591 : : /* static analysis guarentees a RETURN statement will be used before here. */
4592 : : __builtin_unreachable ();
4593 : : }
4594 : :
4595 : :
4596 : : /*
4597 : : TypeCheckBecomes - returns TRUE if the type check succeeds.
4598 : : */
4599 : :
4600 : 239031 : static bool TypeCheckBecomes (M2GCCDeclare_WalkAction p, unsigned int quad)
4601 : : {
4602 : 239031 : unsigned int des;
4603 : 239031 : unsigned int op2;
4604 : 239031 : unsigned int expr;
4605 : 239031 : bool constExpr;
4606 : 239031 : bool overflowChecking;
4607 : 239031 : unsigned int despos;
4608 : 239031 : unsigned int op2pos;
4609 : 239031 : unsigned int exprpos;
4610 : 239031 : unsigned int becomespos;
4611 : 239031 : M2Quads_QuadOperator op;
4612 : :
4613 : 239031 : M2Quads_GetQuadOtok (quad, &becomespos, &op, &des, &op2, &expr, &overflowChecking, &constExpr, &despos, &op2pos, &exprpos);
4614 : 239031 : M2Debug_Assert (op2pos == M2LexBuf_UnknownTokenNo);
4615 : 239031 : if (M2Options_StrictTypeChecking && (! (M2Check_AssignmentTypeCompatible (despos, (const char *) "", 0, des, expr))))
4616 : : {
4617 : 0 : M2MetaError_MetaErrorT2 (M2LexBuf_MakeVirtualTok (becomespos, despos, exprpos), (const char *) "assignment check caught mismatch between {%1Ead} and {%2ad}", 59, des, expr);
4618 : 0 : RemoveQuad (p, des, quad);
4619 : 0 : return false;
4620 : : }
4621 : : return true;
4622 : : /* static analysis guarentees a RETURN statement will be used before here. */
4623 : : __builtin_unreachable ();
4624 : : }
4625 : :
4626 : :
4627 : : /*
4628 : : PerformFoldBecomes - attempts to fold quad. It propagates constant strings
4629 : : and attempts to declare des providing it is a constant
4630 : : and expr is resolved.
4631 : : */
4632 : :
4633 : 239031 : static void PerformFoldBecomes (M2GCCDeclare_WalkAction p, unsigned int quad)
4634 : : {
4635 : 239031 : unsigned int des;
4636 : 239031 : unsigned int op2;
4637 : 239031 : unsigned int expr;
4638 : 239031 : bool constExpr;
4639 : 239031 : bool overflowChecking;
4640 : 239031 : unsigned int despos;
4641 : 239031 : unsigned int op2pos;
4642 : 239031 : unsigned int exprpos;
4643 : 239031 : unsigned int becomespos;
4644 : 239031 : unsigned int virtpos;
4645 : 239031 : M2Quads_QuadOperator op;
4646 : :
4647 : 239031 : M2Quads_GetQuadOtok (quad, &becomespos, &op, &des, &op2, &expr, &overflowChecking, &constExpr, &despos, &op2pos, &exprpos);
4648 : 239031 : M2Debug_Assert (op2pos == M2LexBuf_UnknownTokenNo);
4649 : 239031 : if ((SymbolTable_IsConst (des)) && (SymbolTable_IsConstString (expr)))
4650 : : {
4651 : : /* avoid dangling else. */
4652 : 1086 : if ((SymbolTable_IsConstStringKnown (expr)) && (! (SymbolTable_IsConstStringKnown (des))))
4653 : : {
4654 : 1086 : SymbolTable_CopyConstString (exprpos, des, expr);
4655 : : }
4656 : : }
4657 : 237945 : else if ((SymbolTable_GetType (des)) == SymbolTable_NulSym)
4658 : : {
4659 : : /* avoid dangling else. */
4660 : 0 : M2Debug_Assert ((SymbolTable_GetType (expr)) != SymbolTable_NulSym);
4661 : 0 : SymbolTable_PutConst (des, SymbolTable_GetType (expr));
4662 : : }
4663 : 239031 : if ((SymbolTable_GetType (expr)) == SymbolTable_NulSym)
4664 : : {
4665 : 3642 : M2ALU_CheckOrResetOverflow (exprpos, SymbolConversion_Mod2Gcc (expr), M2Quads_MustCheckOverflow (quad));
4666 : 3642 : SymbolConversion_AddModGcc (des, SymbolConversion_Mod2Gcc (expr));
4667 : : }
4668 : : else
4669 : : {
4670 : 235389 : if (! (SymbolConversion_GccKnowsAbout (SymbolTable_GetType (des))))
4671 : : {
4672 : 356 : return;
4673 : : }
4674 : 235033 : if (SymbolTable_IsProcedure (expr))
4675 : : {
4676 : 12 : SymbolConversion_AddModGcc (des, m2convert_BuildConvert (M2LexBuf_TokenToLocation (exprpos), SymbolConversion_Mod2Gcc (SymbolTable_GetType (des)), m2expr_BuildAddr (M2LexBuf_TokenToLocation (exprpos), SymbolConversion_Mod2Gcc (expr), false), true));
4677 : : }
4678 : 235021 : else if (SymbolTable_IsValueSolved (expr))
4679 : : {
4680 : : /* avoid dangling else. */
4681 : 235021 : SymbolTable_PushValue (expr);
4682 : 235021 : if (M2ALU_IsValueTypeReal ())
4683 : : {
4684 : 492 : M2ALU_CheckOrResetOverflow (exprpos, M2ALU_PopRealTree (), M2Quads_MustCheckOverflow (quad));
4685 : 492 : SymbolTable_PushValue (expr);
4686 : 492 : SymbolConversion_AddModGcc (des, M2ALU_PopRealTree ());
4687 : : }
4688 : 234529 : else if (M2ALU_IsValueTypeSet ())
4689 : : {
4690 : : /* avoid dangling else. */
4691 : 3582 : SymbolTable_PopValue (des);
4692 : 3582 : SymbolTable_PutConstSet (des);
4693 : : }
4694 : 230947 : else if (((M2ALU_IsValueTypeConstructor ()) || (M2ALU_IsValueTypeArray ())) || (M2ALU_IsValueTypeRecord ()))
4695 : : {
4696 : : /* avoid dangling else. */
4697 : 374 : SymbolTable_PopValue (des);
4698 : 374 : SymbolTable_PutConstructor (des);
4699 : : }
4700 : 230573 : else if (M2ALU_IsValueTypeComplex ())
4701 : : {
4702 : : /* avoid dangling else. */
4703 : 330 : M2ALU_CheckOrResetOverflow (exprpos, M2ALU_PopComplexTree (), M2Quads_MustCheckOverflow (quad));
4704 : 330 : SymbolTable_PushValue (expr);
4705 : 330 : SymbolTable_PopValue (des);
4706 : : }
4707 : : else
4708 : : {
4709 : : /* avoid dangling else. */
4710 : 230243 : M2ALU_CheckOrResetOverflow (exprpos, M2ALU_PopIntegerTree (), M2Quads_MustCheckOverflow (quad));
4711 : 230243 : if ((SymbolTable_GetType (des)) == SymbolTable_NulSym)
4712 : : {
4713 : 0 : SymbolTable_PushValue (expr);
4714 : 0 : SymbolConversion_AddModGcc (des, M2ALU_PopIntegerTree ());
4715 : : }
4716 : : else
4717 : : {
4718 : 230243 : virtpos = M2LexBuf_MakeVirtualTok (becomespos, despos, exprpos);
4719 : 230243 : SymbolTable_PushValue (expr);
4720 : 230243 : SymbolConversion_AddModGcc (des, m2convert_BuildConvert (M2LexBuf_TokenToLocation (virtpos), SymbolConversion_Mod2Gcc (SymbolTable_GetType (des)), M2ALU_PopIntegerTree (), false));
4721 : : }
4722 : : }
4723 : : }
4724 : : else
4725 : : {
4726 : : /* avoid dangling else. */
4727 : 0 : virtpos = M2LexBuf_MakeVirtualTok (becomespos, despos, exprpos);
4728 : 0 : M2ALU_CheckOrResetOverflow (exprpos, SymbolConversion_Mod2Gcc (des), M2Quads_MustCheckOverflow (quad));
4729 : 0 : SymbolConversion_AddModGcc (des, m2convert_BuildConvert (M2LexBuf_TokenToLocation (virtpos), SymbolConversion_Mod2Gcc (SymbolTable_GetType (des)), m2decl_DeclareKnownConstant (M2LexBuf_TokenToLocation (virtpos), SymbolConversion_Mod2Gcc (SymbolTable_GetType (expr)), SymbolConversion_Mod2Gcc (expr)), false));
4730 : : }
4731 : : }
4732 : 238675 : RemoveQuad (p, des, quad);
4733 : 238675 : M2Debug_Assert ((m2block_RememberConstant (SymbolConversion_Mod2Gcc (des))) == (SymbolConversion_Mod2Gcc (des)));
4734 : : }
4735 : :
4736 : :
4737 : : /*
4738 : : CodeTry - starts building a GCC 'try' node.
4739 : : */
4740 : :
4741 : 2684 : static void CodeTry (void)
4742 : : {
4743 : 2684 : location_t location;
4744 : :
4745 : 2684 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
4746 : 2684 : handlerBlock = NULL;
4747 : 2684 : tryBlock = m2except_BuildTryBegin (location);
4748 : 2684 : }
4749 : :
4750 : :
4751 : : /*
4752 : : CodeThrow - builds a GCC 'throw' node.
4753 : : */
4754 : :
4755 : 284 : static void CodeThrow (unsigned int value)
4756 : : {
4757 : 284 : location_t location;
4758 : :
4759 : 284 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
4760 : 284 : if (value == SymbolTable_NulSym)
4761 : : {
4762 : 174 : m2type_AddStatement (location, m2except_BuildThrow (location, (tree) (NULL)));
4763 : : }
4764 : : else
4765 : : {
4766 : 110 : M2GCCDeclare_DeclareConstant (CurrentQuadToken, value); /* checks to see whether it is a constant and declares it */
4767 : 110 : m2type_AddStatement (location, m2except_BuildThrow (location, m2convert_BuildConvert (location, m2type_GetIntegerType (), SymbolConversion_Mod2Gcc (value), false))); /* checks to see whether it is a constant and declares it */
4768 : : }
4769 : 284 : }
4770 : :
4771 : 108 : static void CodeRetry (unsigned int destQuad)
4772 : : {
4773 : 108 : location_t location;
4774 : :
4775 : 108 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
4776 : 108 : m2statement_BuildGoto (location, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (destQuad))));
4777 : 108 : }
4778 : :
4779 : 2684 : static void CodeCatchBegin (void)
4780 : : {
4781 : 2684 : location_t location;
4782 : :
4783 : 2684 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
4784 : 2684 : m2except_BuildTryEnd (tryBlock);
4785 : 2684 : handlerBlock = m2except_BuildCatchBegin (location);
4786 : 2684 : }
4787 : :
4788 : 2684 : static void CodeCatchEnd (void)
4789 : : {
4790 : 2684 : location_t location;
4791 : :
4792 : 2684 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
4793 : 2684 : tryBlock = m2except_BuildCatchEnd (location, handlerBlock, tryBlock);
4794 : 2684 : m2type_AddStatement (location, tryBlock);
4795 : 2684 : }
4796 : :
4797 : :
4798 : : /*
4799 : : DescribeTypeError -
4800 : : */
4801 : :
4802 : 6 : static void DescribeTypeError (unsigned int token, unsigned int op1, unsigned int op2)
4803 : : {
4804 : 6 : M2MetaError_MetaErrorT2 (token, (const char *) "incompatible set types in assignment, assignment between {%1ERad} and {%2ad}", 76, op1, op2);
4805 : 6 : M2MetaError_MetaError2 ((const char *) "set types are {%1CDtsad} and {%2Dtsad}", 38, op1, op2);
4806 : 6 : }
4807 : :
4808 : :
4809 : : /*
4810 : : DefaultConvertGM2 - provides a simple mapping between
4811 : : front end data types and GCC equivalents.
4812 : : This is only used to aid assignment of
4813 : : typed constants.
4814 : : */
4815 : :
4816 : 18043 : static tree DefaultConvertGM2 (unsigned int sym)
4817 : : {
4818 : 18043 : sym = SymbolTable_SkipType (sym);
4819 : 18043 : if (sym == M2Bitset_Bitset)
4820 : : {
4821 : 0 : return m2type_GetWordType ();
4822 : : }
4823 : : else
4824 : : {
4825 : 18043 : return SymbolConversion_Mod2Gcc (sym);
4826 : : }
4827 : : /* static analysis guarentees a RETURN statement will be used before here. */
4828 : : __builtin_unreachable ();
4829 : : }
4830 : :
4831 : :
4832 : : /*
4833 : : FoldConstBecomes - returns a Tree containing op3.
4834 : : The tree will have been folded and
4835 : : type converted if necessary.
4836 : : */
4837 : :
4838 : 157825 : static tree FoldConstBecomes (unsigned int tokenno, unsigned int op1, unsigned int op3)
4839 : : {
4840 : 157825 : tree t;
4841 : 157825 : tree type;
4842 : 157825 : location_t location;
4843 : :
4844 : 157825 : if ((SymbolTable_IsConstSet (op3)) || (((SymbolTable_SkipType (SymbolTable_GetType (op3))) != SymbolTable_NulSym) && (SymbolTable_IsSet (SymbolTable_SkipType (SymbolTable_GetType (op3))))))
4845 : : {
4846 : : /*
4847 : : IF (Iso AND (SkipType(GetType(op1))#SkipType(GetType(op3)))) OR
4848 : : (Pim AND ((SkipType(GetType(op1))#SkipType(GetType(op3))) AND
4849 : : (SkipType(GetType(op1))#Bitset) AND
4850 : : (SkipType(GetType(op3))#Bitset)))
4851 : : */
4852 : 2442 : if ((SymbolTable_SkipType (SymbolTable_GetTypeMode (op1))) != (SymbolTable_SkipType (SymbolTable_GetTypeMode (op3))))
4853 : : {
4854 : 6 : DescribeTypeError (tokenno, op1, op3);
4855 : 6 : return SymbolConversion_Mod2Gcc (op1); /* we might crash if we execute the BuildAssignmentTree with op3 */
4856 : : }
4857 : : }
4858 : 157819 : location = M2LexBuf_TokenToLocation (tokenno);
4859 : 157819 : M2GCCDeclare_TryDeclareConstant (tokenno, op3);
4860 : 157819 : t = SymbolConversion_Mod2Gcc (op3);
4861 : 157819 : M2Debug_Assert (t != NULL);
4862 : 157819 : if (IsConstant (op3))
4863 : : {
4864 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
4865 : 46247 : if (SymbolTable_IsProcedure (op3))
4866 : : {
4867 : : /*
4868 : : t := BuildConvert(location, Mod2Gcc(GetType(op1)), BuildAddr(location, Mod2Gcc(op3), FALSE), TRUE)
4869 : : */
4870 : : return t;
4871 : : }
4872 : 45545 : else if (((! (SymbolTable_IsConstString (op3))) && (! (SymbolTable_IsConstSet (op3)))) && ((SymbolTable_SkipType (SymbolTable_GetType (op3))) != (SymbolTable_SkipType (SymbolTable_GetType (op1)))))
4873 : : {
4874 : : /* avoid dangling else. */
4875 : 18043 : type = DefaultConvertGM2 (SymbolTable_GetType (op1)); /* do we need this now? --fixme-- */
4876 : 18043 : t = m2convert_ConvertConstantAndCheck (location, type, t); /* do we need this now? --fixme-- */
4877 : : }
4878 : 27502 : else if ((SymbolTable_GetType (op1)) != SymbolTable_NulSym)
4879 : : {
4880 : : /* avoid dangling else. */
4881 : 27502 : t = M2GenGCC_StringToChar (SymbolConversion_Mod2Gcc (op3), SymbolTable_GetType (op1), op3);
4882 : : }
4883 : : }
4884 : : return t;
4885 : : /* static analysis guarentees a RETURN statement will be used before here. */
4886 : : __builtin_unreachable ();
4887 : : }
4888 : :
4889 : :
4890 : : /*
4891 : : checkArrayElements - return TRUE if des or expr are not arrays.
4892 : : If they are arrays and have different number of
4893 : : elements return FALSE, otherwise TRUE.
4894 : : */
4895 : :
4896 : 157861 : static bool checkArrayElements (unsigned int des, unsigned int expr, unsigned int virtpos, unsigned int despos, unsigned int exprpos)
4897 : : {
4898 : 157861 : tree e1;
4899 : 157861 : tree e3;
4900 : 157861 : unsigned int t1;
4901 : 157861 : unsigned int t3;
4902 : :
4903 : 157861 : t1 = SymbolTable_GetType (des);
4904 : 157861 : t3 = SymbolTable_GetType (expr);
4905 : 157861 : if ((((t1 != SymbolTable_NulSym) && (t3 != SymbolTable_NulSym)) && (SymbolTable_IsArray (SymbolTable_SkipType (SymbolTable_GetType (expr))))) && (SymbolTable_IsArray (SymbolTable_SkipType (SymbolTable_GetType (des)))))
4906 : : {
4907 : : /* both arrays continue checking */
4908 : 458 : e1 = m2type_GetArrayNoOfElements (M2LexBuf_TokenToLocation (despos), SymbolConversion_Mod2Gcc (SymbolTable_SkipType (SymbolTable_GetType (des))));
4909 : 458 : e3 = m2type_GetArrayNoOfElements (M2LexBuf_TokenToLocation (exprpos), SymbolConversion_Mod2Gcc (SymbolTable_SkipType (SymbolTable_GetType (expr))));
4910 : 458 : if ((m2expr_CompareTrees (e1, e3)) != 0)
4911 : : {
4912 : 6 : M2MetaError_MetaErrorT2 (virtpos, (const char *) "not allowed to assign array {%2Ead} to {%1ad} as they have a different number of elements", 89, des, expr);
4913 : 6 : return false;
4914 : : }
4915 : : }
4916 : : return true;
4917 : : /* static analysis guarentees a RETURN statement will be used before here. */
4918 : : __builtin_unreachable ();
4919 : : }
4920 : :
4921 : :
4922 : : /*
4923 : : CodeInitAddress -
4924 : : */
4925 : :
4926 : 54 : static void CodeInitAddress (unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
4927 : : {
4928 : 54 : location_t location;
4929 : :
4930 : 54 : M2GCCDeclare_DeclareConstant (CurrentQuadToken, op3); /* checks to see whether it is a constant and declares it */
4931 : 54 : M2GCCDeclare_DeclareConstructor (CurrentQuadToken, quad, op3); /* checks to see whether it is a constant and declares it */
4932 : 54 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
4933 : 54 : M2Debug_Assert (op2 == SymbolTable_NulSym);
4934 : 54 : M2Debug_Assert ((SymbolTable_GetMode (op1)) == SymbolTable_LeftValue);
4935 : 54 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (op1), m2convert_BuildConvert (location, m2type_GetPointerType (), SymbolConversion_Mod2Gcc (op3), false));
4936 : 54 : }
4937 : :
4938 : :
4939 : : /*
4940 : : checkRecordTypes - returns TRUE if des is not a record or if the record
4941 : : is the same type as expr.
4942 : : */
4943 : :
4944 : 157855 : static bool checkRecordTypes (unsigned int des, unsigned int expr, unsigned int virtpos)
4945 : : {
4946 : 157855 : unsigned int t1;
4947 : 157855 : unsigned int t2;
4948 : :
4949 : 157855 : if (((SymbolTable_GetType (des)) == SymbolTable_NulSym) || ((SymbolTable_GetMode (des)) == SymbolTable_LeftValue))
4950 : : {
4951 : 17488 : return true;
4952 : : }
4953 : : else
4954 : : {
4955 : 140367 : t1 = SymbolTable_SkipType (SymbolTable_GetType (des));
4956 : 140367 : if (SymbolTable_IsRecord (t1))
4957 : : {
4958 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
4959 : 302 : if ((SymbolTable_GetType (expr)) == SymbolTable_NulSym)
4960 : : {
4961 : 0 : M2MetaError_MetaErrorT2 (virtpos, (const char *) "cannot assign an operand of type {%1Ets} to a record type {%2tsa}", 65, expr, des);
4962 : 0 : return false;
4963 : : }
4964 : : else
4965 : : {
4966 : 302 : t2 = SymbolTable_SkipType (SymbolTable_GetType (expr));
4967 : 302 : if (t1 == t2)
4968 : : {
4969 : : return true;
4970 : : }
4971 : : else
4972 : : {
4973 : 0 : M2MetaError_MetaErrorT2 (virtpos, (const char *) "cannot assign an operand of type {%1ts} to a record type {%2tsa}", 64, expr, des);
4974 : 0 : return false;
4975 : : }
4976 : : }
4977 : : }
4978 : : }
4979 : : return true;
4980 : : /* static analysis guarentees a RETURN statement will be used before here. */
4981 : : __builtin_unreachable ();
4982 : : }
4983 : :
4984 : :
4985 : : /*
4986 : : checkIncorrectMeta - checks to see if des and expr are assignment compatible is allows
4987 : : generic system types to be assigned.
4988 : : */
4989 : :
4990 : 157855 : static bool checkIncorrectMeta (unsigned int des, unsigned int expr, unsigned int virtpos)
4991 : : {
4992 : 157855 : unsigned int t1;
4993 : 157855 : unsigned int t2;
4994 : :
4995 : 157855 : t1 = SymbolTable_SkipType (SymbolTable_GetType (des));
4996 : 157855 : t2 = SymbolTable_SkipType (SymbolTable_GetType (expr));
4997 : 157855 : if ((((t1 == SymbolTable_NulSym) || ((SymbolTable_GetMode (des)) == SymbolTable_LeftValue)) || (t2 == SymbolTable_NulSym)) || ((SymbolTable_GetMode (expr)) == SymbolTable_LeftValue))
4998 : : {
4999 : 18214 : return true;
5000 : : }
5001 : 139641 : else if (((t1 != t2) && (! (M2System_IsGenericSystemType (t1)))) && (! (M2System_IsGenericSystemType (t2))))
5002 : : {
5003 : : /* avoid dangling else. */
5004 : 27337 : if (((SymbolTable_IsArray (t1)) || (SymbolTable_IsSet (t1))) || (SymbolTable_IsRecord (t1)))
5005 : : {
5006 : 48 : if (! (M2Base_IsAssignmentCompatible (t1, t2)))
5007 : : {
5008 : 30 : ErrorMessageDecl (virtpos, (const char *) "illegal assignment error between {%1Etad} and {%2tad}", 53, des, expr, true);
5009 : 30 : return false;
5010 : : }
5011 : : }
5012 : : }
5013 : : return true;
5014 : : /* static analysis guarentees a RETURN statement will be used before here. */
5015 : : __builtin_unreachable ();
5016 : : }
5017 : :
5018 : :
5019 : : /*
5020 : : checkBecomes - returns TRUE if the checks pass.
5021 : : */
5022 : :
5023 : 157861 : static bool checkBecomes (unsigned int des, unsigned int expr, unsigned int virtpos, unsigned int despos, unsigned int exprpos)
5024 : : {
5025 : 157861 : if (((! (checkArrayElements (des, expr, virtpos, despos, exprpos))) || (! (checkRecordTypes (des, expr, virtpos)))) || (! (checkIncorrectMeta (des, expr, virtpos))))
5026 : : {
5027 : 36 : return false;
5028 : : }
5029 : : return true;
5030 : : /* static analysis guarentees a RETURN statement will be used before here. */
5031 : : __builtin_unreachable ();
5032 : : }
5033 : :
5034 : :
5035 : : /*
5036 : : checkDeclare - checks to see if sym is declared and if it is not then declare it.
5037 : : */
5038 : :
5039 : 2310 : static void checkDeclare (unsigned int sym)
5040 : : {
5041 : 2310 : if (((SymbolTable_IsTemporary (sym)) && (SymbolTable_IsVariableSSA (sym))) && (! (SymbolConversion_GccKnowsAbout (sym))))
5042 : : {
5043 : 0 : M2GCCDeclare_DeclareLocalVariable (sym);
5044 : : }
5045 : 2310 : }
5046 : :
5047 : 158717 : static void CodeBecomes (unsigned int quad)
5048 : : {
5049 : 158717 : bool constExpr;
5050 : 158717 : bool overflowChecking;
5051 : 158717 : M2Quads_QuadOperator op;
5052 : 158717 : unsigned int des;
5053 : 158717 : unsigned int op2;
5054 : 158717 : unsigned int expr;
5055 : 158717 : unsigned int virtpos;
5056 : 158717 : unsigned int becomespos;
5057 : 158717 : unsigned int despos;
5058 : 158717 : unsigned int op2pos;
5059 : 158717 : unsigned int exprpos;
5060 : 158717 : tree length;
5061 : 158717 : tree exprt;
5062 : 158717 : location_t location;
5063 : :
5064 : : /*
5065 : : ------------------------------------------------------------------------------
5066 : : := Operator
5067 : : ------------------------------------------------------------------------------
5068 : : Sym1<I> := Sym3<I> := produces a constant
5069 : : Sym1<O> := Sym3<O> := has the effect Mem[Sym1<I>] := Mem[Sym3<I>]
5070 : : */
5071 : 158717 : M2Quads_GetQuadOtok (quad, &becomespos, &op, &des, &op2, &expr, &overflowChecking, &constExpr, &despos, &op2pos, &exprpos);
5072 : 158717 : M2Debug_Assert (op2pos == M2LexBuf_UnknownTokenNo);
5073 : 158717 : M2GCCDeclare_DeclareConstant (exprpos, expr); /* Check to see whether expr is a constant and declare it. */
5074 : 158717 : M2GCCDeclare_DeclareConstructor (exprpos, quad, expr); /* Check to see whether expr is a constant and declare it. */
5075 : 158717 : virtpos = M2LexBuf_MakeVirtualTok (becomespos, despos, exprpos);
5076 : 158717 : location = M2LexBuf_TokenToLocation (virtpos);
5077 : 158717 : if (M2Options_StrictTypeChecking && (! (M2Check_AssignmentTypeCompatible (virtpos, (const char *) "", 0, des, expr))))
5078 : : {
5079 : 102 : ErrorMessageDecl (virtpos, (const char *) "assignment check caught mismatch between {%1Ead} and {%2ad}", 59, des, expr, true);
5080 : : }
5081 : 158717 : if ((SymbolTable_IsConstString (expr)) && (! (SymbolTable_IsConstStringKnown (expr))))
5082 : : {
5083 : 0 : M2MetaError_MetaErrorT2 (virtpos, (const char *) "internal error: CodeBecomes {%1Aad} in quad {%2n}", 49, des, quad);
5084 : : }
5085 : 158717 : if ((SymbolTable_IsConst (des)) && (! (SymbolConversion_GccKnowsAbout (des))))
5086 : : {
5087 : 6 : M2GCCDeclare_ConstantKnownAndUsed (des, CheckConstant (virtpos, des, expr));
5088 : : }
5089 : 158711 : else if ((SymbolTable_IsConstString (expr)) && ((SymbolTable_SkipTypeAndSubrange (SymbolTable_GetType (des))) != M2Base_Char))
5090 : : {
5091 : : /* avoid dangling else. */
5092 : 540 : checkDeclare (des);
5093 : 540 : if (! (M2GenGCC_PrepareCopyString (becomespos, &length, &exprt, expr, SymbolTable_SkipType (SymbolTable_GetType (des)))))
5094 : : {
5095 : 12 : ErrorMessageDecl (virtpos, (const char *) "string constant {%1Ea} is too large to be assigned to the array {%2ad}", 70, expr, des, true);
5096 : : }
5097 : 534 : m2type_AddStatement (location, MaybeDebugBuiltinMemcpy (location, m2expr_BuildAddr (location, SymbolConversion_Mod2Gcc (des), false), m2expr_BuildAddr (location, exprt, false), length));
5098 : : }
5099 : : else
5100 : : {
5101 : : /* avoid dangling else. */
5102 : 158171 : if ((((M2System_IsGenericSystemType (SymbolTable_SkipType (SymbolTable_GetType (des)))) != (M2System_IsGenericSystemType (SymbolTable_SkipType (SymbolTable_GetType (expr))))) || (((SymbolTable_IsUnbounded (SymbolTable_SkipType (SymbolTable_GetType (des)))) && (SymbolTable_IsUnbounded (SymbolTable_SkipType (SymbolTable_GetType (expr))))) && ((M2System_IsGenericSystemType (SymbolTable_SkipType (SymbolTable_GetType (SymbolTable_GetType (des))))) != (M2System_IsGenericSystemType (SymbolTable_SkipType (SymbolTable_GetType (SymbolTable_GetType (expr)))))))) && (! (IsConstant (expr))))
5103 : : {
5104 : 310 : checkDeclare (des);
5105 : 310 : m2type_AddStatement (location, MaybeDebugBuiltinMemcpy (location, m2expr_BuildAddr (location, SymbolConversion_Mod2Gcc (des), false), m2expr_BuildAddr (location, SymbolConversion_Mod2Gcc (expr), false), m2expr_BuildSize (location, SymbolConversion_Mod2Gcc (des), false)));
5106 : : }
5107 : : else
5108 : : {
5109 : 157861 : if (checkBecomes (des, expr, virtpos, despos, exprpos))
5110 : : {
5111 : 157825 : if ((SymbolTable_IsVar (des)) && (SymbolTable_IsVariableSSA (des)))
5112 : : {
5113 : 0 : Replace (des, FoldConstBecomes (virtpos, des, expr));
5114 : : }
5115 : : else
5116 : : {
5117 : 157825 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (des), FoldConstBecomes (virtpos, des, expr));
5118 : : }
5119 : : }
5120 : : else
5121 : : {
5122 : 36 : M2Quads_SubQuad (quad); /* We don't want multiple errors for the quad. */
5123 : : }
5124 : : }
5125 : : }
5126 : 158711 : }
5127 : :
5128 : :
5129 : : /*
5130 : : LValueToGenericPtrOrConvert - if sym is an lvalue then convert to pointer type
5131 : : else convert to type, type. Return the converted tree.
5132 : : */
5133 : :
5134 : 17849 : static tree LValueToGenericPtrOrConvert (unsigned int sym, tree type)
5135 : : {
5136 : 17849 : tree n;
5137 : 17849 : location_t location;
5138 : :
5139 : 17849 : n = SymbolConversion_Mod2Gcc (sym);
5140 : 17849 : location = M2LexBuf_TokenToLocation (SymbolTable_GetDeclaredMod (sym));
5141 : 17849 : if (n == NULL)
5142 : : {
5143 : 0 : M2Error_InternalError ((const char *) "expecting symbol to be resolved", 31);
5144 : : }
5145 : 17849 : if ((SymbolTable_GetMode (sym)) == SymbolTable_LeftValue)
5146 : : {
5147 : 0 : n = m2convert_BuildConvert (location, m2type_GetPointerType (), n, false);
5148 : : }
5149 : : else
5150 : : {
5151 : 17849 : n = m2convert_BuildConvert (location, type, n, false);
5152 : : }
5153 : 17849 : return n;
5154 : : /* static analysis guarentees a RETURN statement will be used before here. */
5155 : : __builtin_unreachable ();
5156 : : }
5157 : :
5158 : :
5159 : : /*
5160 : : FoldBinary - check whether we can fold the binop operation.
5161 : : */
5162 : :
5163 : 570923 : static void FoldBinary (unsigned int tokenno, M2GCCDeclare_WalkAction p, m2expr_BuildBinProcedure binop, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
5164 : : {
5165 : 570923 : tree tl;
5166 : 570923 : tree tr;
5167 : 570923 : tree tv;
5168 : 570923 : tree resType;
5169 : 570923 : location_t location;
5170 : :
5171 : : /* firstly ensure that constant literals are declared */
5172 : 570923 : M2GCCDeclare_TryDeclareConstant (tokenno, op3);
5173 : 570923 : M2GCCDeclare_TryDeclareConstant (tokenno, op2);
5174 : 570923 : location = M2LexBuf_TokenToLocation (tokenno);
5175 : 570923 : if ((SymbolTable_IsConst (op2)) && (SymbolTable_IsConst (op3)))
5176 : : {
5177 : 25689 : if ((SymbolConversion_GccKnowsAbout (op2)) && (SymbolConversion_GccKnowsAbout (op3)))
5178 : : {
5179 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
5180 : : /* fine, we can take advantage of this and fold constants */
5181 : 19741 : if (SymbolTable_IsConst (op1))
5182 : : {
5183 : 19741 : M2Debug_Assert ((M2Base_MixTypes (FindType (op3), FindType (op2), tokenno)) != SymbolTable_NulSym);
5184 : 19741 : SymbolTable_PutConst (op1, M2Base_MixTypes (FindType (op3), FindType (op2), tokenno));
5185 : 19741 : tl = M2GenGCC_LValueToGenericPtr (location, op2);
5186 : 19741 : tr = M2GenGCC_LValueToGenericPtr (location, op3);
5187 : 19741 : if ((SymbolTable_GetType (op1)) == SymbolTable_NulSym)
5188 : : {
5189 : 0 : resType = m2type_GetM2ZType ();
5190 : : }
5191 : : else
5192 : : {
5193 : 19741 : resType = SymbolConversion_Mod2Gcc (SymbolTable_GetType (op1));
5194 : : }
5195 : 19741 : tl = m2convert_BuildConvert (location, resType, tl, false);
5196 : 19741 : tr = m2convert_BuildConvert (location, resType, tr, false);
5197 : 19741 : tv = (*binop.proc) (location, tl, tr, true);
5198 : 19741 : M2ALU_CheckOrResetOverflow (tokenno, tv, M2Quads_MustCheckOverflow (quad));
5199 : 19729 : SymbolConversion_AddModGcc (op1, m2decl_DeclareKnownConstant (location, resType, tv));
5200 : 19729 : (*p.proc) (op1);
5201 : 19729 : NoChange = false;
5202 : 19729 : M2Quads_SubQuad (quad);
5203 : : }
5204 : : /* we can still fold the expression, but not the assignment,
5205 : : however, we will not do this here but in CodeBinary
5206 : : */
5207 : : }
5208 : : }
5209 : 570911 : }
5210 : :
5211 : :
5212 : : /*
5213 : : ConvertBinaryOperands -
5214 : : */
5215 : :
5216 : 109844 : static void ConvertBinaryOperands (location_t location, tree *tl, tree *tr, unsigned int type, unsigned int op2, unsigned int op3)
5217 : : {
5218 : 109844 : (*tl) = NULL;
5219 : 109844 : (*tr) = NULL;
5220 : 109844 : if ((SymbolTable_GetMode (op2)) == SymbolTable_LeftValue)
5221 : : {
5222 : 90 : (*tl) = M2GenGCC_LValueToGenericPtr (location, op2);
5223 : 90 : type = M2System_Address;
5224 : : }
5225 : 109844 : if ((SymbolTable_GetMode (op3)) == SymbolTable_LeftValue)
5226 : : {
5227 : 0 : (*tr) = M2GenGCC_LValueToGenericPtr (location, op3);
5228 : 0 : type = M2System_Address;
5229 : : }
5230 : 109844 : if (((*tl) == NULL) && ((*tr) == NULL))
5231 : : {
5232 : 109754 : (*tl) = m2convert_BuildConvert (location, SymbolConversion_Mod2Gcc (type), SymbolConversion_Mod2Gcc (op2), false);
5233 : 109754 : (*tr) = m2convert_BuildConvert (location, SymbolConversion_Mod2Gcc (type), SymbolConversion_Mod2Gcc (op3), false);
5234 : : }
5235 : 90 : else if ((*tl) == NULL)
5236 : : {
5237 : : /* avoid dangling else. */
5238 : 0 : (*tl) = m2convert_BuildConvert (location, SymbolConversion_Mod2Gcc (type), SymbolConversion_Mod2Gcc (op2), false);
5239 : : }
5240 : 90 : else if ((*tr) == NULL)
5241 : : {
5242 : : /* avoid dangling else. */
5243 : 90 : (*tr) = m2convert_BuildConvert (location, SymbolConversion_Mod2Gcc (type), SymbolConversion_Mod2Gcc (op3), false);
5244 : : }
5245 : 109844 : }
5246 : :
5247 : :
5248 : : /*
5249 : : CodeBinaryCheck - encode a binary arithmetic operation.
5250 : : */
5251 : :
5252 : 40112 : static void CodeBinaryCheck (m2expr_BuildBinCheckProcedure binop, unsigned int quad)
5253 : : {
5254 : 40112 : M2Quads_QuadOperator op;
5255 : 40112 : unsigned int op1;
5256 : 40112 : unsigned int op2;
5257 : 40112 : unsigned int op3;
5258 : 40112 : unsigned int op1pos;
5259 : 40112 : unsigned int op2pos;
5260 : 40112 : unsigned int op3pos;
5261 : 40112 : unsigned int lowestType;
5262 : 40112 : unsigned int type;
5263 : 40112 : tree min;
5264 : 40112 : tree max;
5265 : 40112 : tree lowest;
5266 : 40112 : tree tv;
5267 : 40112 : tree tl;
5268 : 40112 : tree tr;
5269 : 40112 : location_t location;
5270 : :
5271 : : /* firstly ensure that constant literals are declared. */
5272 : 40112 : M2Quads_GetQuadtok (quad, &op, &op1, &op2, &op3, &op1pos, &op2pos, &op3pos);
5273 : 40112 : M2GCCDeclare_DeclareConstant (op3pos, op3);
5274 : 40112 : M2GCCDeclare_DeclareConstant (op2pos, op2);
5275 : 40112 : location = M2LexBuf_TokenToLocation (op1pos);
5276 : 40112 : type = MixTypesBinary (op2, op3, op1pos, M2Quads_MustCheckOverflow (quad));
5277 : 40112 : ConvertBinaryOperands (location, &tl, &tr, type, op2, op3);
5278 : 40112 : lowestType = SymbolTable_GetLType (op1);
5279 : 40112 : lowest = SymbolConversion_Mod2Gcc (lowestType);
5280 : 40112 : if (M2Range_GetMinMax (CurrentQuadToken, lowestType, &min, &max))
5281 : : {
5282 : 36930 : tv = (*binop.proc) (location, tl, tr, lowest, min, max);
5283 : : }
5284 : : else
5285 : : {
5286 : 3182 : tv = (*binop.proc) (location, tl, tr, NULL, NULL, NULL);
5287 : : }
5288 : 40112 : M2ALU_CheckOrResetOverflow (op1pos, tv, M2Quads_MustCheckOverflow (quad));
5289 : 40112 : if (SymbolTable_IsConst (op1))
5290 : : {
5291 : : /* still have a constant which was not resolved, pass it to gcc. */
5292 : 0 : M2Debug_Assert ((M2Base_MixTypes (FindType (op3), FindType (op2), op3pos)) != SymbolTable_NulSym);
5293 : 0 : SymbolTable_PutConst (op1, M2Base_MixTypes (FindType (op3), FindType (op2), op3pos));
5294 : 0 : M2GCCDeclare_ConstantKnownAndUsed (op1, m2decl_DeclareKnownConstant (location, SymbolConversion_Mod2Gcc (SymbolTable_GetType (op3)), tv));
5295 : : }
5296 : : else
5297 : : {
5298 : 40112 : if (M2SSA_EnableSSA && (SymbolTable_IsVariableSSA (op1)))
5299 : : {
5300 : : Replace (op1, tv);
5301 : : }
5302 : : else
5303 : : {
5304 : 40112 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (op1), tv);
5305 : : }
5306 : : }
5307 : 40112 : }
5308 : :
5309 : :
5310 : : /*
5311 : : MixTypesBinary - depending upon overflowCheck do not check pointer arithmetic.
5312 : : */
5313 : :
5314 : 49908 : static unsigned int MixTypesBinary (unsigned int left, unsigned int right, unsigned int tokpos, bool overflowCheck)
5315 : : {
5316 : 49908 : if (! overflowCheck && ((SymbolTable_IsPointer (SymbolTable_GetTypeMode (left))) || (SymbolTable_IsPointer (SymbolTable_GetTypeMode (right)))))
5317 : : {
5318 : 7402 : return M2System_Address;
5319 : : }
5320 : : else
5321 : : {
5322 : 42506 : return M2Base_MixTypesDecl (left, right, FindType (left), FindType (right), tokpos);
5323 : : }
5324 : : /* static analysis guarentees a RETURN statement will be used before here. */
5325 : : __builtin_unreachable ();
5326 : : }
5327 : :
5328 : :
5329 : : /*
5330 : : CodeBinary - encode a binary arithmetic operation.
5331 : : */
5332 : :
5333 : 9796 : static void CodeBinary (m2expr_BuildBinProcedure binop, unsigned int quad)
5334 : : {
5335 : 9796 : M2Quads_QuadOperator op;
5336 : 9796 : unsigned int op1;
5337 : 9796 : unsigned int op2;
5338 : 9796 : unsigned int op3;
5339 : 9796 : unsigned int op1pos;
5340 : 9796 : unsigned int op2pos;
5341 : 9796 : unsigned int op3pos;
5342 : 9796 : unsigned int type;
5343 : 9796 : tree tv;
5344 : 9796 : tree tl;
5345 : 9796 : tree tr;
5346 : 9796 : location_t location;
5347 : :
5348 : : /* firstly ensure that constant literals are declared */
5349 : 9796 : M2Quads_GetQuadtok (quad, &op, &op1, &op2, &op3, &op1pos, &op2pos, &op3pos);
5350 : 9796 : M2GCCDeclare_DeclareConstant (op3pos, op3);
5351 : 9796 : M2GCCDeclare_DeclareConstant (op2pos, op2);
5352 : 9796 : location = M2LexBuf_TokenToLocation (op1pos);
5353 : 9796 : type = MixTypesBinary (op2, op3, op1pos, M2Quads_MustCheckOverflow (quad));
5354 : 9796 : ConvertBinaryOperands (location, &tl, &tr, type, op2, op3);
5355 : 9796 : tv = (*binop.proc) (location, tl, tr, false);
5356 : 9796 : M2ALU_CheckOrResetOverflow (op1pos, tv, M2Quads_MustCheckOverflow (quad));
5357 : 9796 : if (SymbolTable_IsConst (op1))
5358 : : {
5359 : : /* still have a constant which was not resolved, pass it to gcc */
5360 : 0 : M2Debug_Assert ((M2Base_MixTypes (FindType (op3), FindType (op2), op1pos)) != SymbolTable_NulSym);
5361 : 0 : SymbolTable_PutConst (op1, M2Base_MixTypes (FindType (op3), FindType (op2), op1pos));
5362 : 0 : M2GCCDeclare_ConstantKnownAndUsed (op1, m2decl_DeclareKnownConstant (location, SymbolConversion_Mod2Gcc (SymbolTable_GetType (op3)), tv));
5363 : : }
5364 : : else
5365 : : {
5366 : 9796 : if (M2SSA_EnableSSA && (SymbolTable_IsVariableSSA (op1)))
5367 : : {
5368 : : Replace (op1, tv);
5369 : : }
5370 : : else
5371 : : {
5372 : 9796 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (op1), tv);
5373 : : }
5374 : : }
5375 : 9796 : }
5376 : :
5377 : :
5378 : : /*
5379 : : NoWalkProcedure -
5380 : : */
5381 : :
5382 : 0 : static void NoWalkProcedure (unsigned int param __attribute__((unused)))
5383 : : {
5384 : 0 : }
5385 : :
5386 : :
5387 : : /*
5388 : : CheckBinaryExpressionTypes - returns TRUE if all expression checks pass.
5389 : : If the expression check fails quad is removed,
5390 : : the walk procedure (des) is called and NoChange is
5391 : : set to FALSE.
5392 : : */
5393 : :
5394 : 4058 : static bool CheckBinaryExpressionTypes (unsigned int quad, M2GCCDeclare_WalkAction p)
5395 : : {
5396 : 4058 : unsigned int lefttype;
5397 : 4058 : unsigned int righttype;
5398 : 4058 : unsigned int des;
5399 : 4058 : unsigned int left;
5400 : 4058 : unsigned int right;
5401 : 4058 : bool typeChecking;
5402 : 4058 : bool constExpr;
5403 : 4058 : bool overflowChecking;
5404 : 4058 : unsigned int despos;
5405 : 4058 : unsigned int leftpos;
5406 : 4058 : unsigned int rightpos;
5407 : 4058 : unsigned int operatorpos;
5408 : 4058 : unsigned int subexprpos;
5409 : 4058 : M2Quads_QuadOperator op;
5410 : :
5411 : 4058 : M2Quads_GetQuadOTypetok (quad, &operatorpos, &op, &des, &left, &right, &overflowChecking, &typeChecking, &constExpr, &despos, &leftpos, &rightpos);
5412 : 4058 : if ((typeChecking && (op != M2Quads_LogicalRotateOp)) && (op != M2Quads_LogicalShiftOp))
5413 : : {
5414 : 2690 : subexprpos = M2LexBuf_MakeVirtualTok (operatorpos, leftpos, rightpos);
5415 : 2690 : lefttype = SymbolTable_GetType (left);
5416 : 2690 : righttype = SymbolTable_GetType (right);
5417 : 2690 : if (M2Options_StrictTypeChecking && (! (M2Check_ExpressionTypeCompatible (subexprpos, (const char *) "", 0, lefttype, righttype, M2Options_StrictTypeChecking, false))))
5418 : : {
5419 : 0 : M2MetaError_MetaErrorT2 (subexprpos, (const char *) "expression mismatch between {%1Etad} and {%2tad}", 48, left, right);
5420 : 0 : NoChange = false;
5421 : 0 : M2Quads_SubQuad (quad);
5422 : 0 : (*p.proc) (des);
5423 : 0 : return false;
5424 : : }
5425 : : /* --fixme-- the ExpressionTypeCompatible above should be enough
5426 : : and the code below can be removed once ExpressionTypeCompatible
5427 : : is bug free. */
5428 : 2678 : if (! (M2Base_IsExpressionCompatible (lefttype, righttype)))
5429 : : {
5430 : 0 : ErrorMessageDecl (subexprpos, (const char *) "expression mismatch between {%1Etad} and {%2tad}", 48, left, right, true);
5431 : 0 : NoChange = false;
5432 : 0 : M2Quads_SubQuad (quad);
5433 : 0 : (*p.proc) (des);
5434 : 0 : return false;
5435 : : }
5436 : : }
5437 : : return true;
5438 : : /* static analysis guarentees a RETURN statement will be used before here. */
5439 : : __builtin_unreachable ();
5440 : : }
5441 : :
5442 : :
5443 : : /*
5444 : : CheckElementSetTypes - returns TRUE if all expression checks pass.
5445 : : If the expression check fails quad is removed,
5446 : : the walk procedure (des) is called and NoChange is
5447 : : set to FALSE.
5448 : : */
5449 : :
5450 : 1442 : static bool CheckElementSetTypes (unsigned int quad)
5451 : : {
5452 : 1442 : unsigned int lefttype;
5453 : 1442 : unsigned int righttype;
5454 : 1442 : unsigned int ignore;
5455 : 1442 : unsigned int left;
5456 : 1442 : unsigned int right;
5457 : 1442 : bool constExpr;
5458 : 1442 : bool overflowChecking;
5459 : 1442 : unsigned int ignorepos;
5460 : 1442 : unsigned int leftpos;
5461 : 1442 : unsigned int rightpos;
5462 : 1442 : unsigned int operatorpos;
5463 : 1442 : unsigned int subexprpos;
5464 : 1442 : M2Quads_QuadOperator op;
5465 : :
5466 : 1442 : M2Quads_GetQuadOtok (quad, &operatorpos, &op, &left, &right, &ignore, &overflowChecking, &constExpr, &leftpos, &rightpos, &ignorepos);
5467 : 1442 : subexprpos = M2LexBuf_MakeVirtualTok (operatorpos, leftpos, rightpos);
5468 : 1442 : lefttype = SymbolTable_GetType (left);
5469 : 1442 : righttype = SymbolTable_GetType (right);
5470 : : /* --fixme-- the ExpressionTypeCompatible below does not always catch
5471 : : type errors, it needs to be fixed and then some of the subsequent tests
5472 : : can be removed (and/or this procedure function rewritten). */
5473 : 1442 : if (M2Options_StrictTypeChecking && (! (M2Check_ExpressionTypeCompatible (subexprpos, (const char *) "", 0, lefttype, righttype, M2Options_StrictTypeChecking, true))))
5474 : : {
5475 : 0 : M2MetaError_MetaErrorT2 (subexprpos, (const char *) "the types used in expression {%1Etad} {%kIN} {%2tad} are incompatible", 69, left, right);
5476 : 0 : NoChange = false;
5477 : 0 : M2Quads_SubQuad (quad);
5478 : 0 : return false;
5479 : : }
5480 : 1442 : if ((righttype == SymbolTable_NulSym) || (! (SymbolTable_IsSet (SymbolTable_SkipType (righttype)))))
5481 : : {
5482 : 6 : M2MetaError_MetaErrorT1 (rightpos, (const char *) "an {%kIN} expression is expecting {%1Etad} to be a {%kSET} type", 63, right);
5483 : 6 : NoChange = false;
5484 : 6 : M2Quads_SubQuad (quad);
5485 : 6 : return false;
5486 : : }
5487 : 1436 : righttype = SymbolTable_GetType (SymbolTable_SkipType (righttype));
5488 : : /* Now fall though and compare the set element left against the type of set righttype. */
5489 : 1436 : if (! (M2Base_IsExpressionCompatible (lefttype, righttype)))
5490 : : {
5491 : 0 : ErrorMessageDecl (subexprpos, (const char *) "the types used in expression {%1Etad} {%kIN} {%2tad} are incompatible", 69, left, right, true);
5492 : 0 : NoChange = false;
5493 : 0 : M2Quads_SubQuad (quad);
5494 : 0 : return false;
5495 : : }
5496 : : return true;
5497 : : /* static analysis guarentees a RETURN statement will be used before here. */
5498 : : __builtin_unreachable ();
5499 : : }
5500 : :
5501 : :
5502 : : /*
5503 : : CodeBinarySet - encode a binary set arithmetic operation.
5504 : : Set operands may be longer than a word.
5505 : : */
5506 : :
5507 : 888 : static void CodeBinarySet (m2expr_BuildBinProcedure binop, M2GenGCC_DoProcedure doOp, unsigned int quad)
5508 : : {
5509 : 888 : location_t location;
5510 : 888 : bool constExpr;
5511 : 888 : bool overflowChecking;
5512 : 888 : M2Quads_QuadOperator op;
5513 : 888 : unsigned int virttoken;
5514 : 888 : unsigned int virtexpr;
5515 : 888 : unsigned int des;
5516 : 888 : unsigned int left;
5517 : 888 : unsigned int right;
5518 : 888 : unsigned int despos;
5519 : 888 : unsigned int leftpos;
5520 : 888 : unsigned int rightpos;
5521 : 888 : unsigned int operatorpos;
5522 : :
5523 : 888 : M2Quads_GetQuadOtok (quad, &operatorpos, &op, &des, &left, &right, &overflowChecking, &constExpr, &despos, &leftpos, &rightpos);
5524 : : /* Firstly ensure that constant literals are declared. */
5525 : 888 : M2GCCDeclare_DeclareConstant (rightpos, right);
5526 : 888 : M2GCCDeclare_DeclareConstant (leftpos, left);
5527 : 888 : M2GCCDeclare_DeclareConstructor (rightpos, quad, right);
5528 : 888 : M2GCCDeclare_DeclareConstructor (leftpos, quad, left);
5529 : 888 : virttoken = M2LexBuf_MakeVirtualTok (operatorpos, despos, rightpos);
5530 : 888 : location = M2LexBuf_TokenToLocation (virttoken);
5531 : 888 : if (CheckBinaryExpressionTypes (quad, (M2GCCDeclare_WalkAction) {(M2GCCDeclare_WalkAction_t) NoWalkProcedure}))
5532 : : {
5533 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
5534 : 888 : if (SymbolTable_IsConst (des))
5535 : : {
5536 : 6 : virtexpr = M2LexBuf_MakeVirtualTok (operatorpos, leftpos, rightpos);
5537 : 6 : if ((SymbolTable_IsValueSolved (left)) && (SymbolTable_IsValueSolved (right)))
5538 : : {
5539 : 6 : M2Debug_Assert ((M2Base_MixTypes (FindType (right), FindType (left), virtexpr)) != SymbolTable_NulSym);
5540 : 6 : SymbolTable_PutConst (des, FindType (right));
5541 : 6 : SymbolTable_PushValue (left);
5542 : 6 : SymbolTable_PushValue (right);
5543 : 6 : (*doOp.proc) (virttoken);
5544 : 6 : SymbolTable_PopValue (des);
5545 : 6 : SymbolTable_PutConstSet (des);
5546 : : }
5547 : : else
5548 : : {
5549 : 0 : M2MetaError_MetaErrorT0 (virtexpr, (const char *) "{%E}constant expression cannot be evaluated", 43);
5550 : : }
5551 : : }
5552 : : else
5553 : : {
5554 : 882 : checkDeclare (des);
5555 : 882 : m2expr_BuildBinaryForeachWordDo (location, SymbolConversion_Mod2Gcc (SymbolTable_SkipType (SymbolTable_GetType (des))), SymbolConversion_Mod2Gcc (des), SymbolConversion_Mod2Gcc (left), SymbolConversion_Mod2Gcc (right), (m2expr_BuildBinProcedure_C) binop.proc, (SymbolTable_GetMode (des)) == SymbolTable_LeftValue, (SymbolTable_GetMode (left)) == SymbolTable_LeftValue, (SymbolTable_GetMode (right)) == SymbolTable_LeftValue, SymbolTable_IsConst (des), SymbolTable_IsConst (left), SymbolTable_IsConst (right));
5556 : : }
5557 : : }
5558 : 888 : }
5559 : :
5560 : :
5561 : : /*
5562 : : CheckUnaryOperand - checks to see whether operand is using a generic type.
5563 : : */
5564 : :
5565 : 818 : static bool CheckUnaryOperand (unsigned int quad, unsigned int operand)
5566 : : {
5567 : 818 : unsigned int type;
5568 : 818 : DynamicStrings_String s;
5569 : 818 : DynamicStrings_String op;
5570 : :
5571 : 818 : type = SymbolTable_SkipType (SymbolTable_GetType (operand));
5572 : 818 : if ((((M2System_Word == type) || (M2System_IsWordN (type))) || (M2System_Byte == type)) || (M2System_Loc == type))
5573 : : {
5574 : 6 : op = M2Quads_GetM2OperatorDesc (M2Quads_GetQuadOp (quad));
5575 : 6 : s = DynamicStrings_InitString ((const char *) "operand of type {%1Ets} is not allowed in an unary expression", 61);
5576 : 6 : if (op != NULL)
5577 : : {
5578 : 6 : s = DynamicStrings_ConCatChar (s, ' ');
5579 : 6 : s = DynamicStrings_ConCat (s, DynamicStrings_Mark (op));
5580 : : }
5581 : 6 : M2MetaError_MetaErrorStringT1 (CurrentQuadToken, s, operand);
5582 : 6 : return false;
5583 : : }
5584 : : return true;
5585 : : /* static analysis guarentees a RETURN statement will be used before here. */
5586 : : __builtin_unreachable ();
5587 : : }
5588 : :
5589 : :
5590 : : /*
5591 : : UnaryOperand - returns TRUE if operand is acceptable for
5592 : : unary operator: + -. If FALSE
5593 : : is returned, an error message will be generated
5594 : : and the quad is deleted.
5595 : : */
5596 : :
5597 : 818 : static bool UnaryOperand (unsigned int quad, unsigned int operand)
5598 : : {
5599 : 818 : if (! (CheckUnaryOperand (quad, operand)))
5600 : : {
5601 : 6 : M2Quads_SubQuad (quad); /* We do not want multiple copies of the same error. */
5602 : 6 : return false; /* We do not want multiple copies of the same error. */
5603 : : }
5604 : : return true;
5605 : : /* static analysis guarentees a RETURN statement will be used before here. */
5606 : : __builtin_unreachable ();
5607 : : }
5608 : :
5609 : :
5610 : : /*
5611 : : CheckBinaryOperand - checks to see whether operand is using a generic type.
5612 : : */
5613 : :
5614 : 1241686 : static bool CheckBinaryOperand (unsigned int quad, bool isleft, unsigned int operand, bool result)
5615 : : {
5616 : 1241686 : unsigned int type;
5617 : 1241686 : M2Quads_QuadOperator qop;
5618 : 1241686 : unsigned int op1;
5619 : 1241686 : unsigned int op2;
5620 : 1241686 : unsigned int op3;
5621 : 1241686 : unsigned int op1pos;
5622 : 1241686 : unsigned int op2pos;
5623 : 1241686 : unsigned int op3pos;
5624 : 1241686 : DynamicStrings_String s;
5625 : 1241686 : DynamicStrings_String op;
5626 : :
5627 : 1241686 : type = SymbolTable_SkipType (SymbolTable_GetType (operand));
5628 : 1241686 : if ((((M2System_Word == type) || (M2System_IsWordN (type))) || (M2System_Byte == type)) || (M2System_Loc == type))
5629 : : {
5630 : 18 : M2Quads_GetQuadtok (quad, &qop, &op1, &op2, &op3, &op1pos, &op2pos, &op3pos);
5631 : 18 : op = M2Quads_GetM2OperatorDesc (M2Quads_GetQuadOp (quad));
5632 : 18 : if (isleft)
5633 : : {
5634 : 6 : s = DynamicStrings_InitString ((const char *) "left operand {%1Ea} of type {%1Ets} is not allowed in binary expression", 71);
5635 : : }
5636 : : else
5637 : : {
5638 : 12 : s = DynamicStrings_InitString ((const char *) "right operand {%1Ea} of type {%1Ets} is not allowed in binary expression", 72);
5639 : : }
5640 : 18 : if (op != NULL)
5641 : : {
5642 : 18 : s = DynamicStrings_ConCatChar (s, ' ');
5643 : 18 : s = DynamicStrings_ConCat (s, DynamicStrings_Mark (op));
5644 : : }
5645 : 18 : M2MetaError_MetaErrorStringT1 (op1pos, s, operand);
5646 : 18 : return false;
5647 : : }
5648 : : return result;
5649 : : /* static analysis guarentees a RETURN statement will be used before here. */
5650 : : __builtin_unreachable ();
5651 : : }
5652 : :
5653 : :
5654 : : /*
5655 : : BinaryOperands - returns TRUE if, l, and, r, are acceptable for
5656 : : binary operator: + - / * and friends. If FALSE
5657 : : is returned, an error message will be generated
5658 : : and the, quad, is deleted.
5659 : : */
5660 : :
5661 : 620843 : static bool BinaryOperands (unsigned int quad, unsigned int l, unsigned int r)
5662 : : {
5663 : 620843 : bool result;
5664 : :
5665 : 620843 : result = CheckBinaryOperand (quad, true, l, true);
5666 : 620843 : result = CheckBinaryOperand (quad, false, r, result);
5667 : 620843 : if (! result)
5668 : : {
5669 : 12 : M2Quads_SubQuad (quad); /* We do not want multiple copies of the same error. */
5670 : : }
5671 : 620843 : return result;
5672 : : /* static analysis guarentees a RETURN statement will be used before here. */
5673 : : __builtin_unreachable ();
5674 : : }
5675 : :
5676 : :
5677 : : /*
5678 : : IsConstStr - returns TRUE if sym is a constant string or a char constant.
5679 : : */
5680 : :
5681 : 358248 : static bool IsConstStr (unsigned int sym)
5682 : : {
5683 : 358248 : return (SymbolTable_IsConstString (sym)) || ((SymbolTable_IsConst (sym)) && ((SymbolTable_GetSType (sym)) == M2Base_Char));
5684 : : /* static analysis guarentees a RETURN statement will be used before here. */
5685 : : __builtin_unreachable ();
5686 : : }
5687 : :
5688 : :
5689 : : /*
5690 : : IsConstStrKnown - returns TRUE if sym is a constant string or a char constant
5691 : : which is known.
5692 : : */
5693 : :
5694 : 38714 : static bool IsConstStrKnown (unsigned int sym)
5695 : : {
5696 : 38714 : return ((SymbolTable_IsConstString (sym)) && (SymbolTable_IsConstStringKnown (sym))) || ((SymbolTable_IsConst (sym)) && ((SymbolTable_GetSType (sym)) == M2Base_Char));
5697 : : /* static analysis guarentees a RETURN statement will be used before here. */
5698 : : __builtin_unreachable ();
5699 : : }
5700 : :
5701 : :
5702 : : /*
5703 : : GetStr - return a string containing a constant string value associated with sym.
5704 : : A nul char constant will return an empty string.
5705 : : */
5706 : :
5707 : 38546 : static DynamicStrings_String GetStr (unsigned int tokenno, unsigned int sym)
5708 : : {
5709 : 38546 : char ch;
5710 : :
5711 : 38546 : M2Debug_Assert (SymbolTable_IsConst (sym));
5712 : 38546 : if (SymbolTable_IsConstString (sym))
5713 : : {
5714 : 38522 : return DynamicStrings_InitStringCharStar (NameKey_KeyToCharStar (SymbolTable_GetString (sym)));
5715 : : }
5716 : : else
5717 : : {
5718 : 24 : M2Debug_Assert ((SymbolTable_GetSType (sym)) == M2Base_Char);
5719 : 24 : SymbolTable_PushValue (sym);
5720 : 24 : ch = M2ALU_PopChar (tokenno);
5721 : 24 : return DynamicStrings_InitStringChar (ch);
5722 : : }
5723 : : /* static analysis guarentees a RETURN statement will be used before here. */
5724 : : __builtin_unreachable ();
5725 : : }
5726 : :
5727 : :
5728 : : /*
5729 : : FoldAdd - check addition for constant folding. It checks for conststrings
5730 : : overloading the +.
5731 : : */
5732 : :
5733 : 320026 : static void FoldAdd (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
5734 : : {
5735 : 320026 : DynamicStrings_String s;
5736 : :
5737 : 320026 : if ((IsConstStr (op2)) && (IsConstStr (op3)))
5738 : : {
5739 : : /* avoid dangling else. */
5740 : 516 : if ((IsConstStrKnown (op2)) && (IsConstStrKnown (op3)))
5741 : : {
5742 : : /* Handle special addition for constant strings. */
5743 : 468 : s = DynamicStrings_Dup (GetStr (tokenno, op2));
5744 : 468 : s = DynamicStrings_ConCat (s, GetStr (tokenno, op3));
5745 : 468 : SymbolTable_PutConstStringKnown (tokenno, op1, NameKey_makekey (DynamicStrings_string (s)), false, true);
5746 : 468 : M2GCCDeclare_TryDeclareConstant (tokenno, op1);
5747 : 468 : (*p.proc) (op1);
5748 : 468 : NoChange = false;
5749 : 468 : M2Quads_SubQuad (quad);
5750 : 468 : s = DynamicStrings_KillString (s);
5751 : : }
5752 : : }
5753 : : else
5754 : : {
5755 : 319510 : FoldArithAdd (tokenno, p, quad, op1, op2, op3);
5756 : : }
5757 : 320014 : }
5758 : :
5759 : :
5760 : : /*
5761 : : FoldArithAdd - check arithmetic addition for constant folding.
5762 : : */
5763 : :
5764 : 319510 : static void FoldArithAdd (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
5765 : : {
5766 : 319510 : if (BinaryOperands (quad, op2, op3))
5767 : : {
5768 : 319498 : FoldBinary (tokenno, p, (m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildAdd}, quad, op1, op2, op3);
5769 : : }
5770 : 319498 : }
5771 : :
5772 : :
5773 : : /*
5774 : : CodeAddChecked - code an addition instruction, determine whether checking
5775 : : is required.
5776 : : */
5777 : :
5778 : 27864 : static void CodeAddChecked (unsigned int quad, unsigned int left, unsigned int right)
5779 : : {
5780 : 27864 : if (M2Quads_MustCheckOverflow (quad))
5781 : : {
5782 : 18498 : CodeAddCheck (quad, left, right);
5783 : : }
5784 : : else
5785 : : {
5786 : 9366 : CodeAdd (quad, left, right);
5787 : : }
5788 : 27864 : }
5789 : :
5790 : :
5791 : : /*
5792 : : CodeAddCheck - encode addition but check for overflow.
5793 : : */
5794 : :
5795 : 18498 : static void CodeAddCheck (unsigned int quad, unsigned int left, unsigned int right)
5796 : : {
5797 : 18498 : if (BinaryOperands (quad, left, right))
5798 : : {
5799 : 18498 : CodeBinaryCheck ((m2expr_BuildBinCheckProcedure) {(m2expr_BuildBinCheckProcedure_t) m2expr_BuildAddCheck}, quad);
5800 : : }
5801 : 18498 : }
5802 : :
5803 : :
5804 : : /*
5805 : : CodeAdd - encode addition.
5806 : : */
5807 : :
5808 : 9366 : static void CodeAdd (unsigned int quad, unsigned int left, unsigned int right)
5809 : : {
5810 : 9366 : if (BinaryOperands (quad, left, right))
5811 : : {
5812 : 9366 : CodeBinary ((m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildAdd}, quad);
5813 : : }
5814 : 9366 : }
5815 : :
5816 : :
5817 : : /*
5818 : : FoldSub - check subtraction for constant folding.
5819 : : */
5820 : :
5821 : 119538 : static void FoldSub (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
5822 : : {
5823 : 119538 : if (BinaryOperands (quad, op2, op3))
5824 : : {
5825 : 119538 : FoldBinary (tokenno, p, (m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildSub}, quad, op1, op2, op3);
5826 : : }
5827 : 119538 : }
5828 : :
5829 : :
5830 : : /*
5831 : : CodeSubChecked - code a subtract instruction, determine whether checking
5832 : : is required.
5833 : : */
5834 : :
5835 : 8190 : static void CodeSubChecked (unsigned int quad, unsigned int left, unsigned int right)
5836 : : {
5837 : 8190 : if (M2Quads_MustCheckOverflow (quad))
5838 : : {
5839 : 8190 : CodeSubCheck (quad, left, right);
5840 : : }
5841 : : else
5842 : : {
5843 : 0 : CodeSub (quad, left, right);
5844 : : }
5845 : 8190 : }
5846 : :
5847 : :
5848 : : /*
5849 : : CodeSubCheck - encode subtraction but check for overflow.
5850 : : */
5851 : :
5852 : 8190 : static void CodeSubCheck (unsigned int quad, unsigned int left, unsigned int right)
5853 : : {
5854 : 8190 : if (BinaryOperands (quad, left, right))
5855 : : {
5856 : 8190 : CodeBinaryCheck ((m2expr_BuildBinCheckProcedure) {(m2expr_BuildBinCheckProcedure_t) m2expr_BuildSubCheck}, quad);
5857 : : }
5858 : 8190 : }
5859 : :
5860 : :
5861 : : /*
5862 : : CodeSub - encode subtraction.
5863 : : */
5864 : :
5865 : 0 : static void CodeSub (unsigned int quad, unsigned int left, unsigned int right)
5866 : : {
5867 : 0 : if (BinaryOperands (quad, left, right))
5868 : : {
5869 : 0 : CodeBinary ((m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildSub}, quad);
5870 : : }
5871 : 0 : }
5872 : :
5873 : :
5874 : : /*
5875 : : FoldMult - check multiplication for constant folding.
5876 : : */
5877 : :
5878 : 88222 : static void FoldMult (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
5879 : : {
5880 : 88222 : if (BinaryOperands (quad, op2, op3))
5881 : : {
5882 : 88222 : FoldBinary (tokenno, p, (m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildMult}, quad, op1, op2, op3);
5883 : : }
5884 : 88222 : }
5885 : :
5886 : :
5887 : : /*
5888 : : CodeMultChecked - code a multiplication instruction, determine whether checking
5889 : : is required.
5890 : : */
5891 : :
5892 : 9988 : static void CodeMultChecked (unsigned int quad, unsigned int left, unsigned int right)
5893 : : {
5894 : 9988 : if (M2Quads_MustCheckOverflow (quad))
5895 : : {
5896 : 9988 : CodeMultCheck (quad, left, right);
5897 : : }
5898 : : else
5899 : : {
5900 : 0 : CodeMult (quad, left, right);
5901 : : }
5902 : 9988 : }
5903 : :
5904 : :
5905 : : /*
5906 : : CodeMultCheck - encode multiplication but check for overflow.
5907 : : */
5908 : :
5909 : 9988 : static void CodeMultCheck (unsigned int quad, unsigned int left, unsigned int right)
5910 : : {
5911 : 9988 : if (BinaryOperands (quad, left, right))
5912 : : {
5913 : 9988 : CodeBinaryCheck ((m2expr_BuildBinCheckProcedure) {(m2expr_BuildBinCheckProcedure_t) m2expr_BuildMultCheck}, quad);
5914 : : }
5915 : 9988 : }
5916 : :
5917 : :
5918 : : /*
5919 : : CodeMult - encode multiplication.
5920 : : */
5921 : :
5922 : 0 : static void CodeMult (unsigned int quad, unsigned int left, unsigned int right)
5923 : : {
5924 : 0 : if (BinaryOperands (quad, left, right))
5925 : : {
5926 : 0 : CodeBinary ((m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildMult}, quad);
5927 : : }
5928 : 0 : }
5929 : :
5930 : :
5931 : : /*
5932 : : CodeDivM2Checked - code a divide instruction, determine whether checking
5933 : : is required.
5934 : : */
5935 : :
5936 : 1644 : static void CodeDivM2Checked (unsigned int quad, unsigned int left, unsigned int right)
5937 : : {
5938 : 1644 : if (M2Quads_MustCheckOverflow (quad))
5939 : : {
5940 : 1644 : CodeDivM2Check (quad, left, right);
5941 : : }
5942 : : else
5943 : : {
5944 : 0 : CodeDivM2 (quad, left, right);
5945 : : }
5946 : 1644 : }
5947 : :
5948 : :
5949 : : /*
5950 : : CodeDivM2Check - encode addition but check for overflow.
5951 : : */
5952 : :
5953 : 1644 : static void CodeDivM2Check (unsigned int quad, unsigned int left, unsigned int right)
5954 : : {
5955 : 1644 : if (BinaryOperands (quad, left, right))
5956 : : {
5957 : 1644 : CodeBinaryCheck ((m2expr_BuildBinCheckProcedure) {(m2expr_BuildBinCheckProcedure_t) m2expr_BuildDivM2Check}, quad);
5958 : : }
5959 : 1644 : }
5960 : :
5961 : :
5962 : : /*
5963 : : CodeModM2Checked - code a modulus instruction, determine whether checking
5964 : : is required.
5965 : : */
5966 : :
5967 : 1792 : static void CodeModM2Checked (unsigned int quad, unsigned int left, unsigned int right)
5968 : : {
5969 : 1792 : if (M2Quads_MustCheckOverflow (quad))
5970 : : {
5971 : 1792 : CodeModM2Check (quad, left, right);
5972 : : }
5973 : : else
5974 : : {
5975 : 0 : CodeModM2 (quad, left, right);
5976 : : }
5977 : 1792 : }
5978 : :
5979 : :
5980 : : /*
5981 : : CodeModM2Check - encode addition but check for overflow.
5982 : : */
5983 : :
5984 : 1792 : static void CodeModM2Check (unsigned int quad, unsigned int left, unsigned int right)
5985 : : {
5986 : 1792 : if (BinaryOperands (quad, left, right))
5987 : : {
5988 : 1792 : CodeBinaryCheck ((m2expr_BuildBinCheckProcedure) {(m2expr_BuildBinCheckProcedure_t) m2expr_BuildModM2Check}, quad);
5989 : : }
5990 : 1792 : }
5991 : :
5992 : :
5993 : : /*
5994 : : BinaryOperandRealFamily -
5995 : : */
5996 : :
5997 : 39292 : static bool BinaryOperandRealFamily (unsigned int op)
5998 : : {
5999 : 39292 : unsigned int t;
6000 : :
6001 : 39292 : t = SymbolTable_SkipType (SymbolTable_GetType (op));
6002 : 39292 : return (((M2Base_IsComplexType (t)) || (M2System_IsComplexN (t))) || (M2Base_IsRealType (t))) || (M2System_IsRealN (t));
6003 : : /* static analysis guarentees a RETURN statement will be used before here. */
6004 : : __builtin_unreachable ();
6005 : : }
6006 : :
6007 : :
6008 : : /*
6009 : : FoldDivM2 - check division for constant folding.
6010 : : */
6011 : :
6012 : 13593 : static void FoldDivM2 (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
6013 : : {
6014 : 13593 : if (BinaryOperands (quad, op2, op3))
6015 : : {
6016 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
6017 : 13593 : if ((BinaryOperandRealFamily (op2)) || (BinaryOperandRealFamily (op3)))
6018 : : {
6019 : 0 : FoldBinary (tokenno, p, (m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildRDiv}, quad, op1, op2, op3);
6020 : : }
6021 : : else
6022 : : {
6023 : 13593 : FoldBinary (tokenno, p, (m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildDivM2}, quad, op1, op2, op3);
6024 : : }
6025 : : }
6026 : 13593 : }
6027 : :
6028 : :
6029 : : /*
6030 : : CodeDivM2 - encode division.
6031 : : */
6032 : :
6033 : 0 : static void CodeDivM2 (unsigned int quad, unsigned int left, unsigned int right)
6034 : : {
6035 : 0 : if (BinaryOperands (quad, left, right))
6036 : : {
6037 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
6038 : 0 : if ((BinaryOperandRealFamily (left)) || (BinaryOperandRealFamily (right)))
6039 : : {
6040 : 0 : CodeBinary ((m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildRDiv}, quad);
6041 : : }
6042 : : else
6043 : : {
6044 : 0 : CodeBinary ((m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildDivM2}, quad);
6045 : : }
6046 : : }
6047 : 0 : }
6048 : :
6049 : :
6050 : : /*
6051 : : FoldModM2 - check modulus for constant folding.
6052 : : */
6053 : :
6054 : 21758 : static void FoldModM2 (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
6055 : : {
6056 : 21758 : if (BinaryOperands (quad, op2, op3))
6057 : : {
6058 : 21758 : FoldBinary (tokenno, p, (m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildModM2}, quad, op1, op2, op3);
6059 : : }
6060 : 21758 : }
6061 : :
6062 : :
6063 : : /*
6064 : : CodeModM2 - encode modulus.
6065 : : */
6066 : :
6067 : 0 : static void CodeModM2 (unsigned int quad, unsigned int left, unsigned int right)
6068 : : {
6069 : 0 : if (BinaryOperands (quad, left, right))
6070 : : {
6071 : 0 : CodeBinary ((m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildModM2}, quad);
6072 : : }
6073 : 0 : }
6074 : :
6075 : :
6076 : : /*
6077 : : FoldDivTrunc - check division for constant folding.
6078 : : */
6079 : :
6080 : 8218 : static void FoldDivTrunc (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
6081 : : {
6082 : 8218 : if (BinaryOperands (quad, op2, op3))
6083 : : {
6084 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
6085 : 8218 : if ((BinaryOperandRealFamily (op2)) || (BinaryOperandRealFamily (op3)))
6086 : : {
6087 : 5054 : FoldBinary (tokenno, p, (m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildRDiv}, quad, op1, op2, op3);
6088 : : }
6089 : : else
6090 : : {
6091 : 3164 : FoldBinary (tokenno, p, (m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildDivTrunc}, quad, op1, op2, op3);
6092 : : }
6093 : : }
6094 : 8218 : }
6095 : :
6096 : :
6097 : : /*
6098 : : CodeDivTrunc - encode multiplication.
6099 : : */
6100 : :
6101 : 430 : static void CodeDivTrunc (unsigned int quad, unsigned int left, unsigned int right)
6102 : : {
6103 : 430 : if (BinaryOperands (quad, left, right))
6104 : : {
6105 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
6106 : 430 : if ((BinaryOperandRealFamily (left)) || (BinaryOperandRealFamily (right)))
6107 : : {
6108 : 136 : CodeBinary ((m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildRDiv}, quad);
6109 : : }
6110 : : else
6111 : : {
6112 : 294 : CodeBinary ((m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildDivTrunc}, quad);
6113 : : }
6114 : : }
6115 : 430 : }
6116 : :
6117 : :
6118 : : /*
6119 : : FoldModTrunc - check modulus for constant folding.
6120 : : */
6121 : :
6122 : 96 : static void FoldModTrunc (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
6123 : : {
6124 : 96 : if (BinaryOperands (quad, op2, op3))
6125 : : {
6126 : 96 : FoldBinary (tokenno, p, (m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildModTrunc}, quad, op1, op2, op3);
6127 : : }
6128 : 96 : }
6129 : :
6130 : :
6131 : : /*
6132 : : CodeModTrunc - encode modulus.
6133 : : */
6134 : :
6135 : 0 : static void CodeModTrunc (unsigned int quad, unsigned int left, unsigned int right)
6136 : : {
6137 : 0 : if (BinaryOperands (quad, left, right))
6138 : : {
6139 : 0 : CodeBinary ((m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildModTrunc}, quad);
6140 : : }
6141 : 0 : }
6142 : :
6143 : :
6144 : : /*
6145 : : FoldDivCeil - check division for constant folding.
6146 : : */
6147 : :
6148 : 0 : static void FoldDivCeil (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
6149 : : {
6150 : 0 : if (BinaryOperands (quad, op2, op3))
6151 : : {
6152 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
6153 : 0 : if ((BinaryOperandRealFamily (op2)) || (BinaryOperandRealFamily (op3)))
6154 : : {
6155 : 0 : FoldBinary (tokenno, p, (m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildRDiv}, quad, op1, op2, op3);
6156 : : }
6157 : : else
6158 : : {
6159 : 0 : FoldBinary (tokenno, p, (m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildDivCeil}, quad, op1, op2, op3);
6160 : : }
6161 : : }
6162 : 0 : }
6163 : :
6164 : :
6165 : : /*
6166 : : CodeDivCeil - encode multiplication.
6167 : : */
6168 : :
6169 : 0 : static void CodeDivCeil (unsigned int quad, unsigned int left, unsigned int right)
6170 : : {
6171 : 0 : if (BinaryOperands (quad, left, right))
6172 : : {
6173 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
6174 : 0 : if ((BinaryOperandRealFamily (left)) || (BinaryOperandRealFamily (right)))
6175 : : {
6176 : 0 : CodeBinary ((m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildRDiv}, quad);
6177 : : }
6178 : : else
6179 : : {
6180 : 0 : CodeBinary ((m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildDivCeil}, quad);
6181 : : }
6182 : : }
6183 : 0 : }
6184 : :
6185 : :
6186 : : /*
6187 : : FoldModCeil - check modulus for constant folding.
6188 : : */
6189 : :
6190 : 0 : static void FoldModCeil (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
6191 : : {
6192 : 0 : if (BinaryOperands (quad, op2, op3))
6193 : : {
6194 : 0 : FoldBinary (tokenno, p, (m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildModCeil}, quad, op1, op2, op3);
6195 : : }
6196 : 0 : }
6197 : :
6198 : :
6199 : : /*
6200 : : CodeModCeil - encode multiplication.
6201 : : */
6202 : :
6203 : 0 : static void CodeModCeil (unsigned int quad, unsigned int left, unsigned int right)
6204 : : {
6205 : 0 : if (BinaryOperands (quad, left, right))
6206 : : {
6207 : 0 : CodeBinary ((m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildModCeil}, quad);
6208 : : }
6209 : 0 : }
6210 : :
6211 : :
6212 : : /*
6213 : : FoldDivFloor - check division for constant folding.
6214 : : */
6215 : :
6216 : 0 : static void FoldDivFloor (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
6217 : : {
6218 : 0 : if (BinaryOperands (quad, op2, op3))
6219 : : {
6220 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
6221 : 0 : if ((BinaryOperandRealFamily (op2)) || (BinaryOperandRealFamily (op3)))
6222 : : {
6223 : 0 : FoldBinary (tokenno, p, (m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildRDiv}, quad, op1, op2, op3);
6224 : : }
6225 : : else
6226 : : {
6227 : 0 : FoldBinary (tokenno, p, (m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildDivFloor}, quad, op1, op2, op3);
6228 : : }
6229 : : }
6230 : 0 : }
6231 : :
6232 : :
6233 : : /*
6234 : : CodeDivFloor - encode multiplication.
6235 : : */
6236 : :
6237 : 0 : static void CodeDivFloor (unsigned int quad, unsigned int left, unsigned int right)
6238 : : {
6239 : 0 : if (BinaryOperands (quad, left, right))
6240 : : {
6241 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
6242 : 0 : if ((BinaryOperandRealFamily (left)) || (BinaryOperandRealFamily (right)))
6243 : : {
6244 : 0 : CodeBinary ((m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildRDiv}, quad);
6245 : : }
6246 : : else
6247 : : {
6248 : 0 : CodeBinary ((m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildDivFloor}, quad);
6249 : : }
6250 : : }
6251 : 0 : }
6252 : :
6253 : :
6254 : : /*
6255 : : FoldModFloor - check modulus for constant folding.
6256 : : */
6257 : :
6258 : 0 : static void FoldModFloor (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
6259 : : {
6260 : 0 : if (BinaryOperands (quad, op2, op3))
6261 : : {
6262 : 0 : FoldBinary (tokenno, p, (m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildModFloor}, quad, op1, op2, op3);
6263 : : }
6264 : 0 : }
6265 : :
6266 : :
6267 : : /*
6268 : : CodeModFloor - encode modulus.
6269 : : */
6270 : :
6271 : 0 : static void CodeModFloor (unsigned int quad, unsigned int left, unsigned int right)
6272 : : {
6273 : 0 : if (BinaryOperands (quad, left, right))
6274 : : {
6275 : 0 : CodeBinary ((m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildModFloor}, quad);
6276 : : }
6277 : 0 : }
6278 : :
6279 : :
6280 : : /*
6281 : : FoldBuiltinConst -
6282 : : */
6283 : :
6284 : 26330 : static void FoldBuiltinConst (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int result, unsigned int constDesc)
6285 : : {
6286 : 26330 : tree value;
6287 : :
6288 : 26330 : value = m2builtins_GetBuiltinConst (reinterpret_cast <char * > (NameKey_KeyToCharStar ((NameKey_Name) (constDesc))));
6289 : 26330 : if (value == NULL)
6290 : : {
6291 : 0 : M2MetaError_MetaErrorT1 (tokenno, (const char *) "unknown built in constant {%1Ead}", 33, constDesc);
6292 : : }
6293 : : else
6294 : : {
6295 : 26330 : SymbolConversion_AddModGcc (result, value);
6296 : 26330 : (*p.proc) (result);
6297 : 26330 : NoChange = false;
6298 : 26330 : M2Quads_SubQuad (quad);
6299 : : }
6300 : 26330 : }
6301 : :
6302 : :
6303 : : /*
6304 : : FoldBuiltinTypeInfo - attempts to fold a builtin attribute value on type op2.
6305 : : */
6306 : :
6307 : 360 : static void FoldBuiltinTypeInfo (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
6308 : : {
6309 : 360 : tree t;
6310 : 360 : location_t location;
6311 : :
6312 : 360 : if ((SymbolConversion_GccKnowsAbout (op2)) && (M2GCCDeclare_CompletelyResolved (op2)))
6313 : : {
6314 : 360 : location = M2LexBuf_TokenToLocation (tokenno);
6315 : 360 : t = m2builtins_GetBuiltinTypeInfo (location, SymbolConversion_Mod2Gcc (op2), const_cast <const char * > (static_cast <char * > (NameKey_KeyToCharStar ((NameKey_Name) (op3)))));
6316 : 360 : if (t == NULL)
6317 : : {
6318 : 0 : M2MetaError_MetaErrorT2 (tokenno, (const char *) "unknown built in constant {%1Ead} attribute for type {%2ad}", 59, op3, op2);
6319 : : }
6320 : : else
6321 : : {
6322 : 360 : SymbolConversion_AddModGcc (op1, t);
6323 : 360 : (*p.proc) (op1);
6324 : 360 : NoChange = false;
6325 : 360 : M2Quads_SubQuad (quad);
6326 : : }
6327 : : }
6328 : 360 : }
6329 : :
6330 : :
6331 : : /*
6332 : : FoldStandardFunction - attempts to fold a standard function.
6333 : : */
6334 : :
6335 : 3344 : static void FoldStandardFunction (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
6336 : : {
6337 : 3344 : DynamicStrings_String s;
6338 : 3344 : unsigned int type;
6339 : 3344 : unsigned int d;
6340 : 3344 : unsigned int result;
6341 : 3344 : location_t location;
6342 : :
6343 : 3344 : location = M2LexBuf_TokenToLocation (tokenno);
6344 : 3344 : if ((SymbolTable_GetSymName (op2)) == (NameKey_MakeKey ((const char *) "Length", 6)))
6345 : : {
6346 : : /* avoid dangling else. */
6347 : 0 : M2GCCDeclare_TryDeclareConstant (tokenno, op3);
6348 : 0 : if ((SymbolTable_IsConst (op3)) && (SymbolConversion_GccKnowsAbout (op3)))
6349 : : {
6350 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
6351 : : /* fine, we can take advantage of this and fold constants */
6352 : 0 : if (SymbolTable_IsConst (op1))
6353 : : {
6354 : 0 : if (SymbolTable_IsConstString (op3))
6355 : : {
6356 : 0 : SymbolConversion_AddModGcc (op1, FindSize (tokenno, op3));
6357 : 0 : (*p.proc) (op1);
6358 : 0 : NoChange = false;
6359 : 0 : M2Quads_SubQuad (quad);
6360 : : }
6361 : : else
6362 : : {
6363 : 0 : M2MetaError_MetaErrorT1 (tokenno, (const char *) "parameter to LENGTH must be a string {%1Ead}", 44, op3);
6364 : : }
6365 : : }
6366 : : else
6367 : : {
6368 : : /* rewrite the quad to use becomes. */
6369 : 0 : d = SymbolTable_GetStringLength (tokenno, op3);
6370 : 0 : s = FormatStrings_Sprintf1 (DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "%d", 2)), (const unsigned char *) &d, (sizeof (d)-1));
6371 : 0 : result = SymbolTable_MakeConstLit (tokenno, NameKey_makekey (DynamicStrings_string (s)), M2Base_Cardinal);
6372 : 0 : s = DynamicStrings_KillString (s);
6373 : 0 : M2GCCDeclare_TryDeclareConstant (tokenno, result);
6374 : 0 : M2Quads_PutQuad (quad, M2Quads_BecomesOp, op1, SymbolTable_NulSym, result);
6375 : : }
6376 : : }
6377 : : }
6378 : 3344 : else if ((SymbolTable_GetSymName (op2)) == (NameKey_MakeKey ((const char *) "CAP", 3)))
6379 : : {
6380 : : /* avoid dangling else. */
6381 : 694 : M2GCCDeclare_TryDeclareConstant (tokenno, op3);
6382 : 694 : if ((SymbolTable_IsConst (op3)) && (SymbolConversion_GccKnowsAbout (op3)))
6383 : : {
6384 : : /* fine, we can take advantage of this and fold constants */
6385 : 24 : if (SymbolTable_IsConst (op1))
6386 : : {
6387 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
6388 : 24 : if (((SymbolTable_IsConstString (op3)) && ((SymbolTable_GetStringLength (tokenno, op3)) == 1)) || ((SymbolTable_GetType (op3)) == M2Base_Char))
6389 : : {
6390 : 24 : SymbolConversion_AddModGcc (op1, m2expr_BuildCap (location, SymbolConversion_Mod2Gcc (op3)));
6391 : 24 : (*p.proc) (op1);
6392 : 24 : NoChange = false;
6393 : 24 : M2Quads_SubQuad (quad);
6394 : : }
6395 : : else
6396 : : {
6397 : 0 : M2MetaError_MetaErrorT1 (tokenno, (const char *) "parameter to CAP must be a single character {%1Ead}", 51, op3);
6398 : : }
6399 : : }
6400 : : }
6401 : : }
6402 : 2650 : else if ((SymbolTable_GetSymName (op2)) == (NameKey_MakeKey ((const char *) "ABS", 3)))
6403 : : {
6404 : : /* avoid dangling else. */
6405 : 580 : M2GCCDeclare_TryDeclareConstant (tokenno, op3);
6406 : 580 : if ((SymbolTable_IsConst (op3)) && (SymbolConversion_GccKnowsAbout (op3)))
6407 : : {
6408 : : /* fine, we can take advantage of this and fold constants */
6409 : 12 : if (SymbolTable_IsConst (op1))
6410 : : {
6411 : 12 : SymbolConversion_AddModGcc (op1, m2expr_BuildAbs (location, SymbolConversion_Mod2Gcc (op3)));
6412 : 12 : (*p.proc) (op1);
6413 : 12 : NoChange = false;
6414 : 12 : M2Quads_SubQuad (quad);
6415 : : }
6416 : : }
6417 : : }
6418 : 2070 : else if (op2 == M2Base_Im)
6419 : : {
6420 : : /* avoid dangling else. */
6421 : 90 : M2GCCDeclare_TryDeclareConstant (tokenno, op3);
6422 : 90 : if ((SymbolTable_IsConst (op3)) && (SymbolConversion_GccKnowsAbout (op3)))
6423 : : {
6424 : : /* fine, we can take advantage of this and fold constants */
6425 : 36 : if (SymbolTable_IsConst (op1))
6426 : : {
6427 : 36 : SymbolConversion_AddModGcc (op1, m2expr_BuildIm (SymbolConversion_Mod2Gcc (op3)));
6428 : 36 : (*p.proc) (op1);
6429 : 36 : NoChange = false;
6430 : 36 : M2Quads_SubQuad (quad);
6431 : : }
6432 : : }
6433 : : }
6434 : 1980 : else if (op2 == M2Base_Re)
6435 : : {
6436 : : /* avoid dangling else. */
6437 : 90 : M2GCCDeclare_TryDeclareConstant (tokenno, op3);
6438 : 90 : if ((SymbolTable_IsConst (op3)) && (SymbolConversion_GccKnowsAbout (op3)))
6439 : : {
6440 : : /* fine, we can take advantage of this and fold constants */
6441 : 36 : if (SymbolTable_IsConst (op1))
6442 : : {
6443 : 36 : SymbolConversion_AddModGcc (op1, m2expr_BuildRe (SymbolConversion_Mod2Gcc (op3)));
6444 : 36 : (*p.proc) (op1);
6445 : 36 : NoChange = false;
6446 : 36 : M2Quads_SubQuad (quad);
6447 : : }
6448 : : }
6449 : : }
6450 : 1890 : else if (op2 == M2Base_Cmplx)
6451 : : {
6452 : : /* avoid dangling else. */
6453 : 1122 : M2GCCDeclare_TryDeclareConstant (tokenno, SymbolTable_GetNth (op3, 1));
6454 : 1122 : M2GCCDeclare_TryDeclareConstant (tokenno, SymbolTable_GetNth (op3, 2));
6455 : 1122 : if ((((SymbolTable_IsConst (SymbolTable_GetNth (op3, 1))) && (SymbolConversion_GccKnowsAbout (SymbolTable_GetNth (op3, 1)))) && (SymbolTable_IsConst (SymbolTable_GetNth (op3, 2)))) && (SymbolConversion_GccKnowsAbout (SymbolTable_GetNth (op3, 2))))
6456 : : {
6457 : : /* fine, we can take advantage of this and fold constants */
6458 : 414 : if (SymbolTable_IsConst (op1))
6459 : : {
6460 : 414 : type = M2Base_GetCmplxReturnType (SymbolTable_GetType (SymbolTable_GetNth (op3, 1)), SymbolTable_GetType (SymbolTable_GetNth (op3, 2)));
6461 : 414 : if (type == SymbolTable_NulSym)
6462 : : {
6463 : 0 : M2MetaError_MetaErrorT2 (tokenno, (const char *) "real {%1Eatd} and imaginary {%2atd} types are incompatible", 58, SymbolTable_GetNth (op3, 1), SymbolTable_GetNth (op3, 2));
6464 : : }
6465 : : else
6466 : : {
6467 : 414 : SymbolConversion_AddModGcc (op1, m2expr_BuildCmplx (location, SymbolConversion_Mod2Gcc (type), SymbolConversion_Mod2Gcc (SymbolTable_GetNth (op3, 1)), SymbolConversion_Mod2Gcc (SymbolTable_GetNth (op3, 2))));
6468 : 414 : (*p.proc) (op1);
6469 : 414 : NoChange = false;
6470 : 414 : M2Quads_SubQuad (quad);
6471 : : }
6472 : : }
6473 : : }
6474 : : }
6475 : 768 : else if (op2 == M2System_TBitSize)
6476 : : {
6477 : : /* avoid dangling else. */
6478 : 768 : if (SymbolConversion_GccKnowsAbout (op3))
6479 : : {
6480 : 12 : SymbolConversion_AddModGcc (op1, m2expr_BuildTBitSize (location, SymbolConversion_Mod2Gcc (op3)));
6481 : 12 : (*p.proc) (op1);
6482 : 12 : NoChange = false;
6483 : 12 : M2Quads_SubQuad (quad);
6484 : : }
6485 : : }
6486 : : else
6487 : : {
6488 : : /* avoid dangling else. */
6489 : 0 : M2Error_InternalError ((const char *) "only expecting LENGTH, CAP, ABS, IM, RE", 39);
6490 : : }
6491 : 3344 : }
6492 : :
6493 : :
6494 : : /*
6495 : : CodeStandardFunction -
6496 : : */
6497 : :
6498 : 282 : static void CodeStandardFunction (unsigned int quad, unsigned int result, unsigned int function, unsigned int param)
6499 : : {
6500 : 282 : unsigned int type;
6501 : 282 : location_t location;
6502 : :
6503 : 282 : M2GCCDeclare_DeclareConstant (CurrentQuadToken, param);
6504 : 282 : M2GCCDeclare_DeclareConstructor (CurrentQuadToken, quad, param);
6505 : 282 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
6506 : 282 : if ((function != SymbolTable_NulSym) && ((SymbolTable_GetSymName (function)) == (NameKey_MakeKey ((const char *) "Length", 6))))
6507 : : {
6508 : : /* avoid dangling else. */
6509 : 0 : if (SymbolTable_IsConst (result))
6510 : : {
6511 : 0 : M2Error_InternalError ((const char *) "LENGTH function should already have been folded", 47);
6512 : : }
6513 : : }
6514 : 282 : else if ((function != SymbolTable_NulSym) && ((SymbolTable_GetSymName (function)) == (NameKey_MakeKey ((const char *) "CAP", 3))))
6515 : : {
6516 : : /* avoid dangling else. */
6517 : 82 : if (SymbolTable_IsConst (result))
6518 : : {
6519 : 0 : M2Error_InternalError ((const char *) "CAP function should already have been folded", 44);
6520 : : }
6521 : : else
6522 : : {
6523 : 82 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (result), m2expr_BuildCap (location, SymbolConversion_Mod2Gcc (param)));
6524 : : }
6525 : : }
6526 : 200 : else if ((function != SymbolTable_NulSym) && ((SymbolTable_GetSymName (function)) == (NameKey_MakeKey ((const char *) "ABS", 3))))
6527 : : {
6528 : : /* avoid dangling else. */
6529 : 92 : if (SymbolTable_IsConst (result))
6530 : : {
6531 : 0 : M2Error_InternalError ((const char *) "ABS function should already have been folded", 44);
6532 : : }
6533 : : else
6534 : : {
6535 : 92 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (result), m2expr_BuildAbs (location, SymbolConversion_Mod2Gcc (param)));
6536 : : }
6537 : : }
6538 : 108 : else if (function == M2Base_Im)
6539 : : {
6540 : : /* avoid dangling else. */
6541 : 18 : if (SymbolTable_IsConst (result))
6542 : : {
6543 : 0 : M2Error_InternalError ((const char *) "IM function should already have been folded", 43);
6544 : : }
6545 : : else
6546 : : {
6547 : 18 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (result), m2expr_BuildIm (SymbolConversion_Mod2Gcc (param)));
6548 : : }
6549 : : }
6550 : 90 : else if (function == M2Base_Re)
6551 : : {
6552 : : /* avoid dangling else. */
6553 : 18 : if (SymbolTable_IsConst (result))
6554 : : {
6555 : 0 : M2Error_InternalError ((const char *) "RE function should already have been folded", 43);
6556 : : }
6557 : : else
6558 : : {
6559 : 18 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (result), m2expr_BuildRe (SymbolConversion_Mod2Gcc (param)));
6560 : : }
6561 : : }
6562 : 72 : else if (function == M2Base_Cmplx)
6563 : : {
6564 : : /* avoid dangling else. */
6565 : 72 : if (SymbolTable_IsConst (result))
6566 : : {
6567 : 0 : M2Error_InternalError ((const char *) "CMPLX function should already have been folded", 46);
6568 : : }
6569 : : else
6570 : : {
6571 : 72 : type = M2Base_GetCmplxReturnType (SymbolTable_GetType (SymbolTable_GetNth (param, 1)), SymbolTable_GetType (SymbolTable_GetNth (param, 2)));
6572 : 72 : if (type == SymbolTable_NulSym)
6573 : : {
6574 : 0 : M2MetaError_MetaErrorT2 (CurrentQuadToken, (const char *) "real {%1Eatd} and imaginary {%2atd} types are incompatible", 58, SymbolTable_GetNth (param, 1), SymbolTable_GetNth (param, 2));
6575 : : }
6576 : : else
6577 : : {
6578 : 72 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (result), m2expr_BuildCmplx (location, SymbolConversion_Mod2Gcc (type), SymbolConversion_Mod2Gcc (SymbolTable_GetNth (param, 1)), SymbolConversion_Mod2Gcc (SymbolTable_GetNth (param, 2))));
6579 : : }
6580 : : }
6581 : : }
6582 : 0 : else if (function == M2System_TBitSize)
6583 : : {
6584 : : /* avoid dangling else. */
6585 : 0 : if (SymbolTable_IsConst (result))
6586 : : {
6587 : 0 : M2Error_InternalError ((const char *) "TBITSIZE function should already have been folded", 49);
6588 : : }
6589 : : else
6590 : : {
6591 : 0 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (result), m2expr_BuildTBitSize (location, SymbolConversion_Mod2Gcc (param)));
6592 : : }
6593 : : }
6594 : : else
6595 : : {
6596 : : /* avoid dangling else. */
6597 : 0 : M2Error_InternalError ((const char *) "expecting LENGTH, CAP, ABS, IM", 30);
6598 : : }
6599 : 282 : }
6600 : :
6601 : :
6602 : : /*
6603 : : CodeSavePriority - checks to see whether op2 is reachable and is directly accessible
6604 : : externally. If so then it saves the current interrupt priority
6605 : : in op1 and sets the current priority to that determined by
6606 : : appropriate module.
6607 : :
6608 : : op1 := op3(GetModuleScope(op2))
6609 : : */
6610 : :
6611 : 420 : static void CodeSavePriority (unsigned int oldValue, unsigned int scopeSym, unsigned int procedureSym)
6612 : : {
6613 : 420 : tree funcTree;
6614 : 420 : unsigned int mod;
6615 : 420 : NameKey_Name n;
6616 : 420 : location_t location;
6617 : :
6618 : 420 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
6619 : 420 : if (((SymbolTable_IsModule (scopeSym)) || (SymbolTable_IsDefImp (scopeSym))) || ((SymbolTable_IsProcedure (scopeSym)) && (SymbolTable_GetNeedSavePriority (scopeSym))))
6620 : : {
6621 : 206 : if (SymbolTable_IsProcedure (scopeSym))
6622 : : {
6623 : 130 : mod = SymbolTable_GetModuleScope (scopeSym);
6624 : : }
6625 : : else
6626 : : {
6627 : 76 : M2Debug_Assert ((SymbolTable_IsModule (scopeSym)) || (SymbolTable_IsDefImp (scopeSym)));
6628 : 76 : mod = scopeSym;
6629 : : }
6630 : 206 : if ((SymbolTable_GetPriority (mod)) != SymbolTable_NulSym)
6631 : : {
6632 : 206 : if (PriorityDebugging)
6633 : : {
6634 : : n = SymbolTable_GetSymName (scopeSym);
6635 : : M2Printf_printf1 ((const char *) "procedure <%a> needs to save interrupts\\n", 41, (const unsigned char *) &n, (sizeof (n)-1));
6636 : : }
6637 : 206 : M2GCCDeclare_DeclareConstant (CurrentQuadToken, SymbolTable_GetPriority (mod));
6638 : 206 : m2statement_BuildParam (location, SymbolConversion_Mod2Gcc (SymbolTable_GetPriority (mod)));
6639 : 206 : funcTree = m2statement_BuildProcedureCallTree (location, SymbolConversion_Mod2Gcc (procedureSym), SymbolConversion_Mod2Gcc (SymbolTable_GetType (procedureSym)));
6640 : 206 : funcTree = m2statement_BuildFunctValue (location, SymbolConversion_Mod2Gcc (oldValue));
6641 : 206 : m2type_AddStatement (location, funcTree);
6642 : : }
6643 : : }
6644 : 420 : }
6645 : :
6646 : :
6647 : : /*
6648 : : CodeRestorePriority - checks to see whether op2 is reachable and is directly accessible
6649 : : externally. If so then it restores the previous interrupt priority
6650 : : held in op1.
6651 : :
6652 : : op1 := op3(op1)
6653 : : */
6654 : :
6655 : 412 : static void CodeRestorePriority (unsigned int oldValue, unsigned int scopeSym, unsigned int procedureSym)
6656 : : {
6657 : 412 : tree funcTree;
6658 : 412 : unsigned int mod;
6659 : 412 : NameKey_Name n;
6660 : 412 : location_t location;
6661 : :
6662 : 412 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
6663 : 412 : if (((SymbolTable_IsModule (scopeSym)) || (SymbolTable_IsDefImp (scopeSym))) || ((SymbolTable_IsProcedure (scopeSym)) && (SymbolTable_GetNeedSavePriority (scopeSym))))
6664 : : {
6665 : 198 : if (SymbolTable_IsProcedure (scopeSym))
6666 : : {
6667 : 122 : mod = SymbolTable_GetModuleScope (scopeSym);
6668 : : }
6669 : : else
6670 : : {
6671 : 76 : M2Debug_Assert ((SymbolTable_IsModule (scopeSym)) || (SymbolTable_IsDefImp (scopeSym)));
6672 : 76 : mod = scopeSym;
6673 : : }
6674 : 198 : if ((SymbolTable_GetPriority (mod)) != SymbolTable_NulSym)
6675 : : {
6676 : 198 : if (PriorityDebugging)
6677 : : {
6678 : : n = SymbolTable_GetSymName (scopeSym);
6679 : : M2Printf_printf1 ((const char *) "procedure <%a> needs to restore interrupts\\n", 44, (const unsigned char *) &n, (sizeof (n)-1));
6680 : : }
6681 : 198 : m2statement_BuildParam (location, SymbolConversion_Mod2Gcc (oldValue));
6682 : 198 : funcTree = m2statement_BuildProcedureCallTree (location, SymbolConversion_Mod2Gcc (procedureSym), SymbolConversion_Mod2Gcc (SymbolTable_GetType (procedureSym)));
6683 : 198 : funcTree = m2statement_BuildFunctValue (location, SymbolConversion_Mod2Gcc (oldValue));
6684 : 198 : m2type_AddStatement (location, funcTree);
6685 : : }
6686 : : }
6687 : 412 : }
6688 : :
6689 : :
6690 : : /*
6691 : : FoldBinarySet - attempts to fold set arithmetic it removes the quad if successful.
6692 : : */
6693 : :
6694 : 46072 : static void FoldBinarySet (unsigned int tokenno, M2GCCDeclare_WalkAction p, M2GenGCC_DoProcedure op, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
6695 : : {
6696 : 46072 : location_t location;
6697 : :
6698 : : /* firstly try and ensure that constants are declared */
6699 : 46072 : M2GCCDeclare_TryDeclareConstant (tokenno, op2);
6700 : 46072 : M2GCCDeclare_TryDeclareConstant (tokenno, op3);
6701 : 46072 : location = M2LexBuf_TokenToLocation (tokenno);
6702 : 46072 : if ((SymbolConversion_GccKnowsAbout (op2)) && (SymbolConversion_GccKnowsAbout (op3)))
6703 : : {
6704 : 3170 : if (CheckBinaryExpressionTypes (quad, p))
6705 : : {
6706 : 3158 : if (((((SymbolTable_IsConst (op2)) && (SymbolTable_IsConstSet (op2))) && (SymbolTable_IsConst (op3))) && (SymbolTable_IsConstSet (op3))) && (SymbolTable_IsConst (op1)))
6707 : : {
6708 : 212 : if ((SymbolTable_IsValueSolved (op2)) && (SymbolTable_IsValueSolved (op3)))
6709 : : {
6710 : 212 : M2Debug_Assert ((M2Base_MixTypes (FindType (op3), FindType (op2), tokenno)) != SymbolTable_NulSym);
6711 : 212 : SymbolTable_PutConst (op1, M2Base_MixTypes (FindType (op3), FindType (op2), tokenno));
6712 : 212 : SymbolTable_PushValue (op2);
6713 : 212 : SymbolTable_PushValue (op3);
6714 : 212 : (*op.proc) (tokenno);
6715 : 212 : SymbolTable_PopValue (op1);
6716 : 212 : SymbolTable_PushValue (op1);
6717 : 212 : SymbolTable_PutConstSet (op1);
6718 : 212 : SymbolConversion_AddModGcc (op1, m2decl_DeclareKnownConstant (location, SymbolConversion_Mod2Gcc (SymbolTable_GetType (op3)), M2ALU_PopSetTree (tokenno)));
6719 : 212 : (*p.proc) (op1);
6720 : 212 : NoChange = false;
6721 : 212 : M2Quads_SubQuad (quad);
6722 : : }
6723 : : }
6724 : : }
6725 : : }
6726 : 46060 : }
6727 : :
6728 : :
6729 : : /*
6730 : : FoldSetOr - check whether we can fold a set arithmetic or.
6731 : : */
6732 : :
6733 : 8620 : static void FoldSetOr (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
6734 : : {
6735 : 0 : FoldBinarySet (tokenno, p, (M2GenGCC_DoProcedure) {(M2GenGCC_DoProcedure_t) M2ALU_SetOr}, quad, op1, op2, op3);
6736 : 0 : }
6737 : :
6738 : :
6739 : : /*
6740 : : CodeSetOr - encode set arithmetic or.
6741 : : */
6742 : :
6743 : 750 : static void CodeSetOr (unsigned int quad)
6744 : : {
6745 : 750 : CodeBinarySet ((m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildLogicalOr}, (M2GenGCC_DoProcedure) {(M2GenGCC_DoProcedure_t) M2ALU_SetOr}, quad);
6746 : 750 : }
6747 : :
6748 : :
6749 : : /*
6750 : : FoldSetAnd - check whether we can fold a logical and.
6751 : : */
6752 : :
6753 : 1904 : static void FoldSetAnd (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
6754 : : {
6755 : 0 : FoldBinarySet (tokenno, p, (M2GenGCC_DoProcedure) {(M2GenGCC_DoProcedure_t) M2ALU_SetAnd}, quad, op1, op2, op3);
6756 : 0 : }
6757 : :
6758 : :
6759 : : /*
6760 : : CodeSetAnd - encode set arithmetic and.
6761 : : */
6762 : :
6763 : 60 : static void CodeSetAnd (unsigned int quad)
6764 : : {
6765 : 60 : CodeBinarySet ((m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildLogicalAnd}, (M2GenGCC_DoProcedure) {(M2GenGCC_DoProcedure_t) M2ALU_SetAnd}, quad);
6766 : 60 : }
6767 : :
6768 : :
6769 : : /*
6770 : : CodeBinarySetShift - encode a binary set arithmetic operation.
6771 : : The set maybe larger than a machine word
6772 : : and the value of one word may effect the
6773 : : values of another - ie shift and rotate.
6774 : : Set sizes of a word or less are evaluated
6775 : : with binop, whereas multiword sets are
6776 : : evaluated by M2RTS.
6777 : : */
6778 : :
6779 : 928 : static void CodeBinarySetShift (m2expr_BuildSetProcedure binop, M2GenGCC_DoProcedure doOp, NameKey_Name var, NameKey_Name left, NameKey_Name right, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
6780 : : {
6781 : 928 : tree nBits;
6782 : 928 : tree unbounded;
6783 : 928 : tree leftproc;
6784 : 928 : tree rightproc;
6785 : 928 : tree varproc;
6786 : 928 : location_t location;
6787 : :
6788 : : /* firstly ensure that constant literals are declared */
6789 : 928 : M2GCCDeclare_DeclareConstant (CurrentQuadToken, op3);
6790 : 928 : M2GCCDeclare_DeclareConstant (CurrentQuadToken, op2);
6791 : 928 : M2GCCDeclare_DeclareConstructor (CurrentQuadToken, quad, op3);
6792 : 928 : M2GCCDeclare_DeclareConstructor (CurrentQuadToken, quad, op2);
6793 : 928 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
6794 : 928 : if (SymbolTable_IsConst (op1))
6795 : : {
6796 : 0 : if ((SymbolTable_IsValueSolved (op2)) && (SymbolTable_IsValueSolved (op3)))
6797 : : {
6798 : 0 : M2Debug_Assert ((M2Base_MixTypes (FindType (op3), FindType (op2), CurrentQuadToken)) != SymbolTable_NulSym);
6799 : 0 : SymbolTable_PutConst (op1, FindType (op3));
6800 : 0 : SymbolTable_PushValue (op2);
6801 : 0 : SymbolTable_PushValue (op3);
6802 : 0 : (*doOp.proc) (CurrentQuadToken);
6803 : 0 : SymbolTable_PopValue (op1);
6804 : 0 : SymbolTable_PutConstSet (op1);
6805 : : }
6806 : : else
6807 : : {
6808 : 0 : M2MetaError_MetaErrorT0 (CurrentQuadToken, (const char *) "{%E}constant expression cannot be evaluated", 43);
6809 : : }
6810 : : }
6811 : : else
6812 : : {
6813 : 928 : varproc = SymbolConversion_Mod2Gcc (SymbolTable_FromModuleGetSym (CurrentQuadToken, var, M2System_System));
6814 : 928 : leftproc = SymbolConversion_Mod2Gcc (SymbolTable_FromModuleGetSym (CurrentQuadToken, left, M2System_System));
6815 : 928 : rightproc = SymbolConversion_Mod2Gcc (SymbolTable_FromModuleGetSym (CurrentQuadToken, right, M2System_System));
6816 : 928 : unbounded = SymbolConversion_Mod2Gcc (SymbolTable_GetType (SymbolTable_GetNthParamAny (SymbolTable_FromModuleGetSym (CurrentQuadToken, var, M2System_System), 1)));
6817 : 928 : SymbolTable_PushValue (M2GCCDeclare_GetTypeMax (SymbolTable_SkipType (SymbolTable_GetType (op1))));
6818 : 928 : M2ALU_PushIntegerTree (m2convert_BuildConvert (location, m2type_GetM2ZType (), M2ALU_PopIntegerTree (), false));
6819 : 928 : SymbolTable_PushValue (M2GCCDeclare_GetTypeMin (SymbolTable_SkipType (SymbolTable_GetType (op1))));
6820 : 928 : M2ALU_PushIntegerTree (m2convert_BuildConvert (location, m2type_GetM2ZType (), M2ALU_PopIntegerTree (), false));
6821 : 928 : M2ALU_Sub ();
6822 : 928 : M2ALU_PushCard (1);
6823 : 928 : M2ALU_PushIntegerTree (m2convert_BuildConvert (location, m2type_GetM2ZType (), M2ALU_PopIntegerTree (), false));
6824 : 928 : M2ALU_Addn ();
6825 : 928 : nBits = M2ALU_PopIntegerTree ();
6826 : 928 : m2expr_BuildBinarySetDo (location, SymbolConversion_Mod2Gcc (SymbolTable_SkipType (SymbolTable_GetType (op1))), SymbolConversion_Mod2Gcc (op1), SymbolConversion_Mod2Gcc (op2), SymbolConversion_Mod2Gcc (op3), (m2expr_BuildSetProcedure_C) binop.proc, (SymbolTable_GetMode (op1)) == SymbolTable_LeftValue, (SymbolTable_GetMode (op2)) == SymbolTable_LeftValue, (SymbolTable_GetMode (op3)) == SymbolTable_LeftValue, nBits, unbounded, varproc, leftproc, rightproc);
6827 : : }
6828 : 928 : }
6829 : :
6830 : :
6831 : : /*
6832 : : FoldSetShift - check whether we can fold a logical shift.
6833 : : */
6834 : :
6835 : 19918 : static void FoldSetShift (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
6836 : : {
6837 : 0 : FoldBinarySet (tokenno, p, (M2GenGCC_DoProcedure) {(M2GenGCC_DoProcedure_t) M2ALU_SetShift}, quad, op1, op2, op3);
6838 : 0 : }
6839 : :
6840 : :
6841 : : /*
6842 : : CodeSetShift - encode set arithmetic shift.
6843 : : */
6844 : :
6845 : 696 : static void CodeSetShift (unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
6846 : : {
6847 : 696 : CodeBinarySetShift ((m2expr_BuildSetProcedure) {(m2expr_BuildSetProcedure_t) m2expr_BuildLogicalShift}, (M2GenGCC_DoProcedure) {(M2GenGCC_DoProcedure_t) M2ALU_SetShift}, NameKey_MakeKey ((const char *) "ShiftVal", 8), NameKey_MakeKey ((const char *) "ShiftLeft", 9), NameKey_MakeKey ((const char *) "ShiftRight", 10), quad, op1, op2, op3);
6848 : 696 : }
6849 : :
6850 : :
6851 : : /*
6852 : : FoldSetRotate - check whether we can fold a logical rotate.
6853 : : */
6854 : :
6855 : 15582 : static void FoldSetRotate (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
6856 : : {
6857 : 0 : FoldBinarySet (tokenno, p, (M2GenGCC_DoProcedure) {(M2GenGCC_DoProcedure_t) M2ALU_SetRotate}, quad, op1, op2, op3);
6858 : 0 : }
6859 : :
6860 : :
6861 : : /*
6862 : : CodeSetRotate - encode set arithmetic rotate.
6863 : : */
6864 : :
6865 : 232 : static void CodeSetRotate (unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
6866 : : {
6867 : 232 : CodeBinarySetShift ((m2expr_BuildSetProcedure) {(m2expr_BuildSetProcedure_t) m2expr_BuildLogicalRotate}, (M2GenGCC_DoProcedure) {(M2GenGCC_DoProcedure_t) M2ALU_SetRotate}, NameKey_MakeKey ((const char *) "RotateVal", 9), NameKey_MakeKey ((const char *) "RotateLeft", 10), NameKey_MakeKey ((const char *) "RotateRight", 11), quad, op1, op2, op3);
6868 : 232 : }
6869 : :
6870 : :
6871 : : /*
6872 : : CodeSetLogicalDifference - encode set arithmetic logical difference.
6873 : : */
6874 : :
6875 : 66 : static void CodeSetLogicalDifference (unsigned int quad)
6876 : : {
6877 : 66 : CodeBinarySet ((m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildLogicalDifference}, (M2GenGCC_DoProcedure) {(M2GenGCC_DoProcedure_t) M2ALU_SetDifference}, quad);
6878 : 66 : }
6879 : :
6880 : :
6881 : : /*
6882 : : FoldSymmetricDifference - check whether we can fold a logical difference.
6883 : : */
6884 : :
6885 : 48 : static void FoldSymmetricDifference (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
6886 : : {
6887 : 0 : FoldBinarySet (tokenno, p, (M2GenGCC_DoProcedure) {(M2GenGCC_DoProcedure_t) M2ALU_SetSymmetricDifference}, quad, op1, op2, op3);
6888 : 0 : }
6889 : :
6890 : :
6891 : : /*
6892 : : CodeSetSymmetricDifference - code set difference.
6893 : : */
6894 : :
6895 : 12 : static void CodeSetSymmetricDifference (unsigned int quad)
6896 : : {
6897 : 12 : CodeBinarySet ((m2expr_BuildBinProcedure) {(m2expr_BuildBinProcedure_t) m2expr_BuildSymmetricDifference}, (M2GenGCC_DoProcedure) {(M2GenGCC_DoProcedure_t) M2ALU_SetSymmetricDifference}, quad);
6898 : 12 : }
6899 : :
6900 : :
6901 : : /*
6902 : : CodeUnarySet - encode a unary set arithmetic operation.
6903 : : Set operands may be longer than a word.
6904 : : */
6905 : :
6906 : 22 : static void CodeUnarySet (m2expr_BuildUnarySetFunction unop, M2GenGCC_DoUnaryProcedure constop, unsigned int quad, unsigned int result, unsigned int expr)
6907 : : {
6908 : 22 : location_t location;
6909 : :
6910 : : /* firstly ensure that constant literals are declared */
6911 : 22 : M2GCCDeclare_DeclareConstant (CurrentQuadToken, expr);
6912 : 22 : M2GCCDeclare_DeclareConstructor (CurrentQuadToken, quad, expr);
6913 : 22 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
6914 : 22 : if (SymbolTable_IsConst (result))
6915 : : {
6916 : 0 : if (SymbolTable_IsValueSolved (expr))
6917 : : {
6918 : 0 : M2Debug_Assert ((FindType (expr)) != SymbolTable_NulSym);
6919 : 0 : SymbolTable_PutConst (result, FindType (expr));
6920 : 0 : SymbolTable_PushValue (expr);
6921 : 0 : (*constop.proc) (CurrentQuadToken);
6922 : 0 : SymbolTable_PopValue (result);
6923 : 0 : SymbolTable_PushValue (result);
6924 : 0 : SymbolTable_PutConstSet (result);
6925 : 0 : M2GCCDeclare_ConstantKnownAndUsed (result, m2decl_DeclareKnownConstant (location, SymbolConversion_Mod2Gcc (SymbolTable_GetType (expr)), M2ALU_PopSetTree (CurrentQuadToken)));
6926 : : }
6927 : : else
6928 : : {
6929 : 0 : M2MetaError_MetaErrorT0 (CurrentQuadToken, (const char *) "{%E}constant expression cannot be evaluated", 43);
6930 : : }
6931 : : }
6932 : : else
6933 : : {
6934 : 22 : checkDeclare (result);
6935 : 22 : m2statement_BuildUnaryForeachWordDo (location, SymbolConversion_Mod2Gcc (SymbolTable_GetType (result)), SymbolConversion_Mod2Gcc (result), SymbolConversion_Mod2Gcc (expr), (m2expr_BuildUnarySetFunction_C) unop.proc, (SymbolTable_GetMode (result)) == SymbolTable_LeftValue, (SymbolTable_GetMode (expr)) == SymbolTable_LeftValue, SymbolTable_IsConst (result), SymbolTable_IsConst (expr));
6936 : : }
6937 : 22 : }
6938 : :
6939 : :
6940 : : /*
6941 : : FoldIncl - check whether we can fold the InclOp.
6942 : : result := result + (1 << expr)
6943 : : */
6944 : :
6945 : 17178 : static void FoldIncl (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int result, unsigned int expr)
6946 : : {
6947 : : /* firstly ensure that constant literals are declared */
6948 : 17178 : M2GCCDeclare_TryDeclareConstant (tokenno, expr);
6949 : 17178 : if ((SymbolTable_IsConst (result)) && (SymbolTable_IsConst (expr)))
6950 : : {
6951 : 0 : if ((SymbolConversion_GccKnowsAbout (expr)) && (SymbolTable_IsValueSolved (result)))
6952 : : {
6953 : : /* fine, we can take advantage of this and fold constants */
6954 : 0 : SymbolTable_PushValue (result);
6955 : 0 : M2ALU_AddBit (tokenno, expr);
6956 : 0 : SymbolConversion_AddModGcc (result, M2ALU_PopSetTree (tokenno));
6957 : 0 : (*p.proc) (result);
6958 : 0 : NoChange = false;
6959 : 0 : M2Quads_SubQuad (quad);
6960 : : }
6961 : : }
6962 : 17178 : }
6963 : :
6964 : :
6965 : : /*
6966 : : FoldIfLess - check to see if it is possible to evaluate
6967 : : if op1 < op2 then goto op3.
6968 : : */
6969 : :
6970 : 27916 : static void FoldIfLess (unsigned int tokenno, unsigned int quad, unsigned int left, unsigned int right, unsigned int destQuad)
6971 : : {
6972 : : /* Firstly ensure that constant literals are declared. */
6973 : 27916 : M2GCCDeclare_TryDeclareConstant (tokenno, left);
6974 : 27916 : M2GCCDeclare_TryDeclareConstant (tokenno, right);
6975 : 27916 : if ((SymbolTable_IsConst (left)) && (SymbolTable_IsConst (right)))
6976 : : {
6977 : 1620 : if ((SymbolTable_IsValueSolved (left)) && (SymbolTable_IsValueSolved (right)))
6978 : : {
6979 : : /* We can take advantage of the known values and evaluate the condition. */
6980 : 1620 : SymbolTable_PushValue (left);
6981 : 1620 : SymbolTable_PushValue (right);
6982 : 1620 : if (M2ALU_Less (tokenno))
6983 : : {
6984 : 774 : M2Quads_PutQuad (quad, M2Quads_GotoOp, SymbolTable_NulSym, SymbolTable_NulSym, destQuad);
6985 : : }
6986 : : else
6987 : : {
6988 : 846 : M2Quads_SubQuad (quad);
6989 : : }
6990 : 1620 : NoChange = false;
6991 : : }
6992 : : }
6993 : 27916 : }
6994 : :
6995 : :
6996 : : /*
6997 : : FoldIfGre - check to see if it is possible to evaluate
6998 : : if op1 > op2 then goto op3.
6999 : : */
7000 : :
7001 : 23034 : static void FoldIfGre (unsigned int tokenno, unsigned int quad, unsigned int left, unsigned int right, unsigned int destQuad)
7002 : : {
7003 : : /* Firstly ensure that constant literals are declared. */
7004 : 23034 : M2GCCDeclare_TryDeclareConstant (tokenno, left);
7005 : 23034 : M2GCCDeclare_TryDeclareConstant (tokenno, right);
7006 : 23034 : if ((SymbolTable_IsConst (left)) && (SymbolTable_IsConst (right)))
7007 : : {
7008 : 48 : if ((SymbolTable_IsValueSolved (left)) && (SymbolTable_IsValueSolved (right)))
7009 : : {
7010 : : /* We can take advantage of the known values and evaluate the condition. */
7011 : 48 : SymbolTable_PushValue (left);
7012 : 48 : SymbolTable_PushValue (right);
7013 : 48 : if (M2ALU_Gre (tokenno))
7014 : : {
7015 : 12 : M2Quads_PutQuad (quad, M2Quads_GotoOp, SymbolTable_NulSym, SymbolTable_NulSym, destQuad);
7016 : : }
7017 : : else
7018 : : {
7019 : 36 : M2Quads_SubQuad (quad);
7020 : : }
7021 : 48 : NoChange = false;
7022 : : }
7023 : : }
7024 : 23034 : }
7025 : :
7026 : :
7027 : : /*
7028 : : FoldIfLessEqu - check to see if it is possible to evaluate
7029 : : if op1 <= op2 then goto op3.
7030 : : */
7031 : :
7032 : 26344 : static void FoldIfLessEqu (unsigned int tokenno, unsigned int quad, unsigned int left, unsigned int right, unsigned int destQuad)
7033 : : {
7034 : : /* Firstly ensure that constant literals are declared. */
7035 : 26344 : M2GCCDeclare_TryDeclareConstant (tokenno, left);
7036 : 26344 : M2GCCDeclare_TryDeclareConstant (tokenno, right);
7037 : 26344 : if ((SymbolTable_IsConst (left)) && (SymbolTable_IsConst (right)))
7038 : : {
7039 : 42 : if ((SymbolTable_IsValueSolved (left)) && (SymbolTable_IsValueSolved (right)))
7040 : : {
7041 : : /* We can take advantage of the known values and evaluate the condition. */
7042 : 42 : SymbolTable_PushValue (left);
7043 : 42 : SymbolTable_PushValue (right);
7044 : 42 : if (M2ALU_LessEqu (tokenno))
7045 : : {
7046 : 36 : M2Quads_PutQuad (quad, M2Quads_GotoOp, SymbolTable_NulSym, SymbolTable_NulSym, destQuad);
7047 : : }
7048 : : else
7049 : : {
7050 : 6 : M2Quads_SubQuad (quad);
7051 : : }
7052 : 42 : NoChange = false;
7053 : : }
7054 : : }
7055 : 26344 : }
7056 : :
7057 : :
7058 : : /*
7059 : : FoldIfGreEqu - check to see if it is possible to evaluate
7060 : : if op1 >= op2 then goto op3.
7061 : : */
7062 : :
7063 : 36240 : static void FoldIfGreEqu (unsigned int tokenno, unsigned int quad, unsigned int left, unsigned int right, unsigned int destQuad)
7064 : : {
7065 : : /* Firstly ensure that constant literals are declared. */
7066 : 36240 : M2GCCDeclare_TryDeclareConstant (tokenno, left);
7067 : 36240 : M2GCCDeclare_TryDeclareConstant (tokenno, right);
7068 : 36240 : if ((SymbolTable_IsConst (left)) && (SymbolTable_IsConst (right)))
7069 : : {
7070 : 7112 : if ((SymbolTable_IsValueSolved (left)) && (SymbolTable_IsValueSolved (right)))
7071 : : {
7072 : : /* We can take advantage of the known values and evaluate the condition. */
7073 : 3278 : SymbolTable_PushValue (left);
7074 : 3278 : SymbolTable_PushValue (right);
7075 : 3278 : if (M2ALU_GreEqu (tokenno))
7076 : : {
7077 : 2462 : M2Quads_PutQuad (quad, M2Quads_GotoOp, SymbolTable_NulSym, SymbolTable_NulSym, destQuad);
7078 : : }
7079 : : else
7080 : : {
7081 : 816 : M2Quads_SubQuad (quad);
7082 : : }
7083 : 3278 : NoChange = false;
7084 : : }
7085 : : }
7086 : 36240 : }
7087 : :
7088 : :
7089 : : /*
7090 : : FoldIfIn - check whether we can fold the IfInOp
7091 : : if op1 in op2 then goto op3
7092 : : */
7093 : :
7094 : 24542 : static void FoldIfIn (unsigned int tokenno, unsigned int quad, unsigned int left, unsigned int right, unsigned int destQuad)
7095 : : {
7096 : : /* Firstly ensure that constant literals are declared. */
7097 : 24542 : M2GCCDeclare_TryDeclareConstant (tokenno, left);
7098 : 24542 : M2GCCDeclare_TryDeclareConstant (tokenno, right);
7099 : 24542 : if ((SymbolTable_IsConst (left)) && (SymbolTable_IsConst (right)))
7100 : : {
7101 : 0 : if ((SymbolTable_IsValueSolved (left)) && (SymbolTable_IsValueSolved (right)))
7102 : : {
7103 : 0 : if (CheckBinaryExpressionTypes (quad, (M2GCCDeclare_WalkAction) {(M2GCCDeclare_WalkAction_t) NoWalkProcedure}))
7104 : : {
7105 : : /* We can take advantage of the known values and evaluate the condition. */
7106 : 0 : SymbolTable_PushValue (right);
7107 : 0 : if (M2ALU_SetIn (tokenno, left))
7108 : : {
7109 : 0 : M2Quads_PutQuad (quad, M2Quads_GotoOp, SymbolTable_NulSym, SymbolTable_NulSym, destQuad);
7110 : : }
7111 : : else
7112 : : {
7113 : 0 : M2Quads_SubQuad (quad);
7114 : : }
7115 : : }
7116 : : else
7117 : : {
7118 : 0 : M2Quads_SubQuad (quad);
7119 : : }
7120 : 0 : NoChange = false;
7121 : : }
7122 : : }
7123 : 24542 : }
7124 : :
7125 : :
7126 : : /*
7127 : : FoldIfNotIn - check whether we can fold the IfNotInOp
7128 : : if not (op1 in op2) then goto op3
7129 : : */
7130 : :
7131 : 4802 : static void FoldIfNotIn (unsigned int tokenno, unsigned int quad, unsigned int left, unsigned int right, unsigned int destQuad)
7132 : : {
7133 : : /* Firstly ensure that constant literals are declared. */
7134 : 4802 : M2GCCDeclare_TryDeclareConstant (tokenno, left);
7135 : 4802 : M2GCCDeclare_TryDeclareConstant (tokenno, right);
7136 : 4802 : if ((SymbolTable_IsConst (left)) && (SymbolTable_IsConst (right)))
7137 : : {
7138 : 0 : if ((SymbolTable_IsValueSolved (left)) && (SymbolTable_IsValueSolved (right)))
7139 : : {
7140 : 0 : if (CheckBinaryExpressionTypes (quad, (M2GCCDeclare_WalkAction) {(M2GCCDeclare_WalkAction_t) NoWalkProcedure}))
7141 : : {
7142 : : /* We can take advantage of the known values and evaluate the
7143 : : condition. */
7144 : 0 : SymbolTable_PushValue (right);
7145 : 0 : if (! (M2ALU_SetIn (tokenno, left)))
7146 : : {
7147 : 0 : M2Quads_PutQuad (quad, M2Quads_GotoOp, SymbolTable_NulSym, SymbolTable_NulSym, destQuad);
7148 : : }
7149 : : else
7150 : : {
7151 : 0 : M2Quads_SubQuad (quad);
7152 : : }
7153 : : }
7154 : : else
7155 : : {
7156 : 0 : M2Quads_SubQuad (quad);
7157 : : }
7158 : 0 : NoChange = false;
7159 : : }
7160 : : }
7161 : 4802 : }
7162 : :
7163 : :
7164 : : /*
7165 : : FoldIfEqu - check to see if it is possible to evaluate
7166 : : if op1 = op2 then goto op3.
7167 : : */
7168 : :
7169 : 521210 : static void FoldIfEqu (unsigned int tokenno, unsigned int quad, unsigned int left, unsigned int right, unsigned int destQuad)
7170 : : {
7171 : : /* Firstly ensure that constant literals are declared. */
7172 : 521210 : M2GCCDeclare_TryDeclareConstant (tokenno, left);
7173 : 521210 : M2GCCDeclare_TryDeclareConstant (tokenno, right);
7174 : 521210 : if ((SymbolTable_IsConst (left)) && (SymbolTable_IsConst (right)))
7175 : : {
7176 : 950 : if ((SymbolTable_IsValueSolved (left)) && (SymbolTable_IsValueSolved (right)))
7177 : : {
7178 : : /* We can take advantage of the known values and evaluate the
7179 : : condition. */
7180 : 494 : SymbolTable_PushValue (left);
7181 : 494 : SymbolTable_PushValue (right);
7182 : 494 : if (M2ALU_Equ (tokenno))
7183 : : {
7184 : 344 : M2Quads_PutQuad (quad, M2Quads_GotoOp, SymbolTable_NulSym, SymbolTable_NulSym, destQuad);
7185 : : }
7186 : : else
7187 : : {
7188 : 150 : M2Quads_SubQuad (quad);
7189 : : }
7190 : 494 : NoChange = false;
7191 : : }
7192 : : }
7193 : 521210 : }
7194 : :
7195 : :
7196 : : /*
7197 : : FoldIfNotEqu - check to see if it is possible to evaluate
7198 : : if op1 # op2 then goto op3.
7199 : : */
7200 : :
7201 : 252064 : static void FoldIfNotEqu (unsigned int tokenno, unsigned int quad, unsigned int left, unsigned int right, unsigned int destQuad)
7202 : : {
7203 : : /* Firstly ensure that constant literals are declared. */
7204 : 252064 : M2GCCDeclare_TryDeclareConstant (tokenno, left);
7205 : 252064 : M2GCCDeclare_TryDeclareConstant (tokenno, right);
7206 : 252064 : if ((SymbolTable_IsConst (left)) && (SymbolTable_IsConst (right)))
7207 : : {
7208 : 1380 : if ((SymbolTable_IsValueSolved (left)) && (SymbolTable_IsValueSolved (right)))
7209 : : {
7210 : : /* We can take advantage of the known values and evaluate the
7211 : : condition. */
7212 : 1314 : SymbolTable_PushValue (left);
7213 : 1314 : SymbolTable_PushValue (right);
7214 : 1314 : if (M2ALU_NotEqu (tokenno))
7215 : : {
7216 : 1002 : M2Quads_PutQuad (quad, M2Quads_GotoOp, SymbolTable_NulSym, SymbolTable_NulSym, destQuad);
7217 : : }
7218 : : else
7219 : : {
7220 : 312 : M2Quads_SubQuad (quad);
7221 : : }
7222 : 1314 : NoChange = false;
7223 : : }
7224 : : }
7225 : 252064 : }
7226 : :
7227 : :
7228 : : /*
7229 : : GetSetLimits - assigns low and high to the limits of the declared, set.
7230 : : */
7231 : :
7232 : 2566 : static void GetSetLimits (unsigned int set, unsigned int *low, unsigned int *high)
7233 : : {
7234 : 2566 : unsigned int type;
7235 : :
7236 : 2566 : type = SymbolTable_GetType (set);
7237 : 2566 : if (SymbolTable_IsSubrange (type))
7238 : : {
7239 : 1956 : SymbolTable_GetSubrange (type, high, low);
7240 : : }
7241 : : else
7242 : : {
7243 : 610 : (*low) = M2GCCDeclare_GetTypeMin (type);
7244 : 610 : (*high) = M2GCCDeclare_GetTypeMax (type);
7245 : : }
7246 : 2566 : }
7247 : :
7248 : :
7249 : : /*
7250 : : GetFieldNo - returns the field number in the, set, which contains, element.
7251 : : */
7252 : :
7253 : 1282 : static int GetFieldNo (unsigned int tokenno, unsigned int element, unsigned int set, tree *offset)
7254 : : {
7255 : 1282 : unsigned int low;
7256 : 1282 : unsigned int high;
7257 : 1282 : unsigned int bpw;
7258 : 1282 : unsigned int c;
7259 : 1282 : location_t location;
7260 : :
7261 : 1282 : location = M2LexBuf_TokenToLocation (tokenno);
7262 : 1282 : bpw = m2decl_GetBitsPerBitset ();
7263 : 1282 : GetSetLimits (set, &low, &high);
7264 : : /* check element is legal */
7265 : 1282 : SymbolTable_PushValue (element);
7266 : 1282 : SymbolTable_PushValue (low);
7267 : 1282 : if (M2ALU_Less (tokenno))
7268 : : {
7269 : : /* out of range */
7270 : : return -1;
7271 : : }
7272 : : else
7273 : : {
7274 : 1276 : SymbolTable_PushValue (element);
7275 : 1276 : SymbolTable_PushValue (high);
7276 : 1276 : if (M2ALU_Gre (tokenno))
7277 : : {
7278 : : return -1;
7279 : : }
7280 : : }
7281 : : /* all legal */
7282 : 1276 : SymbolTable_PushValue (low);
7283 : 1276 : (*offset) = M2ALU_PopIntegerTree ();
7284 : 1276 : c = 0;
7285 : 1276 : SymbolTable_PushValue (element);
7286 : 1276 : SymbolTable_PushValue (low);
7287 : 1276 : M2ALU_PushIntegerTree (m2convert_ToCardinal (location, M2ALU_PopIntegerTree ()));
7288 : 1276 : M2ALU_PushCard (bpw);
7289 : 1276 : M2ALU_PushIntegerTree (m2convert_ToCardinal (location, M2ALU_PopIntegerTree ()));
7290 : 1276 : M2ALU_Addn ();
7291 : 2708 : while (M2ALU_GreEqu (tokenno))
7292 : : {
7293 : 156 : c += 1; /* move onto next field */
7294 : 156 : SymbolTable_PushValue (element); /* move onto next field */
7295 : 156 : M2ALU_PushIntegerTree (m2convert_ToCardinal (location, M2ALU_PopIntegerTree ()));
7296 : 156 : M2ALU_PushCard ((c+1)*bpw);
7297 : 156 : SymbolTable_PushValue (low);
7298 : 156 : M2ALU_PushIntegerTree (m2convert_ToCardinal (location, M2ALU_PopIntegerTree ()));
7299 : 156 : M2ALU_Addn ();
7300 : 156 : M2ALU_PushIntegerTree ((*offset));
7301 : 156 : M2ALU_PushIntegerTree (m2convert_ToCardinal (location, M2ALU_PopIntegerTree ()));
7302 : 156 : M2ALU_PushCard (bpw);
7303 : 156 : M2ALU_PushIntegerTree (m2convert_ToCardinal (location, M2ALU_PopIntegerTree ()));
7304 : 156 : M2ALU_Addn ();
7305 : 156 : (*offset) = M2ALU_PopIntegerTree ();
7306 : : }
7307 : 1276 : return (int ) (c);
7308 : : /* static analysis guarentees a RETURN statement will be used before here. */
7309 : : __builtin_unreachable ();
7310 : : }
7311 : :
7312 : :
7313 : : /*
7314 : : CodeIncl - encode an InclOp:
7315 : : result := result + (1 << expr)
7316 : : */
7317 : :
7318 : 758 : static void CodeIncl (unsigned int result, unsigned int expr)
7319 : : {
7320 : 758 : unsigned int low;
7321 : 758 : unsigned int high;
7322 : 758 : tree offset;
7323 : 758 : int fieldno;
7324 : 758 : location_t location;
7325 : :
7326 : : /* firstly ensure that constant literals are declared */
7327 : 758 : M2GCCDeclare_DeclareConstant (CurrentQuadToken, expr);
7328 : 758 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
7329 : 758 : if (SymbolTable_IsConst (result))
7330 : : {
7331 : 0 : if (SymbolTable_IsConst (expr))
7332 : : {
7333 : 0 : M2Error_InternalError ((const char *) "this quadruple should have been removed by FoldIncl", 51);
7334 : : }
7335 : : else
7336 : : {
7337 : 0 : M2Error_InternalError ((const char *) "should not get to here (why are we generating <incl const, var> ?)", 66);
7338 : : }
7339 : : }
7340 : : else
7341 : : {
7342 : 758 : if (SymbolTable_IsConst (expr))
7343 : : {
7344 : 338 : fieldno = GetFieldNo (CurrentQuadToken, expr, SymbolTable_GetType (result), &offset);
7345 : 338 : if (fieldno >= 0)
7346 : : {
7347 : 338 : SymbolTable_PushValue (expr);
7348 : 338 : M2ALU_PushIntegerTree (offset);
7349 : 338 : M2ALU_Sub ();
7350 : 338 : m2statement_BuildIncludeVarConst (location, SymbolConversion_Mod2Gcc (SymbolTable_GetType (result)), SymbolConversion_Mod2Gcc (result), M2ALU_PopIntegerTree (), (SymbolTable_GetMode (result)) == SymbolTable_LeftValue, fieldno);
7351 : : }
7352 : : else
7353 : : {
7354 : 0 : M2MetaError_MetaErrorT1 (CurrentQuadToken, (const char *) "bit exceeded the range of set {%1Eatd}", 38, result);
7355 : : }
7356 : : }
7357 : : else
7358 : : {
7359 : 420 : GetSetLimits (SymbolTable_GetType (result), &low, &high);
7360 : 420 : m2statement_BuildIncludeVarVar (location, SymbolConversion_Mod2Gcc (SymbolTable_GetType (result)), SymbolConversion_Mod2Gcc (result), SymbolConversion_Mod2Gcc (expr), (SymbolTable_GetMode (result)) == SymbolTable_LeftValue, SymbolConversion_Mod2Gcc (low));
7361 : : }
7362 : : }
7363 : 758 : }
7364 : :
7365 : :
7366 : : /*
7367 : : FoldExcl - check whether we can fold the InclOp.
7368 : : op1 := op1 - (1 << op3)
7369 : : */
7370 : :
7371 : 10856 : static void FoldExcl (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int result, unsigned int expr)
7372 : : {
7373 : : /* firstly ensure that constant literals are declared */
7374 : 10856 : M2GCCDeclare_TryDeclareConstant (tokenno, expr);
7375 : 10856 : if ((SymbolTable_IsConst (result)) && (SymbolTable_IsConst (expr)))
7376 : : {
7377 : 0 : if ((SymbolConversion_GccKnowsAbout (expr)) && (SymbolTable_IsValueSolved (result)))
7378 : : {
7379 : 0 : SymbolTable_PushValue (result);
7380 : 0 : M2ALU_SubBit (tokenno, expr);
7381 : 0 : SymbolConversion_AddModGcc (result, M2ALU_PopSetTree (tokenno));
7382 : 0 : (*p.proc) (result);
7383 : 0 : NoChange = false;
7384 : 0 : M2Quads_SubQuad (quad);
7385 : : }
7386 : : }
7387 : 10856 : }
7388 : :
7389 : :
7390 : : /*
7391 : : CodeExcl - encode an ExclOp:
7392 : : result := result - (1 << expr)
7393 : : */
7394 : :
7395 : 434 : static void CodeExcl (unsigned int result, unsigned int expr)
7396 : : {
7397 : 434 : unsigned int low;
7398 : 434 : unsigned int high;
7399 : 434 : tree offset;
7400 : 434 : int fieldno;
7401 : 434 : location_t location;
7402 : :
7403 : : /* firstly ensure that constant literals are declared */
7404 : 434 : M2GCCDeclare_DeclareConstant (CurrentQuadToken, expr);
7405 : 434 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
7406 : 434 : if (SymbolTable_IsConst (result))
7407 : : {
7408 : 0 : M2Error_InternalError ((const char *) "should not get to here (if we do we should consider calling FoldInclOp)", 71);
7409 : : }
7410 : : else
7411 : : {
7412 : 434 : if (SymbolTable_IsConst (expr))
7413 : : {
7414 : 210 : fieldno = GetFieldNo (CurrentQuadToken, expr, SymbolTable_GetType (result), &offset);
7415 : 210 : if (fieldno >= 0)
7416 : : {
7417 : 210 : SymbolTable_PushValue (expr);
7418 : 210 : M2ALU_PushIntegerTree (offset);
7419 : 210 : M2ALU_Sub ();
7420 : 210 : m2statement_BuildExcludeVarConst (location, SymbolConversion_Mod2Gcc (SymbolTable_GetType (result)), SymbolConversion_Mod2Gcc (result), M2ALU_PopIntegerTree (), (SymbolTable_GetMode (result)) == SymbolTable_LeftValue, fieldno);
7421 : : }
7422 : : else
7423 : : {
7424 : 0 : M2MetaError_MetaErrorT1 (CurrentQuadToken, (const char *) "bit exceeded the range of set {%1Eatd}", 38, result);
7425 : : }
7426 : : }
7427 : : else
7428 : : {
7429 : 224 : GetSetLimits (SymbolTable_GetType (result), &low, &high);
7430 : 224 : m2statement_BuildExcludeVarVar (location, SymbolConversion_Mod2Gcc (SymbolTable_GetType (result)), SymbolConversion_Mod2Gcc (result), SymbolConversion_Mod2Gcc (expr), (SymbolTable_GetMode (result)) == SymbolTable_LeftValue, SymbolConversion_Mod2Gcc (low));
7431 : : }
7432 : : }
7433 : 434 : }
7434 : :
7435 : :
7436 : : /*
7437 : : FoldUnary - check whether we can fold the unop operation.
7438 : : */
7439 : :
7440 : 31441 : static void FoldUnary (unsigned int tokenno, M2GCCDeclare_WalkAction p, m2expr_BuildUnaryProcedure unop, tree ZConstToTypedConst, unsigned int quad, unsigned int result, unsigned int expr)
7441 : : {
7442 : 31441 : tree tv;
7443 : 31441 : location_t location;
7444 : :
7445 : : /* firstly ensure that any constant literal is declared */
7446 : 31441 : M2GCCDeclare_TryDeclareConstant (tokenno, expr);
7447 : 31441 : location = M2LexBuf_TokenToLocation (tokenno);
7448 : 31441 : if (SymbolTable_IsConst (expr))
7449 : : {
7450 : 17849 : if (SymbolConversion_GccKnowsAbout (expr))
7451 : : {
7452 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
7453 : : /* fine, we can take advantage of this and fold constants */
7454 : 17849 : if (SymbolTable_IsConst (result))
7455 : : {
7456 : 17849 : if (ZConstToTypedConst == ((tree) (NULL)))
7457 : : {
7458 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
7459 : 17849 : if (((SymbolTable_GetType (expr)) == SymbolTable_NulSym) || (M2Base_IsOrdinalType (SymbolTable_SkipType (SymbolTable_GetType (expr)))))
7460 : : {
7461 : 17477 : ZConstToTypedConst = m2type_GetM2ZType ();
7462 : : }
7463 : 372 : else if ((M2Base_IsRealType (SymbolTable_SkipType (SymbolTable_GetType (expr)))) || (M2System_IsRealN (SymbolTable_SkipType (SymbolTable_GetType (expr)))))
7464 : : {
7465 : : /* avoid dangling else. */
7466 : 192 : ZConstToTypedConst = m2type_GetM2RType ();
7467 : : }
7468 : 180 : else if ((M2Base_IsComplexType (SymbolTable_SkipType (SymbolTable_GetType (expr)))) || (M2System_IsComplexN (SymbolTable_SkipType (SymbolTable_GetType (expr)))))
7469 : : {
7470 : : /* avoid dangling else. */
7471 : 180 : ZConstToTypedConst = m2type_GetM2CType ();
7472 : : }
7473 : : }
7474 : 17849 : if ((SymbolTable_GetType (result)) == SymbolTable_NulSym)
7475 : : {
7476 : 0 : SymbolTable_PutConst (result, M2Base_NegateType (SymbolTable_GetType (expr))); /* , tokenno */
7477 : : }
7478 : 17849 : tv = (*unop.proc) (location, LValueToGenericPtrOrConvert (expr, ZConstToTypedConst), false);
7479 : 17849 : M2ALU_CheckOrResetOverflow (tokenno, tv, M2Quads_MustCheckOverflow (quad));
7480 : 17849 : SymbolConversion_AddModGcc (result, m2decl_DeclareKnownConstant (location, ZConstToTypedConst, tv));
7481 : 17849 : (*p.proc) (result);
7482 : 17849 : NoChange = false;
7483 : 17849 : M2Quads_SubQuad (quad);
7484 : : }
7485 : : /* we can still fold the expression, but not the assignment, however, we will
7486 : : not do this here but in CodeUnary
7487 : : */
7488 : : }
7489 : : }
7490 : 31441 : }
7491 : :
7492 : :
7493 : : /*
7494 : : FoldUnarySet - check whether we can fold the doOp operation.
7495 : : */
7496 : :
7497 : 4 : static void FoldUnarySet (unsigned int tokenno, M2GCCDeclare_WalkAction p, M2GenGCC_DoUnaryProcedure doOp, unsigned int quad, unsigned int result, unsigned int expr)
7498 : : {
7499 : 4 : location_t location;
7500 : :
7501 : : /* firstly try and ensure that constants are declared */
7502 : 4 : M2GCCDeclare_TryDeclareConstant (tokenno, expr);
7503 : 4 : location = M2LexBuf_TokenToLocation (tokenno);
7504 : 4 : if (((SymbolTable_IsConst (expr)) && (SymbolTable_IsConstSet (expr))) && (SymbolTable_IsConst (result)))
7505 : : {
7506 : 4 : if ((SymbolTable_IsValueSolved (expr)) && ((SymbolTable_GetType (expr)) != SymbolTable_NulSym))
7507 : : {
7508 : 4 : SymbolTable_PutConst (result, FindType (expr));
7509 : 4 : SymbolTable_PushValue (expr);
7510 : 4 : (*doOp.proc) (tokenno);
7511 : 4 : SymbolTable_PopValue (result);
7512 : 4 : SymbolTable_PushValue (result);
7513 : 4 : SymbolTable_PutConstSet (result);
7514 : 4 : SymbolConversion_AddModGcc (result, m2decl_DeclareKnownConstant (location, SymbolConversion_Mod2Gcc (SymbolTable_GetType (expr)), M2ALU_PopSetTree (tokenno)));
7515 : 4 : (*p.proc) (result);
7516 : 4 : NoChange = false;
7517 : 4 : M2Quads_SubQuad (quad);
7518 : : }
7519 : : }
7520 : 4 : }
7521 : :
7522 : :
7523 : : /*
7524 : : CodeUnaryCheck - encode a unary arithmetic operation.
7525 : : */
7526 : :
7527 : 812 : static void CodeUnaryCheck (m2expr_BuildUnaryCheckProcedure unop, tree ZConstToTypedConst, unsigned int quad, unsigned int result, unsigned int expr)
7528 : : {
7529 : 812 : unsigned int lowestType;
7530 : 812 : tree min;
7531 : 812 : tree max;
7532 : 812 : tree lowest;
7533 : 812 : tree tv;
7534 : 812 : location_t location;
7535 : :
7536 : : /* firstly ensure that any constant literal is declared */
7537 : 812 : M2GCCDeclare_DeclareConstant (CurrentQuadToken, expr);
7538 : 812 : M2GCCDeclare_DeclareConstructor (CurrentQuadToken, quad, expr);
7539 : 812 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
7540 : 812 : lowestType = SymbolTable_GetLType (result);
7541 : 812 : if (lowestType == SymbolTable_NulSym)
7542 : : {
7543 : : lowest = NULL;
7544 : : }
7545 : : else
7546 : : {
7547 : 812 : lowest = SymbolConversion_Mod2Gcc (lowestType);
7548 : : }
7549 : 812 : if (M2Range_GetMinMax (CurrentQuadToken, lowestType, &min, &max))
7550 : : {
7551 : 748 : tv = (*unop.proc) (location, M2GenGCC_LValueToGenericPtr (location, expr), lowest, min, max);
7552 : : }
7553 : : else
7554 : : {
7555 : 64 : tv = (*unop.proc) (location, M2GenGCC_LValueToGenericPtr (location, expr), NULL, NULL, NULL);
7556 : : }
7557 : 812 : M2ALU_CheckOrResetOverflow (CurrentQuadToken, tv, M2Quads_MustCheckOverflow (quad));
7558 : 812 : if (SymbolTable_IsConst (result))
7559 : : {
7560 : 0 : if (ZConstToTypedConst == ((tree) (NULL)))
7561 : : {
7562 : 0 : ZConstToTypedConst = (tree) (SymbolConversion_Mod2Gcc (SymbolTable_GetType (expr)));
7563 : : }
7564 : : /* still have a constant which was not resolved, pass it to gcc */
7565 : 0 : SymbolTable_PutConst (result, FindType (expr));
7566 : 0 : M2GCCDeclare_ConstantKnownAndUsed (result, m2decl_DeclareKnownConstant (location, ZConstToTypedConst, tv));
7567 : : }
7568 : : else
7569 : : {
7570 : 812 : if (M2SSA_EnableSSA && (SymbolTable_IsVariableSSA (result)))
7571 : : {
7572 : : Replace (result, tv);
7573 : : }
7574 : : else
7575 : : {
7576 : 812 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (result), tv);
7577 : : }
7578 : : }
7579 : 812 : }
7580 : :
7581 : :
7582 : : /*
7583 : : CodeUnary - encode a unary arithmetic operation.
7584 : : */
7585 : :
7586 : 0 : static void CodeUnary (m2expr_BuildUnaryProcedure unop, tree ZConstToTypedConst, unsigned int quad, unsigned int result, unsigned int expr)
7587 : : {
7588 : 0 : tree tv;
7589 : 0 : location_t location;
7590 : :
7591 : : /* firstly ensure that any constant literal is declared */
7592 : 0 : M2GCCDeclare_DeclareConstant (CurrentQuadToken, expr);
7593 : 0 : M2GCCDeclare_DeclareConstructor (CurrentQuadToken, quad, expr);
7594 : 0 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
7595 : 0 : tv = (*unop.proc) (location, M2GenGCC_LValueToGenericPtr (location, expr), false);
7596 : 0 : M2ALU_CheckOrResetOverflow (CurrentQuadToken, tv, M2Quads_MustCheckOverflow (quad));
7597 : 0 : if (SymbolTable_IsConst (result))
7598 : : {
7599 : 0 : if (ZConstToTypedConst == ((tree) (NULL)))
7600 : : {
7601 : 0 : ZConstToTypedConst = (tree) (SymbolConversion_Mod2Gcc (SymbolTable_GetType (expr)));
7602 : : }
7603 : : /* still have a constant which was not resolved, pass it to gcc */
7604 : 0 : SymbolTable_PutConst (result, FindType (expr));
7605 : 0 : M2GCCDeclare_ConstantKnownAndUsed (result, m2decl_DeclareKnownConstant (location, ZConstToTypedConst, tv));
7606 : : }
7607 : : else
7608 : : {
7609 : 0 : if (M2SSA_EnableSSA && (SymbolTable_IsVariableSSA (result)))
7610 : : {
7611 : : Replace (result, tv);
7612 : : }
7613 : : else
7614 : : {
7615 : 0 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (result), tv);
7616 : : }
7617 : : }
7618 : 0 : }
7619 : :
7620 : :
7621 : : /*
7622 : : FoldNegate - check unary negate for constant folding.
7623 : : */
7624 : :
7625 : 31445 : static void FoldNegate (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int result, unsigned int expr)
7626 : : {
7627 : 31445 : if (SymbolTable_IsConstSet (expr))
7628 : : {
7629 : 4 : FoldUnarySet (tokenno, p, (M2GenGCC_DoUnaryProcedure) {(M2GenGCC_DoUnaryProcedure_t) M2ALU_SetNegate}, quad, result, expr);
7630 : : }
7631 : : else
7632 : : {
7633 : 31441 : FoldUnary (tokenno, p, (m2expr_BuildUnaryProcedure) {(m2expr_BuildUnaryProcedure_t) m2expr_BuildNegate}, NULL, quad, result, expr);
7634 : : }
7635 : 31445 : }
7636 : :
7637 : :
7638 : : /*
7639 : : CodeNegateChecked - code a negate instruction, determine whether checking
7640 : : is required.
7641 : : */
7642 : :
7643 : 840 : static void CodeNegateChecked (unsigned int quad, unsigned int op1, unsigned int op3)
7644 : : {
7645 : 840 : if ((SymbolTable_IsConstSet (op3)) || (SymbolTable_IsSet (SymbolTable_GetType (op3))))
7646 : : {
7647 : 22 : CodeUnarySet ((m2expr_BuildUnarySetFunction) {(m2expr_BuildUnarySetFunction_t) m2expr_BuildSetNegate}, (M2GenGCC_DoUnaryProcedure) {(M2GenGCC_DoUnaryProcedure_t) M2ALU_SetNegate}, quad, op1, op3);
7648 : : }
7649 : 818 : else if (UnaryOperand (quad, op3))
7650 : : {
7651 : : /* avoid dangling else. */
7652 : 812 : if (M2Quads_MustCheckOverflow (quad))
7653 : : {
7654 : 812 : CodeUnaryCheck ((m2expr_BuildUnaryCheckProcedure) {(m2expr_BuildUnaryCheckProcedure_t) m2expr_BuildNegateCheck}, NULL, quad, op1, op3);
7655 : : }
7656 : : else
7657 : : {
7658 : 0 : CodeUnary ((m2expr_BuildUnaryProcedure) {(m2expr_BuildUnaryProcedure_t) m2expr_BuildNegate}, NULL, quad, op1, op3);
7659 : : }
7660 : : }
7661 : 840 : }
7662 : :
7663 : :
7664 : : /*
7665 : : FoldSize - check unary SIZE for constant folding.
7666 : : */
7667 : :
7668 : 6920 : static void FoldSize (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
7669 : : {
7670 : 6920 : tree t;
7671 : 6920 : location_t location;
7672 : :
7673 : 6920 : location = M2LexBuf_TokenToLocation (tokenno);
7674 : 6920 : if ((SymbolTable_IsConst (op1)) && (M2GCCDeclare_CompletelyResolved (op3)))
7675 : : {
7676 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
7677 : 5374 : if (op2 == SymbolTable_NulSym)
7678 : : {
7679 : 5374 : t = m2expr_BuildSize (location, SymbolConversion_Mod2Gcc (op3), false);
7680 : 5374 : M2ALU_PushIntegerTree (t);
7681 : 5374 : SymbolTable_PopValue (op1);
7682 : 5374 : SymbolTable_PutConst (op1, M2Base_Cardinal);
7683 : 5374 : (*p.proc) (op1);
7684 : 5374 : NoChange = false;
7685 : 5374 : M2Quads_SubQuad (quad);
7686 : 5374 : t = m2block_RememberConstant (t);
7687 : : }
7688 : 0 : else if (SymbolConversion_GccKnowsAbout (op2))
7689 : : {
7690 : : /* avoid dangling else. */
7691 : : /* ignore the chosen varients as we implement it as a C union */
7692 : 0 : t = m2expr_BuildSize (location, SymbolConversion_Mod2Gcc (op3), false);
7693 : 0 : M2ALU_PushIntegerTree (t);
7694 : 0 : SymbolTable_PopValue (op1);
7695 : 0 : SymbolTable_PutConst (op1, M2Base_Cardinal);
7696 : 0 : (*p.proc) (op1);
7697 : 0 : NoChange = false;
7698 : 0 : M2Quads_SubQuad (quad);
7699 : 0 : t = m2block_RememberConstant (t);
7700 : : }
7701 : : }
7702 : 6920 : }
7703 : :
7704 : :
7705 : : /*
7706 : : CodeSize - encode the inbuilt SIZE function.
7707 : : */
7708 : :
7709 : 0 : static void CodeSize (unsigned int result, unsigned int sym)
7710 : : {
7711 : 0 : location_t location;
7712 : :
7713 : 0 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
7714 : 0 : M2ALU_PushIntegerTree (m2expr_BuildSize (location, SymbolConversion_Mod2Gcc (sym), false));
7715 : 0 : if (SymbolTable_IsConst (result))
7716 : : {
7717 : 0 : SymbolTable_PopValue (result);
7718 : 0 : SymbolTable_PutConst (result, M2Base_Cardinal);
7719 : 0 : SymbolTable_PushValue (result);
7720 : 0 : M2GCCDeclare_ConstantKnownAndUsed (result, m2decl_DeclareKnownConstant (location, m2type_GetIntegerType (), M2ALU_PopIntegerTree ()));
7721 : : }
7722 : : else
7723 : : {
7724 : 0 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (result), M2ALU_PopIntegerTree ());
7725 : : }
7726 : 0 : }
7727 : :
7728 : :
7729 : : /*
7730 : : FoldRecordField - check whether we can fold an RecordFieldOp quadruple.
7731 : : Very similar to FoldBinary, except that we need to
7732 : : hard code a few parameters to the gcc backend.
7733 : : */
7734 : :
7735 : 0 : static void FoldRecordField (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int result, unsigned int record, unsigned int field)
7736 : : {
7737 : 0 : unsigned int recordType;
7738 : 0 : unsigned int fieldType;
7739 : 0 : tree ptr;
7740 : 0 : location_t location;
7741 : :
7742 : 0 : return; /* this procedure should no longer be called */
7743 : : location = M2LexBuf_TokenToLocation (tokenno);
7744 : : /* firstly ensure that any constant literal is declared */
7745 : : M2GCCDeclare_TryDeclareConstant (tokenno, record);
7746 : : if ((SymbolTable_IsRecordField (record)) || (SymbolTable_IsFieldVarient (record)))
7747 : : {
7748 : : recordType = SymbolTable_GetType (record);
7749 : : fieldType = SymbolTable_GetType (field);
7750 : : if ((((((SymbolConversion_GccKnowsAbout (record)) && (SymbolConversion_GccKnowsAbout (field))) && (SymbolConversion_GccKnowsAbout (recordType))) && (SymbolConversion_GccKnowsAbout (fieldType))) && (M2GCCDeclare_CompletelyResolved (recordType))) && (M2GCCDeclare_CompletelyResolved (fieldType)))
7751 : : {
7752 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
7753 : : /* fine, we can take advantage of this and fold constants */
7754 : : if (SymbolTable_IsConst (result))
7755 : : {
7756 : : ptr = m2expr_BuildComponentRef (location, SymbolConversion_Mod2Gcc (record), SymbolConversion_Mod2Gcc (field));
7757 : : if (! (SymbolTable_IsValueSolved (result)))
7758 : : {
7759 : : M2ALU_PushIntegerTree (ptr);
7760 : : SymbolTable_PopValue (result);
7761 : : }
7762 : : SymbolTable_PutConst (result, fieldType);
7763 : : SymbolConversion_AddModGcc (result, m2decl_DeclareKnownConstant (location, SymbolConversion_Mod2Gcc (fieldType), ptr));
7764 : : (*p.proc) (result);
7765 : : NoChange = false;
7766 : : M2Quads_SubQuad (quad);
7767 : : }
7768 : : /* we can still fold the expression, but not the assignment, however, we will
7769 : : not do this here but in CodeOffset
7770 : : */
7771 : : }
7772 : : }
7773 : : }
7774 : :
7775 : :
7776 : : /*
7777 : : CodeRecordField - encode a reference to a field within a record.
7778 : : */
7779 : :
7780 : 119144 : static void CodeRecordField (unsigned int result, unsigned int record, unsigned int field)
7781 : : {
7782 : 119144 : unsigned int recordType;
7783 : 119144 : unsigned int fieldType;
7784 : 119144 : tree ptr;
7785 : 119144 : location_t location;
7786 : :
7787 : 119144 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
7788 : : /* firstly ensure that any constant literal is declared */
7789 : 119144 : if ((SymbolTable_IsRecordField (field)) || (SymbolTable_IsFieldVarient (field)))
7790 : : {
7791 : 119144 : recordType = SymbolTable_GetType (record);
7792 : 119144 : fieldType = SymbolTable_GetType (field);
7793 : 119144 : if ((((((SymbolConversion_GccKnowsAbout (record)) && (SymbolConversion_GccKnowsAbout (field))) && (SymbolConversion_GccKnowsAbout (recordType))) && (SymbolConversion_GccKnowsAbout (fieldType))) && (M2GCCDeclare_CompletelyResolved (recordType))) && (M2GCCDeclare_CompletelyResolved (fieldType)))
7794 : : {
7795 : 119144 : if ((SymbolTable_GetMode (record)) == SymbolTable_LeftValue)
7796 : : {
7797 : 39100 : ptr = m2expr_BuildComponentRef (location, m2expr_BuildIndirect (location, SymbolConversion_Mod2Gcc (record), SymbolConversion_Mod2Gcc (recordType)), SymbolConversion_Mod2Gcc (field));
7798 : : }
7799 : : else
7800 : : {
7801 : 80044 : ptr = m2expr_BuildComponentRef (location, SymbolConversion_Mod2Gcc (record), SymbolConversion_Mod2Gcc (field));
7802 : : }
7803 : 119144 : SymbolConversion_AddModGcc (result, ptr);
7804 : : }
7805 : : else
7806 : : {
7807 : 0 : M2Error_InternalError ((const char *) "symbol type should have been declared by now", 44);
7808 : : }
7809 : : }
7810 : : else
7811 : : {
7812 : 0 : M2Error_InternalError ((const char *) "not expecting this type of symbol", 33);
7813 : : }
7814 : 119144 : }
7815 : :
7816 : :
7817 : : /*
7818 : : BuildHighFromChar -
7819 : : */
7820 : :
7821 : 43350 : static tree BuildHighFromChar (unsigned int operand)
7822 : : {
7823 : 43350 : location_t location;
7824 : :
7825 : 43350 : location = M2LexBuf_TokenToLocation (SymbolTable_GetDeclaredMod (operand));
7826 : 43350 : if ((SymbolTable_IsConstString (operand)) && ((SymbolTable_IsConstStringM2nul (operand)) || (SymbolTable_IsConstStringCnul (operand))))
7827 : : {
7828 : 42570 : return m2expr_GetCardinalOne (location);
7829 : : }
7830 : 780 : return m2expr_GetCardinalZero (location);
7831 : : /* static analysis guarentees a RETURN statement will be used before here. */
7832 : : __builtin_unreachable ();
7833 : : }
7834 : :
7835 : :
7836 : : /*
7837 : : SkipToArray -
7838 : : */
7839 : :
7840 : 20004 : static unsigned int SkipToArray (unsigned int operand, unsigned int dim)
7841 : : {
7842 : 20004 : unsigned int type;
7843 : :
7844 : 20652 : while (dim > 1)
7845 : : {
7846 : 648 : type = SymbolTable_SkipType (SymbolTable_GetType (operand));
7847 : 648 : if (SymbolTable_IsArray (type))
7848 : : {
7849 : 648 : operand = type;
7850 : : }
7851 : 648 : dim -= 1;
7852 : : }
7853 : 20004 : return operand;
7854 : : /* static analysis guarentees a RETURN statement will be used before here. */
7855 : : __builtin_unreachable ();
7856 : : }
7857 : :
7858 : :
7859 : : /*
7860 : : BuildHighFromArray -
7861 : : */
7862 : :
7863 : 20004 : static tree BuildHighFromArray (unsigned int tokenno, unsigned int dim, unsigned int operand)
7864 : : {
7865 : 20004 : unsigned int Type;
7866 : 20004 : location_t location;
7867 : :
7868 : 20004 : location = M2LexBuf_TokenToLocation (tokenno);
7869 : 20004 : Type = SymbolTable_SkipType (SymbolTable_GetType (SkipToArray (operand, dim)));
7870 : 20004 : return BuildHighFromStaticArray (location, Type); /* dim, */
7871 : : /* static analysis guarentees a RETURN statement will be used before here. */
7872 : : __builtin_unreachable ();
7873 : : }
7874 : :
7875 : :
7876 : : /*
7877 : : BuildHighFromStaticArray -
7878 : : */
7879 : :
7880 : 20004 : static tree BuildHighFromStaticArray (location_t location, unsigned int Type)
7881 : : {
7882 : 20004 : unsigned int High;
7883 : 20004 : unsigned int Low;
7884 : 20004 : unsigned int Subscript;
7885 : 20004 : unsigned int Subrange;
7886 : :
7887 : 20004 : M2Debug_Assert (SymbolTable_IsArray (Type)); /* dim, */
7888 : 20004 : Subscript = SymbolTable_GetArraySubscript (Type);
7889 : 20004 : Subrange = SymbolTable_SkipType (SymbolTable_GetType (Subscript));
7890 : 20004 : if (SymbolTable_IsEnumeration (Subrange))
7891 : : {
7892 : : /* avoid dangling else. */
7893 : 96 : M2Base_GetBaseTypeMinMax (Subrange, &Low, &High);
7894 : 96 : if (SymbolConversion_GccKnowsAbout (High))
7895 : : {
7896 : 96 : return (tree) (SymbolConversion_Mod2Gcc (High));
7897 : : }
7898 : : }
7899 : 19908 : else if (SymbolTable_IsSubrange (Subrange))
7900 : : {
7901 : : /* avoid dangling else. */
7902 : 19908 : SymbolTable_GetSubrange (Subrange, &High, &Low);
7903 : 19908 : if ((SymbolConversion_GccKnowsAbout (Low)) && (SymbolConversion_GccKnowsAbout (High)))
7904 : : {
7905 : 19908 : return m2expr_BuildSub (location, SymbolConversion_Mod2Gcc (High), SymbolConversion_Mod2Gcc (Low), true);
7906 : : }
7907 : : }
7908 : : else
7909 : : {
7910 : : /* avoid dangling else. */
7911 : 0 : M2MetaError_MetaError1 ((const char *) "array subscript {%1EDad:for} must be a subrange or enumeration type", 67, Type);
7912 : 0 : return (tree) (NULL);
7913 : : }
7914 : 0 : if (SymbolConversion_GccKnowsAbout (High))
7915 : : {
7916 : 0 : return (tree) (SymbolConversion_Mod2Gcc (High));
7917 : : }
7918 : : else
7919 : : {
7920 : : return (tree) (NULL);
7921 : : }
7922 : : /* static analysis guarentees a RETURN statement will be used before here. */
7923 : : __builtin_unreachable ();
7924 : : }
7925 : :
7926 : :
7927 : : /*
7928 : : BuildHighFromString -
7929 : : */
7930 : :
7931 : 715170 : static tree BuildHighFromString (unsigned int operand)
7932 : : {
7933 : 715170 : location_t location;
7934 : :
7935 : 715170 : location = M2LexBuf_TokenToLocation (SymbolTable_GetDeclaredMod (operand));
7936 : 715170 : if ((SymbolConversion_GccKnowsAbout (operand)) && ((m2expr_StringLength (SymbolConversion_Mod2Gcc (operand))) > 0))
7937 : : {
7938 : 715170 : return m2decl_BuildIntegerConstant (static_cast<int> ((m2expr_StringLength (SymbolConversion_Mod2Gcc (operand)))-1));
7939 : : }
7940 : : else
7941 : : {
7942 : 0 : return m2expr_GetIntegerZero (location);
7943 : : }
7944 : : /* static analysis guarentees a RETURN statement will be used before here. */
7945 : : __builtin_unreachable ();
7946 : : }
7947 : :
7948 : :
7949 : : /*
7950 : : ResolveHigh - given an Modula-2 operand, it resolves the HIGH(operand)
7951 : : and returns a GCC constant symbol containing the value of
7952 : : HIGH(operand).
7953 : : */
7954 : :
7955 : 818356 : static tree ResolveHigh (unsigned int tokenno, unsigned int dim, unsigned int operand)
7956 : : {
7957 : 818356 : unsigned int Type;
7958 : 818356 : location_t location;
7959 : :
7960 : 818356 : Type = SymbolTable_SkipType (SymbolTable_GetType (operand));
7961 : 818356 : location = M2LexBuf_TokenToLocation (tokenno);
7962 : 818356 : if ((Type == M2Base_Char) && (dim == 1))
7963 : : {
7964 : 43350 : return BuildHighFromChar (operand);
7965 : : }
7966 : 775006 : else if ((SymbolTable_IsConstString (operand)) && (dim == 1))
7967 : : {
7968 : : /* avoid dangling else. */
7969 : 715170 : return BuildHighFromString (operand);
7970 : : }
7971 : 59836 : else if (SymbolTable_IsArray (Type))
7972 : : {
7973 : : /* avoid dangling else. */
7974 : 20004 : return BuildHighFromArray (tokenno, dim, operand);
7975 : : }
7976 : 39832 : else if (SymbolTable_IsUnbounded (Type))
7977 : : {
7978 : : /* avoid dangling else. */
7979 : 39832 : return M2GenGCC_GetHighFromUnbounded (location, dim, operand);
7980 : : }
7981 : : else
7982 : : {
7983 : : /* avoid dangling else. */
7984 : 0 : M2MetaError_MetaErrorT1 (tokenno, (const char *) "base procedure HIGH expects a variable of type array or a constant string or CHAR as its parameter, rather than {%1Etad}", 120, operand);
7985 : 0 : return m2expr_GetIntegerZero (location);
7986 : : }
7987 : : /* static analysis guarentees a RETURN statement will be used before here. */
7988 : : __builtin_unreachable ();
7989 : : }
7990 : :
7991 : :
7992 : : /*
7993 : : FoldHigh - if the array is not dynamic then we should be able to
7994 : : remove the HighOp quadruple and assign op1 with
7995 : : the known compile time HIGH(op3).
7996 : : */
7997 : :
7998 : 992474 : static void FoldHigh (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int dim, unsigned int op3)
7999 : : {
8000 : 992474 : tree t;
8001 : 992474 : location_t location;
8002 : :
8003 : : /* firstly ensure that any constant literal is declared */
8004 : 992474 : M2GCCDeclare_TryDeclareConstant (tokenno, op3);
8005 : 992474 : location = M2LexBuf_TokenToLocation (tokenno);
8006 : 992474 : if ((SymbolConversion_GccKnowsAbout (op3)) && (M2GCCDeclare_CompletelyResolved (op3)))
8007 : : {
8008 : 783772 : t = ResolveHigh (tokenno, dim, op3);
8009 : : /* fine, we can take advantage of this and fold constants */
8010 : 783772 : if ((SymbolTable_IsConst (op1)) && (t != ((tree) (NULL))))
8011 : : {
8012 : 82 : SymbolTable_PutConst (op1, M2Base_Cardinal);
8013 : 82 : SymbolConversion_AddModGcc (op1, m2decl_DeclareKnownConstant (location, m2type_GetCardinalType (), m2convert_ToCardinal (location, t)));
8014 : 82 : (*p.proc) (op1);
8015 : 82 : NoChange = false;
8016 : 82 : M2Quads_SubQuad (quad);
8017 : : }
8018 : : /* we can still fold the expression, but not the assignment, however, we will
8019 : : not do this here but in CodeHigh
8020 : : */
8021 : : }
8022 : 992474 : }
8023 : :
8024 : :
8025 : : /*
8026 : : CodeHigh - encode a unary arithmetic operation.
8027 : : */
8028 : :
8029 : 34584 : static void CodeHigh (unsigned int result, unsigned int dim, unsigned int array)
8030 : : {
8031 : 34584 : location_t location;
8032 : :
8033 : 34584 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
8034 : : /* firstly ensure that any constant literal is declared */
8035 : 34584 : M2GCCDeclare_DeclareConstant (CurrentQuadToken, array);
8036 : 34584 : if (SymbolTable_IsConst (result))
8037 : : {
8038 : : /* still have a constant which was not resolved, pass it to gcc */
8039 : 24 : M2GCCDeclare_ConstantKnownAndUsed (result, m2decl_DeclareKnownConstant (location, m2type_GetM2ZType (), ResolveHigh (CurrentQuadToken, dim, array)));
8040 : : }
8041 : : else
8042 : : {
8043 : 34560 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (result), m2convert_BuildConvert (location, SymbolConversion_Mod2Gcc (SymbolTable_GetType (result)), ResolveHigh (CurrentQuadToken, dim, array), false));
8044 : : }
8045 : 34584 : }
8046 : :
8047 : :
8048 : : /*
8049 : : CodeUnbounded - codes the creation of an unbounded parameter variable.
8050 : : places the address of op3 into *op1
8051 : : */
8052 : :
8053 : 29818 : static void CodeUnbounded (unsigned int result, unsigned int array)
8054 : : {
8055 : 29818 : tree Addr;
8056 : 29818 : location_t location;
8057 : :
8058 : 29818 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
8059 : 29818 : M2GCCDeclare_DeclareConstant (CurrentQuadToken, array);
8060 : 29818 : if ((SymbolTable_IsConstString (array)) || ((SymbolTable_IsConst (array)) && ((SymbolTable_GetSType (array)) == M2Base_Char)))
8061 : : {
8062 : 22132 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (result), m2expr_BuildAddr (location, M2GCCDeclare_PromoteToString (CurrentQuadToken, array), false));
8063 : : }
8064 : 7686 : else if (SymbolTable_IsConstructor (array))
8065 : : {
8066 : : /* avoid dangling else. */
8067 : 12 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (result), m2expr_BuildAddr (location, SymbolConversion_Mod2Gcc (array), true));
8068 : : }
8069 : 7674 : else if (SymbolTable_IsUnbounded (SymbolTable_GetType (array)))
8070 : : {
8071 : : /* avoid dangling else. */
8072 : 3334 : if ((SymbolTable_GetMode (array)) == SymbolTable_LeftValue)
8073 : : {
8074 : 0 : Addr = m2convert_BuildConvert (location, SymbolConversion_Mod2Gcc (SymbolTable_GetType (result)), SymbolConversion_Mod2Gcc (array), false);
8075 : : }
8076 : : else
8077 : : {
8078 : 3334 : Addr = m2expr_BuildComponentRef (location, SymbolConversion_Mod2Gcc (array), SymbolConversion_Mod2Gcc (SymbolTable_GetUnboundedAddressOffset (SymbolTable_GetType (array))));
8079 : : }
8080 : 3334 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (result), Addr);
8081 : : }
8082 : 4340 : else if ((SymbolTable_GetMode (array)) == SymbolTable_RightValue)
8083 : : {
8084 : : /* avoid dangling else. */
8085 : 4286 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (result), m2expr_BuildAddr (location, SymbolConversion_Mod2Gcc (array), false));
8086 : : }
8087 : : else
8088 : : {
8089 : : /* avoid dangling else. */
8090 : 54 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (result), SymbolConversion_Mod2Gcc (array));
8091 : : }
8092 : 29818 : }
8093 : :
8094 : :
8095 : : /*
8096 : : AreSubrangesKnown - returns TRUE if the subranges values used within, array, are known.
8097 : : */
8098 : :
8099 : 38968 : static bool AreSubrangesKnown (unsigned int array)
8100 : : {
8101 : 38968 : unsigned int type;
8102 : 38968 : unsigned int subscript;
8103 : 38968 : unsigned int low;
8104 : 38968 : unsigned int high;
8105 : :
8106 : 38968 : if (SymbolConversion_GccKnowsAbout (array))
8107 : : {
8108 : 38968 : subscript = SymbolTable_GetArraySubscript (array);
8109 : 38968 : if (subscript == SymbolTable_NulSym)
8110 : : {
8111 : 0 : M2Error_InternalError ((const char *) "not expecting a NulSym as a subscript", 37);
8112 : : }
8113 : : else
8114 : : {
8115 : 38968 : type = SymbolTable_SkipType (SymbolTable_GetType (subscript));
8116 : 38968 : low = M2GCCDeclare_GetTypeMin (type);
8117 : 38968 : high = M2GCCDeclare_GetTypeMax (type);
8118 : 38968 : return (SymbolConversion_GccKnowsAbout (low)) && (SymbolConversion_GccKnowsAbout (high));
8119 : : }
8120 : : }
8121 : : else
8122 : : {
8123 : : return false;
8124 : : }
8125 : : ReturnException ("/home/worker/buildworker/tiber-lcov/build/gcc/m2/gm2-compiler/M2GenGCC.def", 20, 1);
8126 : : __builtin_unreachable ();
8127 : : }
8128 : :
8129 : :
8130 : : /*
8131 : : CodeArray - res is an lvalue which will point to the array element.
8132 : : */
8133 : :
8134 : 38968 : static void CodeArray (unsigned int res, unsigned int index, unsigned int array)
8135 : : {
8136 : 38968 : unsigned int resType;
8137 : 38968 : unsigned int arrayDecl;
8138 : 38968 : unsigned int type;
8139 : 38968 : unsigned int low;
8140 : 38968 : unsigned int subscript;
8141 : 38968 : tree a;
8142 : 38968 : tree ta;
8143 : 38968 : tree ti;
8144 : 38968 : tree tl;
8145 : 38968 : location_t location;
8146 : :
8147 : 38968 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
8148 : 38968 : arrayDecl = SymbolTable_SkipType (SymbolTable_GetType (array));
8149 : 38968 : if (AreSubrangesKnown (arrayDecl))
8150 : : {
8151 : 38968 : subscript = SymbolTable_GetArraySubscript (arrayDecl);
8152 : 38968 : type = SymbolTable_SkipType (SymbolTable_GetType (subscript));
8153 : 38968 : low = M2GCCDeclare_GetTypeMin (type);
8154 : 38968 : resType = SymbolTable_GetVarBackEndType (res);
8155 : 38968 : if (resType == SymbolTable_NulSym)
8156 : : {
8157 : 0 : resType = SymbolTable_SkipType (SymbolTable_GetType (res));
8158 : : }
8159 : 38968 : ta = SymbolConversion_Mod2Gcc (SymbolTable_SkipType (SymbolTable_GetType (arrayDecl)));
8160 : 38968 : if ((SymbolTable_GetMode (array)) == SymbolTable_LeftValue)
8161 : : {
8162 : 1640 : a = m2expr_BuildIndirect (location, SymbolConversion_Mod2Gcc (array), SymbolConversion_Mod2Gcc (SymbolTable_SkipType (SymbolTable_GetType (array))));
8163 : : }
8164 : : else
8165 : : {
8166 : 37328 : a = SymbolConversion_Mod2Gcc (array);
8167 : : }
8168 : 38968 : if (SymbolTable_IsArrayLarge (arrayDecl))
8169 : : {
8170 : 24 : tl = m2convert_BuildConvert (location, SymbolConversion_Mod2Gcc (type), SymbolConversion_Mod2Gcc (low), false);
8171 : 24 : ti = m2convert_BuildConvert (location, SymbolConversion_Mod2Gcc (type), SymbolConversion_Mod2Gcc (index), false);
8172 : 24 : ti = m2convert_BuildConvert (location, m2type_GetIntegerType (), m2expr_BuildSub (location, ti, tl, false), false);
8173 : 24 : tl = m2expr_GetIntegerZero (location);
8174 : : }
8175 : : else
8176 : : {
8177 : 38944 : tl = m2convert_BuildConvert (location, m2type_GetIntegerType (), SymbolConversion_Mod2Gcc (low), false);
8178 : 38944 : ti = m2convert_BuildConvert (location, m2type_GetIntegerType (), SymbolConversion_Mod2Gcc (index), false);
8179 : : }
8180 : : /* ti := BuildConvert(location, GetIntegerType(), Mod2Gcc(high), FALSE) ; */
8181 : 38968 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (res), m2convert_BuildConvert (location, SymbolConversion_Mod2Gcc (resType), m2expr_BuildAddr (location, m2expr_BuildArray (location, ta, a, ti, tl), false), false));
8182 : : }
8183 : : else
8184 : : {
8185 : 0 : M2Error_InternalError ((const char *) "subranges not yet resolved", 26);
8186 : : }
8187 : 38968 : }
8188 : :
8189 : :
8190 : : /*
8191 : : FoldElementSizeForArray - attempts to calculate the Subscript
8192 : : multiplier for the index op3.
8193 : : */
8194 : :
8195 : 0 : static void FoldElementSizeForArray (unsigned int tokenno, unsigned int quad, M2GCCDeclare_WalkAction p, unsigned int result, unsigned int type)
8196 : : {
8197 : 0 : unsigned int Subscript;
8198 : 0 : location_t location;
8199 : :
8200 : 0 : location = M2LexBuf_TokenToLocation (tokenno);
8201 : 0 : if ((SymbolTable_IsConst (result)) && (! (SymbolConversion_GccKnowsAbout (result))))
8202 : : {
8203 : 0 : Subscript = SymbolTable_GetArraySubscript (type);
8204 : 0 : if (SymbolTable_IsSizeSolved (Subscript))
8205 : : {
8206 : 0 : SymbolTable_PutConst (result, M2Base_Integer);
8207 : 0 : SymbolTable_PushSize (Subscript);
8208 : 0 : SymbolConversion_AddModGcc (result, m2decl_DeclareKnownConstant (location, m2type_GetCardinalType (), m2convert_BuildConvert (location, m2type_GetCardinalType (), M2ALU_PopIntegerTree (), true)));
8209 : 0 : (*p.proc) (result);
8210 : 0 : NoChange = false;
8211 : 0 : M2Quads_SubQuad (quad);
8212 : : }
8213 : : }
8214 : 0 : }
8215 : :
8216 : :
8217 : : /*
8218 : : FoldElementSizeForUnbounded - Unbounded arrays only have one index,
8219 : : therefore element size will be the
8220 : : TSIZE(Type) where Type is defined as:
8221 : : ARRAY OF Type.
8222 : : */
8223 : :
8224 : 7876 : static void FoldElementSizeForUnbounded (unsigned int tokenno, unsigned int quad, M2GCCDeclare_WalkAction p, unsigned int result, unsigned int ArrayType)
8225 : : {
8226 : 7876 : unsigned int Type;
8227 : 7876 : location_t location;
8228 : :
8229 : 7876 : location = M2LexBuf_TokenToLocation (tokenno);
8230 : 7876 : if (SymbolTable_IsConst (result))
8231 : : {
8232 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
8233 : 7876 : if (SymbolConversion_GccKnowsAbout (result))
8234 : : {
8235 : 0 : M2Error_InternalError ((const char *) "cannot assign a value twice to a constant", 41);
8236 : : }
8237 : : else
8238 : : {
8239 : 7876 : M2Debug_Assert (SymbolTable_IsUnbounded (ArrayType));
8240 : 7876 : Type = SymbolTable_GetType (ArrayType);
8241 : 7876 : if (SymbolConversion_GccKnowsAbout (Type))
8242 : : {
8243 : 7876 : SymbolTable_PutConst (result, M2Base_Cardinal);
8244 : 7876 : SymbolConversion_AddModGcc (result, m2decl_DeclareKnownConstant (location, m2type_GetCardinalType (), m2convert_BuildConvert (location, m2type_GetCardinalType (), FindSize (tokenno, Type), true)));
8245 : 7876 : (*p.proc) (result);
8246 : 7876 : NoChange = false;
8247 : 7876 : M2Quads_SubQuad (quad);
8248 : : }
8249 : : }
8250 : : }
8251 : 7876 : }
8252 : :
8253 : :
8254 : : /*
8255 : : FoldElementSize - folds the element size for an ArraySym or UnboundedSym.
8256 : : ElementSize returns a constant which defines the
8257 : : multiplier to be multiplied by this element index.
8258 : : */
8259 : :
8260 : 7876 : static void FoldElementSize (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int result, unsigned int type)
8261 : : {
8262 : 7876 : if (SymbolTable_IsUnbounded (type))
8263 : : {
8264 : 7876 : FoldElementSizeForUnbounded (tokenno, quad, p, result, type);
8265 : : }
8266 : 0 : else if (SymbolTable_IsArray (type))
8267 : : {
8268 : : /* avoid dangling else. */
8269 : 0 : FoldElementSizeForArray (tokenno, quad, p, result, type);
8270 : : }
8271 : : else
8272 : : {
8273 : : /* avoid dangling else. */
8274 : 0 : M2Error_InternalError ((const char *) "expecting UnboundedSym or ArraySym", 34);
8275 : : }
8276 : 7876 : }
8277 : :
8278 : :
8279 : : /*
8280 : : PopKindTree - returns a Tree from M2ALU of the type implied by, op.
8281 : : */
8282 : :
8283 : 15666 : static tree PopKindTree (unsigned int op, unsigned int tokenno)
8284 : : {
8285 : 15666 : unsigned int type;
8286 : :
8287 : 15666 : if ((SymbolTable_IsConst (op)) && (SymbolTable_IsConstString (op)))
8288 : : {
8289 : : /* Converting a nul char or char for example. */
8290 : 824 : return M2ALU_PopIntegerTree ();
8291 : : }
8292 : : else
8293 : : {
8294 : 14842 : type = SymbolTable_SkipType (SymbolTable_GetType (op));
8295 : 14842 : if (SymbolTable_IsSet (type))
8296 : : {
8297 : 0 : return M2ALU_PopSetTree (tokenno);
8298 : : }
8299 : 14842 : else if (M2Base_IsRealType (type))
8300 : : {
8301 : : /* avoid dangling else. */
8302 : 42 : return M2ALU_PopRealTree ();
8303 : : }
8304 : : else
8305 : : {
8306 : : /* avoid dangling else. */
8307 : 14800 : return M2ALU_PopIntegerTree ();
8308 : : }
8309 : : }
8310 : : /* static analysis guarentees a RETURN statement will be used before here. */
8311 : : __builtin_unreachable ();
8312 : : }
8313 : :
8314 : :
8315 : : /*
8316 : : FoldConvert - attempts to fold expr to type into result
8317 : : providing that result and expr are constants.
8318 : : If required convert will alter the machine representation
8319 : : of expr to comply with type.
8320 : : */
8321 : :
8322 : 285044 : static void FoldConvert (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int result, unsigned int type, unsigned int expr)
8323 : : {
8324 : 285044 : tree tl;
8325 : 285044 : location_t location;
8326 : :
8327 : 285044 : location = M2LexBuf_TokenToLocation (tokenno);
8328 : : /* First ensure that constant literals are declared. */
8329 : 285044 : M2GCCDeclare_TryDeclareConstant (tokenno, expr);
8330 : 285044 : if (IsConstant (expr))
8331 : : {
8332 : 161538 : if (((SymbolConversion_GccKnowsAbout (type)) && ((SymbolTable_IsProcedure (expr)) || (SymbolTable_IsValueSolved (expr)))) && (SymbolConversion_GccKnowsAbout (SymbolTable_SkipType (type))))
8333 : : {
8334 : : /* The type is known and expr is resolved so fold the convert. */
8335 : 156240 : if (SymbolTable_IsConst (result))
8336 : : {
8337 : 5318 : SymbolTable_PutConst (result, type); /* Change result type just in case. */
8338 : 5318 : tl = SymbolConversion_Mod2Gcc (SymbolTable_SkipType (type)); /* Change result type just in case. */
8339 : 5318 : if (SymbolTable_IsProcedure (expr))
8340 : : {
8341 : 0 : SymbolConversion_AddModGcc (result, m2convert_BuildConvert (location, tl, SymbolConversion_Mod2Gcc (expr), true));
8342 : : }
8343 : : else
8344 : : {
8345 : 5318 : SymbolTable_PushValue (expr);
8346 : 5318 : if (SymbolTable_IsConstSet (expr))
8347 : : {
8348 : 84 : if (SymbolTable_IsSet (SymbolTable_SkipType (type)))
8349 : : {
8350 : 0 : M2Error_WriteFormat0 ((const char *) "cannot convert values between sets", 34);
8351 : : }
8352 : : else
8353 : : {
8354 : 84 : M2ALU_PushIntegerTree (m2expr_FoldAndStrip (m2convert_BuildConvert (location, tl, M2ALU_PopSetTree (tokenno), true)));
8355 : 84 : SymbolTable_PopValue (result);
8356 : 84 : SymbolTable_PushValue (result);
8357 : 84 : SymbolConversion_AddModGcc (result, M2ALU_PopIntegerTree ());
8358 : : }
8359 : : }
8360 : : else
8361 : : {
8362 : 5234 : if (SymbolTable_IsSet (SymbolTable_SkipType (type)))
8363 : : {
8364 : 0 : M2ALU_PushSetTree (tokenno, m2expr_FoldAndStrip (m2convert_BuildConvert (location, tl, PopKindTree (expr, tokenno), true)), SymbolTable_SkipType (type));
8365 : 0 : SymbolTable_PopValue (result);
8366 : 0 : SymbolTable_PutConstSet (result);
8367 : 0 : SymbolTable_PushValue (result);
8368 : 0 : SymbolConversion_AddModGcc (result, M2ALU_PopSetTree (tokenno));
8369 : : }
8370 : 5234 : else if (M2Base_IsRealType (SymbolTable_SkipType (type)))
8371 : : {
8372 : : /* avoid dangling else. */
8373 : 36 : M2ALU_PushRealTree (m2expr_FoldAndStrip (m2convert_BuildConvert (location, tl, PopKindTree (expr, tokenno), true)));
8374 : 36 : SymbolTable_PopValue (result);
8375 : 36 : SymbolTable_PushValue (result);
8376 : 36 : SymbolConversion_AddModGcc (result, PopKindTree (result, tokenno));
8377 : : }
8378 : : else
8379 : : {
8380 : : /* avoid dangling else. */
8381 : : /* Let CheckOverflow catch a potential overflow rather than BuildConvert. */
8382 : 5198 : M2ALU_PushIntegerTree (m2expr_FoldAndStrip (m2convert_BuildConvert (location, tl, PopKindTree (expr, tokenno), false)));
8383 : 5198 : SymbolTable_PopValue (result);
8384 : 5198 : SymbolTable_PushValue (result);
8385 : 5198 : M2ALU_CheckOrResetOverflow (tokenno, PopKindTree (result, tokenno), M2Quads_MustCheckOverflow (quad));
8386 : 5198 : SymbolTable_PushValue (result);
8387 : 5198 : SymbolConversion_AddModGcc (result, PopKindTree (result, tokenno));
8388 : : }
8389 : : }
8390 : : }
8391 : 5318 : (*p.proc) (result);
8392 : 5318 : NoChange = false;
8393 : 5318 : M2Quads_SubQuad (quad);
8394 : : }
8395 : : }
8396 : : }
8397 : 285044 : }
8398 : :
8399 : :
8400 : : /*
8401 : : CodeConvert - Converts, rhs, to, type, placing the result into lhs.
8402 : : Convert will, if need be, alter the machine representation
8403 : : of op3 to comply with TYPE op2.
8404 : : */
8405 : :
8406 : 40678 : static void CodeConvert (unsigned int quad, unsigned int lhs, unsigned int type, unsigned int rhs)
8407 : : {
8408 : 40678 : tree tl;
8409 : 40678 : tree tr;
8410 : 40678 : location_t location;
8411 : :
8412 : 40678 : CheckStop (quad);
8413 : : /* firstly ensure that constant literals are declared */
8414 : 40678 : M2GCCDeclare_DeclareConstant (CurrentQuadToken, rhs);
8415 : 40678 : M2GCCDeclare_DeclareConstructor (CurrentQuadToken, quad, rhs);
8416 : 40678 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
8417 : 40678 : tl = M2GenGCC_LValueToGenericPtr (location, type);
8418 : 40678 : if (SymbolTable_IsProcedure (rhs))
8419 : : {
8420 : 25224 : tr = m2expr_BuildAddr (location, SymbolConversion_Mod2Gcc (rhs), false);
8421 : : }
8422 : : else
8423 : : {
8424 : 15454 : tr = M2GenGCC_LValueToGenericPtr (location, rhs);
8425 : 15454 : tr = ConvertRHS (tr, type, rhs);
8426 : : }
8427 : 40678 : if (SymbolTable_IsConst (lhs))
8428 : : {
8429 : : /* fine, we can take advantage of this and fold constant */
8430 : 0 : SymbolTable_PutConst (lhs, type);
8431 : 0 : tl = SymbolConversion_Mod2Gcc (SymbolTable_SkipType (type));
8432 : 0 : M2GCCDeclare_ConstantKnownAndUsed (lhs, m2convert_BuildConvert (location, tl, SymbolConversion_Mod2Gcc (rhs), true));
8433 : : }
8434 : : else
8435 : : {
8436 : 40678 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (lhs), m2convert_BuildConvert (location, tl, tr, true));
8437 : : }
8438 : 40678 : }
8439 : :
8440 : :
8441 : : /*
8442 : : CodeCoerce - Coerce op3 to type op2 placing the result into
8443 : : op1.
8444 : : Coerce will NOT alter the machine representation
8445 : : of op3 to comply with TYPE op2.
8446 : : Therefore it _insists_ that under all circumstances that the
8447 : : type sizes of op1 and op3 are the same.
8448 : : CONVERT will perform machine manipulation to change variable
8449 : : types, coerce does no such thing.
8450 : : */
8451 : :
8452 : 556 : static void CodeCoerce (unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
8453 : : {
8454 : 556 : location_t location;
8455 : :
8456 : 556 : M2GCCDeclare_DeclareConstant (CurrentQuadToken, op3); /* checks to see whether it is a constant literal and declares it */
8457 : 556 : M2GCCDeclare_DeclareConstructor (CurrentQuadToken, quad, op3); /* checks to see whether it is a constant literal and declares it */
8458 : 556 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
8459 : 556 : if (SymbolTable_IsProcedure (op3))
8460 : : {
8461 : 0 : if (m2expr_AreConstantsEqual (FindSize (CurrentQuadToken, op1), FindSize (CurrentQuadToken, M2System_Address)))
8462 : : {
8463 : 0 : if (SymbolTable_IsConst (op1))
8464 : : {
8465 : 0 : M2GCCDeclare_ConstantKnownAndUsed (op1, CheckConstant (CurrentQuadToken, op1, op3));
8466 : : }
8467 : : else
8468 : : {
8469 : 0 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (op1), SymbolConversion_Mod2Gcc (op3));
8470 : : }
8471 : : }
8472 : : else
8473 : : {
8474 : 0 : M2MetaError_MetaErrorT0 (CurrentQuadToken, (const char *) "{%E}procedure address can only be stored in an address sized operand", 68);
8475 : : }
8476 : : }
8477 : 556 : else if ((SymbolTable_IsConst (op3)) || (m2expr_AreConstantsEqual (FindSize (CurrentQuadToken, op1), FindSize (CurrentQuadToken, op3))))
8478 : : {
8479 : : /* avoid dangling else. */
8480 : 556 : if (SymbolTable_IsConst (op1))
8481 : : {
8482 : 0 : M2GCCDeclare_ConstantKnownAndUsed (op1, m2decl_DeclareKnownConstant (location, SymbolConversion_Mod2Gcc (SymbolTable_GetType (op1)), SymbolConversion_Mod2Gcc (op3)));
8483 : : }
8484 : : else
8485 : : {
8486 : 556 : M2Debug_Assert (SymbolConversion_GccKnowsAbout (op2));
8487 : 556 : if (SymbolTable_IsConst (op3))
8488 : : {
8489 : 0 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (op1), SymbolConversion_Mod2Gcc (op3));
8490 : : }
8491 : : else
8492 : : {
8493 : : /* does not work t := BuildCoerce(Mod2Gcc(op1), Mod2Gcc(op2), Mod2Gcc(op3)) */
8494 : 556 : checkDeclare (op1);
8495 : 556 : m2type_AddStatement (location, MaybeDebugBuiltinMemcpy (location, m2expr_BuildAddr (location, SymbolConversion_Mod2Gcc (op1), false), m2expr_BuildAddr (location, SymbolConversion_Mod2Gcc (op3), false), FindSize (CurrentQuadToken, op2)));
8496 : : }
8497 : : }
8498 : : }
8499 : : else
8500 : : {
8501 : : /* avoid dangling else. */
8502 : 0 : M2MetaError_MetaErrorT0 (CurrentQuadToken, (const char *) "can only {%kCAST} objects of the same size", 42);
8503 : : }
8504 : 556 : }
8505 : :
8506 : :
8507 : : /*
8508 : : FoldCoerce -
8509 : : */
8510 : :
8511 : 4590 : static void FoldCoerce (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
8512 : : {
8513 : 4590 : location_t location;
8514 : :
8515 : 4590 : M2GCCDeclare_TryDeclareConstant (tokenno, op3); /* checks to see whether it is a constant literal and declares it */
8516 : 4590 : location = M2LexBuf_TokenToLocation (tokenno); /* checks to see whether it is a constant literal and declares it */
8517 : 4590 : if ((SymbolConversion_GccKnowsAbout (op2)) && (SymbolConversion_GccKnowsAbout (op3)))
8518 : : {
8519 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
8520 : 1550 : if (SymbolTable_IsProcedure (op3))
8521 : : {
8522 : 0 : if (m2expr_AreConstantsEqual (FindSize (tokenno, op1), FindSize (tokenno, M2System_Address)))
8523 : : {
8524 : : /* avoid dangling else. */
8525 : 0 : if (SymbolTable_IsConst (op1))
8526 : : {
8527 : 0 : SymbolConversion_AddModGcc (op1, m2decl_DeclareKnownConstant (location, SymbolConversion_Mod2Gcc (SymbolTable_GetType (op1)), SymbolConversion_Mod2Gcc (op3)));
8528 : 0 : (*p.proc) (op1);
8529 : 0 : NoChange = false;
8530 : 0 : M2Quads_SubQuad (quad);
8531 : : }
8532 : : }
8533 : : else
8534 : : {
8535 : 0 : M2MetaError_MetaErrorT0 (CurrentQuadToken, (const char *) "{%E}procedure address can only be stored in a address sized operand", 67);
8536 : : }
8537 : : }
8538 : 1550 : else if (SymbolTable_IsConst (op3))
8539 : : {
8540 : : /* avoid dangling else. */
8541 : 1024 : if (SymbolTable_IsConst (op1))
8542 : : {
8543 : 1024 : SymbolConversion_AddModGcc (op1, m2decl_DeclareKnownConstant (location, SymbolConversion_Mod2Gcc (SymbolTable_GetType (op1)), SymbolConversion_Mod2Gcc (op3)));
8544 : 1024 : (*p.proc) (op1);
8545 : 1024 : NoChange = false;
8546 : 1024 : M2Quads_SubQuad (quad);
8547 : : }
8548 : : }
8549 : : }
8550 : 4590 : }
8551 : :
8552 : :
8553 : : /*
8554 : : CanConvert - returns TRUE if we can convert variable, var, to a, type.
8555 : : */
8556 : :
8557 : 0 : static bool CanConvert (unsigned int type, unsigned int var)
8558 : : {
8559 : 0 : unsigned int svar;
8560 : 0 : unsigned int stype;
8561 : :
8562 : 0 : stype = SymbolTable_SkipType (type);
8563 : 0 : svar = SymbolTable_SkipType (SymbolTable_GetType (var));
8564 : 0 : return (((M2Base_IsBaseType (stype)) || (M2Base_IsOrdinalType (stype))) || (M2System_IsSystemType (stype))) && (((M2Base_IsBaseType (svar)) || (M2Base_IsOrdinalType (svar))) || (M2System_IsSystemType (stype)));
8565 : : /* static analysis guarentees a RETURN statement will be used before here. */
8566 : : __builtin_unreachable ();
8567 : : }
8568 : :
8569 : :
8570 : : /*
8571 : : CodeCast - Cast op3 to type op2 placing the result into op1.
8572 : : Cast will NOT alter the machine representation
8573 : : of op3 to comply with TYPE op2 as long as SIZE(op3)=SIZE(op2).
8574 : : If the sizes differ then Convert is called.
8575 : : */
8576 : :
8577 : 126 : static void CodeCast (unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
8578 : : {
8579 : 126 : location_t location;
8580 : :
8581 : 126 : M2GCCDeclare_DeclareConstant (CurrentQuadToken, op3); /* checks to see whether it is a constant literal and declares it */
8582 : 126 : M2GCCDeclare_DeclareConstructor (CurrentQuadToken, quad, op3); /* checks to see whether it is a constant literal and declares it */
8583 : 126 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
8584 : 126 : if (SymbolTable_IsProcedure (op3))
8585 : : {
8586 : 0 : if (m2expr_AreConstantsEqual (FindSize (CurrentQuadToken, op1), FindSize (CurrentQuadToken, M2System_Address)))
8587 : : {
8588 : 0 : if (SymbolTable_IsConst (op1))
8589 : : {
8590 : 0 : M2GCCDeclare_ConstantKnownAndUsed (op1, CheckConstant (CurrentQuadToken, op1, op3));
8591 : : }
8592 : : else
8593 : : {
8594 : 0 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (op1), SymbolConversion_Mod2Gcc (op3));
8595 : : }
8596 : : }
8597 : : else
8598 : : {
8599 : 0 : M2MetaError_MetaErrorT0 (CurrentQuadToken, (const char *) "{%E}procedure address can only be stored in an address sized operand", 68);
8600 : : }
8601 : : }
8602 : 126 : else if ((SymbolTable_IsConst (op3)) || (m2expr_AreConstantsEqual (FindSize (CurrentQuadToken, op1), FindSize (CurrentQuadToken, op3))))
8603 : : {
8604 : : /* avoid dangling else. */
8605 : 108 : CodeCoerce (quad, op1, op2, op3);
8606 : : }
8607 : : else
8608 : : {
8609 : : /* avoid dangling else. */
8610 : 18 : if (M2Options_PedanticCast && (! (CanConvert (op2, op3))))
8611 : : {
8612 : 0 : M2MetaError_MetaError2 ((const char *) "{%WkCAST} cannot copy a variable src {%2Dad} to a destination {%1Dad} as they are of different sizes and are not ordinal or real types", 134, op1, op3);
8613 : : }
8614 : 18 : CodeConvert (quad, op1, op2, op3);
8615 : : }
8616 : 126 : }
8617 : :
8618 : 1236 : static void FoldCast (unsigned int tokenno, M2GCCDeclare_WalkAction p, unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
8619 : : {
8620 : : /*
8621 : : FoldCoerce -
8622 : : */
8623 : 1236 : M2GCCDeclare_TryDeclareConstant (tokenno, op3); /* checks to see whether it is a constant literal and declares it */
8624 : 1236 : if ((SymbolConversion_GccKnowsAbout (op2)) && (SymbolConversion_GccKnowsAbout (op3))) /* checks to see whether it is a constant literal and declares it */
8625 : : {
8626 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
8627 : 114 : if (SymbolTable_IsProcedure (op3))
8628 : : {
8629 : 0 : if (m2expr_AreConstantsEqual (FindSize (tokenno, op1), FindSize (tokenno, M2System_Address)))
8630 : : {
8631 : 0 : FoldCoerce (tokenno, p, quad, op1, op2, op3);
8632 : : }
8633 : : else
8634 : : {
8635 : 0 : M2MetaError_MetaErrorT0 (tokenno, (const char *) "{%E}procedure address can only be stored in an address sized operand", 68);
8636 : : }
8637 : : }
8638 : 114 : else if (SymbolTable_IsConst (op3))
8639 : : {
8640 : : /* avoid dangling else. */
8641 : 0 : FoldCoerce (tokenno, p, quad, op1, op2, op3);
8642 : : }
8643 : : }
8644 : 1236 : }
8645 : :
8646 : :
8647 : : /*
8648 : : CreateLabelProcedureN - creates a label using procedure name and
8649 : : an integer.
8650 : : */
8651 : :
8652 : 0 : static DynamicStrings_String CreateLabelProcedureN (unsigned int proc, const char *leader_, unsigned int _leader_high, unsigned int unboundedCount, unsigned int n)
8653 : : {
8654 : 0 : DynamicStrings_String n1;
8655 : 0 : DynamicStrings_String n2;
8656 : 0 : char leader[_leader_high+1];
8657 : :
8658 : : /* make a local copy of each unbounded array. */
8659 : 0 : memcpy (leader, leader_, _leader_high+1);
8660 : :
8661 : 0 : n1 = DynamicStrings_Mark (DynamicStrings_InitStringCharStar (NameKey_KeyToCharStar (SymbolTable_GetSymName (proc))));
8662 : 0 : n2 = DynamicStrings_Mark (DynamicStrings_InitString ((const char *) leader, _leader_high));
8663 : : /* prefixed by .L unboundedCount and n to ensure that no Modula-2 identifiers clash */
8664 : 0 : return FormatStrings_Sprintf4 (DynamicStrings_Mark (DynamicStrings_InitString ((const char *) ".L%d.%d.unbounded.%s.%s", 23)), (const unsigned char *) &unboundedCount, (sizeof (unboundedCount)-1), (const unsigned char *) &n, (sizeof (n)-1), (const unsigned char *) &n1, (sizeof (n1)-1), (const unsigned char *) &n2, (sizeof (n2)-1));
8665 : : /* static analysis guarentees a RETURN statement will be used before here. */
8666 : : __builtin_unreachable ();
8667 : 0 : }
8668 : :
8669 : :
8670 : : /*
8671 : : CreateLabelName - creates a namekey from quadruple, q.
8672 : : */
8673 : :
8674 : 180972 : static DynamicStrings_String CreateLabelName (unsigned int q)
8675 : : {
8676 : : /* prefixed by . to ensure that no Modula-2 identifiers clash */
8677 : 180972 : return FormatStrings_Sprintf1 (DynamicStrings_Mark (DynamicStrings_InitString ((const char *) ".L%d", 4)), (const unsigned char *) &q, (sizeof (q)-1));
8678 : : /* static analysis guarentees a RETURN statement will be used before here. */
8679 : : __builtin_unreachable ();
8680 : : }
8681 : :
8682 : :
8683 : : /*
8684 : : CodeGoto - creates a jump to a labeled quadruple.
8685 : : */
8686 : :
8687 : 35772 : static void CodeGoto (unsigned int destquad)
8688 : : {
8689 : 35772 : location_t location;
8690 : :
8691 : 35772 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
8692 : 35772 : m2statement_BuildGoto (location, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (destquad))));
8693 : 35772 : }
8694 : :
8695 : :
8696 : : /*
8697 : : CheckReferenced - checks to see whether this quadruple requires a label.
8698 : : */
8699 : :
8700 : 3290770 : static void CheckReferenced (unsigned int quad, M2Quads_QuadOperator op)
8701 : : {
8702 : 3290770 : location_t location;
8703 : :
8704 : 3290770 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
8705 : : /* we do not create labels for procedure entries */
8706 : 3290770 : if (((op != M2Quads_ProcedureScopeOp) && (op != M2Quads_NewLocalVarOp)) && (M2Quads_IsReferenced (quad)))
8707 : : {
8708 : 83010 : m2statement_DeclareLabel (location, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (quad))));
8709 : : }
8710 : 3290770 : }
8711 : :
8712 : :
8713 : : /*
8714 : : CodeIfSetLess -
8715 : : */
8716 : :
8717 : 6 : static void CodeIfSetLess (unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
8718 : : {
8719 : 6 : unsigned int settype;
8720 : 6 : void * falselabel;
8721 : 6 : location_t location;
8722 : :
8723 : 6 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
8724 : 6 : if ((SymbolTable_IsConst (op1)) && (SymbolTable_IsConst (op2)))
8725 : : {
8726 : 0 : M2Error_InternalError ((const char *) "this should have been folded in the calling procedure", 53);
8727 : : }
8728 : 6 : else if (SymbolTable_IsConst (op1))
8729 : : {
8730 : : /* avoid dangling else. */
8731 : 0 : settype = SymbolTable_SkipType (SymbolTable_GetType (op2));
8732 : : }
8733 : : else
8734 : : {
8735 : : /* avoid dangling else. */
8736 : 6 : settype = SymbolTable_SkipType (SymbolTable_GetType (op1));
8737 : : }
8738 : 6 : if ((m2expr_CompareTrees (FindSize (CurrentQuadToken, settype), FindSize (CurrentQuadToken, M2System_Word))) <= 0)
8739 : : {
8740 : : /* word size sets */
8741 : 0 : m2statement_DoJump (location, m2expr_BuildIsNotSuperset (location, m2convert_BuildConvert (location, m2type_GetWordType (), SymbolConversion_Mod2Gcc (op1), false), m2convert_BuildConvert (location, m2type_GetWordType (), SymbolConversion_Mod2Gcc (op2), false)), NULL, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (op3))));
8742 : : }
8743 : : else
8744 : : {
8745 : 6 : falselabel = DynamicStrings_string (FormatStrings_Sprintf1 (DynamicStrings_Mark (DynamicStrings_InitString ((const char *) ".Lset%dcomp", 11)), (const unsigned char *) &quad, (sizeof (quad)-1)));
8746 : 6 : m2expr_BuildForeachWordInSetDoIfExpr (location, SymbolConversion_Mod2Gcc (settype), SymbolConversion_Mod2Gcc (op1), SymbolConversion_Mod2Gcc (op2), (SymbolTable_GetMode (op1)) == SymbolTable_LeftValue, (SymbolTable_GetMode (op2)) == SymbolTable_LeftValue, SymbolTable_IsConst (op1), SymbolTable_IsConst (op2), (m2expr_BuildExprProcedure_C) m2expr_BuildIsSuperset, reinterpret_cast <char * > (falselabel));
8747 : 6 : m2statement_BuildGoto (location, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (op3))));
8748 : 6 : m2statement_DeclareLabel (location, reinterpret_cast <char * > (falselabel));
8749 : : }
8750 : 6 : }
8751 : :
8752 : :
8753 : : /*
8754 : : PerformCodeIfLess - codes the quadruple if op1 < op2 then goto op3
8755 : : */
8756 : :
8757 : 2984 : static void PerformCodeIfLess (unsigned int quad)
8758 : : {
8759 : 2984 : tree tl;
8760 : 2984 : tree tr;
8761 : 2984 : location_t location;
8762 : 2984 : unsigned int left;
8763 : 2984 : unsigned int right;
8764 : 2984 : unsigned int dest;
8765 : 2984 : unsigned int combined;
8766 : 2984 : unsigned int leftpos;
8767 : 2984 : unsigned int rightpos;
8768 : 2984 : unsigned int destpos;
8769 : 2984 : bool constExpr;
8770 : 2984 : bool overflow;
8771 : 2984 : M2Quads_QuadOperator op;
8772 : :
8773 : 2984 : M2Quads_GetQuadOtok (quad, &combined, &op, &left, &right, &dest, &overflow, &constExpr, &leftpos, &rightpos, &destpos);
8774 : 2984 : location = M2LexBuf_TokenToLocation (combined);
8775 : 2984 : if ((SymbolTable_IsConst (left)) && (SymbolTable_IsConst (right)))
8776 : : {
8777 : 0 : SymbolTable_PushValue (left);
8778 : 0 : SymbolTable_PushValue (right);
8779 : 0 : if (M2ALU_Less (CurrentQuadToken))
8780 : : {
8781 : 0 : m2statement_BuildGoto (location, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (dest))));
8782 : : }
8783 : : /* Fall through. */
8784 : : }
8785 : 2984 : else if ((((SymbolTable_IsConstSet (left)) || ((SymbolTable_IsVar (left)) && (SymbolTable_IsSet (SymbolTable_SkipType (SymbolTable_GetType (left)))))) || (SymbolTable_IsConstSet (right))) || ((SymbolTable_IsVar (right)) && (SymbolTable_IsSet (SymbolTable_SkipType (SymbolTable_GetType (right))))))
8786 : : {
8787 : : /* avoid dangling else. */
8788 : 6 : CodeIfSetLess (quad, left, right, dest);
8789 : : }
8790 : : else
8791 : : {
8792 : : /* avoid dangling else. */
8793 : 2978 : if ((SymbolTable_IsComposite (SymbolTable_GetType (left))) || (SymbolTable_IsComposite (SymbolTable_GetType (right))))
8794 : : {
8795 : 0 : M2MetaError_MetaErrorT2 (combined, (const char *) "comparison tests between composite types not allowed {%1Eatd} and {%2atd}", 73, left, right);
8796 : : }
8797 : : else
8798 : : {
8799 : 2978 : ConvertBinaryOperands (location, &tl, &tr, ComparisonMixTypes (left, right, SymbolTable_SkipType (SymbolTable_GetType (left)), SymbolTable_SkipType (SymbolTable_GetType (right)), combined), left, right);
8800 : 2978 : m2statement_DoJump (location, m2expr_BuildLessThan (location, tl, tr), NULL, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (dest))));
8801 : : }
8802 : : }
8803 : 2984 : }
8804 : :
8805 : :
8806 : : /*
8807 : : CodeIfLess - codes the quadruple if op1 < op2 then goto op3
8808 : : */
8809 : :
8810 : 2984 : static void CodeIfLess (unsigned int quad)
8811 : : {
8812 : 2984 : if (IsValidExpressionRelOp (quad, false))
8813 : : {
8814 : 2984 : PerformCodeIfLess (quad);
8815 : : }
8816 : 2984 : }
8817 : :
8818 : :
8819 : : /*
8820 : : CodeIfSetGre -
8821 : : */
8822 : :
8823 : 0 : static void CodeIfSetGre (unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
8824 : : {
8825 : 0 : unsigned int settype;
8826 : 0 : void * falselabel;
8827 : 0 : location_t location;
8828 : :
8829 : 0 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
8830 : 0 : if ((SymbolTable_IsConst (op1)) && (SymbolTable_IsConst (op2)))
8831 : : {
8832 : 0 : M2Error_InternalError ((const char *) "this should have been folded in the calling procedure", 53);
8833 : : }
8834 : 0 : else if (SymbolTable_IsConst (op1))
8835 : : {
8836 : : /* avoid dangling else. */
8837 : 0 : settype = SymbolTable_SkipType (SymbolTable_GetType (op2));
8838 : : }
8839 : : else
8840 : : {
8841 : : /* avoid dangling else. */
8842 : 0 : settype = SymbolTable_SkipType (SymbolTable_GetType (op1));
8843 : : }
8844 : 0 : if ((m2expr_CompareTrees (FindSize (CurrentQuadToken, settype), FindSize (CurrentQuadToken, M2System_Word))) <= 0)
8845 : : {
8846 : : /* word size sets */
8847 : 0 : m2statement_DoJump (location, m2expr_BuildIsNotSubset (location, m2convert_BuildConvert (location, m2type_GetWordType (), SymbolConversion_Mod2Gcc (op1), false), m2convert_BuildConvert (location, m2type_GetWordType (), SymbolConversion_Mod2Gcc (op2), false)), NULL, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (op3))));
8848 : : }
8849 : : else
8850 : : {
8851 : 0 : falselabel = DynamicStrings_string (FormatStrings_Sprintf1 (DynamicStrings_Mark (DynamicStrings_InitString ((const char *) ".Lset%dcomp", 11)), (const unsigned char *) &quad, (sizeof (quad)-1)));
8852 : 0 : m2expr_BuildForeachWordInSetDoIfExpr (location, SymbolConversion_Mod2Gcc (settype), SymbolConversion_Mod2Gcc (op1), SymbolConversion_Mod2Gcc (op2), (SymbolTable_GetMode (op1)) == SymbolTable_LeftValue, (SymbolTable_GetMode (op2)) == SymbolTable_LeftValue, SymbolTable_IsConst (op1), SymbolTable_IsConst (op2), (m2expr_BuildExprProcedure_C) m2expr_BuildIsSubset, reinterpret_cast <char * > (falselabel));
8853 : 0 : m2statement_BuildGoto (location, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (op3))));
8854 : 0 : m2statement_DeclareLabel (location, reinterpret_cast <char * > (falselabel));
8855 : : }
8856 : 0 : }
8857 : :
8858 : :
8859 : : /*
8860 : : PerformCodeIfGre - codes the quadruple if op1 > op2 then goto op3
8861 : : */
8862 : :
8863 : 3896 : static void PerformCodeIfGre (unsigned int quad)
8864 : : {
8865 : 3896 : tree tl;
8866 : 3896 : tree tr;
8867 : 3896 : location_t location;
8868 : 3896 : unsigned int left;
8869 : 3896 : unsigned int right;
8870 : 3896 : unsigned int dest;
8871 : 3896 : unsigned int combined;
8872 : 3896 : unsigned int leftpos;
8873 : 3896 : unsigned int rightpos;
8874 : 3896 : unsigned int destpos;
8875 : 3896 : bool constExpr;
8876 : 3896 : bool overflow;
8877 : 3896 : M2Quads_QuadOperator op;
8878 : :
8879 : 3896 : M2Quads_GetQuadOtok (quad, &combined, &op, &left, &right, &dest, &overflow, &constExpr, &leftpos, &rightpos, &destpos);
8880 : 3896 : location = M2LexBuf_TokenToLocation (combined);
8881 : 3896 : if ((SymbolTable_IsConst (left)) && (SymbolTable_IsConst (right)))
8882 : : {
8883 : 0 : SymbolTable_PushValue (left);
8884 : 0 : SymbolTable_PushValue (right);
8885 : 0 : if (M2ALU_Gre (combined))
8886 : : {
8887 : 0 : m2statement_BuildGoto (location, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (dest))));
8888 : : }
8889 : : /* fall through */
8890 : : }
8891 : 3896 : else if ((((SymbolTable_IsConstSet (left)) || ((SymbolTable_IsVar (left)) && (SymbolTable_IsSet (SymbolTable_SkipType (SymbolTable_GetType (left)))))) || (SymbolTable_IsConstSet (right))) || ((SymbolTable_IsVar (right)) && (SymbolTable_IsSet (SymbolTable_SkipType (SymbolTable_GetType (right))))))
8892 : : {
8893 : : /* avoid dangling else. */
8894 : 0 : CodeIfSetGre (quad, left, right, dest);
8895 : : }
8896 : : else
8897 : : {
8898 : : /* avoid dangling else. */
8899 : 3896 : if ((SymbolTable_IsComposite (SymbolTable_GetType (left))) || (SymbolTable_IsComposite (SymbolTable_GetType (right))))
8900 : : {
8901 : 0 : M2MetaError_MetaErrorT2 (combined, (const char *) "comparison tests between composite types not allowed {%1Eatd} and {%2atd}", 73, left, right);
8902 : : }
8903 : : else
8904 : : {
8905 : 3896 : ConvertBinaryOperands (location, &tl, &tr, ComparisonMixTypes (left, right, SymbolTable_SkipType (SymbolTable_GetType (left)), SymbolTable_SkipType (SymbolTable_GetType (right)), combined), left, right);
8906 : 3896 : m2statement_DoJump (location, m2expr_BuildGreaterThan (location, tl, tr), NULL, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (dest))));
8907 : : }
8908 : : }
8909 : 3896 : }
8910 : :
8911 : :
8912 : : /*
8913 : : CodeIfGre - codes the quadruple if op1 > op2 then goto op3
8914 : : */
8915 : :
8916 : 3896 : static void CodeIfGre (unsigned int quad)
8917 : : {
8918 : 3896 : if (IsValidExpressionRelOp (quad, false))
8919 : : {
8920 : 3896 : PerformCodeIfGre (quad);
8921 : : }
8922 : 3896 : }
8923 : :
8924 : :
8925 : : /*
8926 : : CodeIfSetLessEqu -
8927 : : */
8928 : :
8929 : 6 : static void CodeIfSetLessEqu (unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
8930 : : {
8931 : 6 : unsigned int settype;
8932 : 6 : void * falselabel;
8933 : 6 : location_t location;
8934 : :
8935 : 6 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
8936 : 6 : if ((SymbolTable_IsConst (op1)) && (SymbolTable_IsConst (op2)))
8937 : : {
8938 : 0 : M2Error_InternalError ((const char *) "this should have been folded in the calling procedure", 53);
8939 : : }
8940 : 6 : else if (SymbolTable_IsConst (op1))
8941 : : {
8942 : : /* avoid dangling else. */
8943 : 0 : settype = SymbolTable_SkipType (SymbolTable_GetType (op2));
8944 : : }
8945 : : else
8946 : : {
8947 : : /* avoid dangling else. */
8948 : 6 : settype = SymbolTable_SkipType (SymbolTable_GetType (op1));
8949 : : }
8950 : 6 : if ((m2expr_CompareTrees (FindSize (CurrentQuadToken, settype), FindSize (CurrentQuadToken, M2System_Word))) <= 0)
8951 : : {
8952 : : /* word size sets */
8953 : 0 : m2statement_DoJump (location, m2expr_BuildIsSubset (location, m2convert_BuildConvert (location, m2type_GetWordType (), SymbolConversion_Mod2Gcc (op1), false), m2convert_BuildConvert (location, m2type_GetWordType (), SymbolConversion_Mod2Gcc (op2), false)), NULL, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (op3))));
8954 : : }
8955 : : else
8956 : : {
8957 : 6 : falselabel = DynamicStrings_string (FormatStrings_Sprintf1 (DynamicStrings_Mark (DynamicStrings_InitString ((const char *) ".Lset%dcomp", 11)), (const unsigned char *) &quad, (sizeof (quad)-1)));
8958 : 6 : m2expr_BuildForeachWordInSetDoIfExpr (location, SymbolConversion_Mod2Gcc (settype), SymbolConversion_Mod2Gcc (op1), SymbolConversion_Mod2Gcc (op2), (SymbolTable_GetMode (op1)) == SymbolTable_LeftValue, (SymbolTable_GetMode (op2)) == SymbolTable_LeftValue, SymbolTable_IsConst (op1), SymbolTable_IsConst (op2), (m2expr_BuildExprProcedure_C) m2expr_BuildIsNotSubset, reinterpret_cast <char * > (falselabel));
8959 : 6 : m2statement_BuildGoto (location, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (op3))));
8960 : 6 : m2statement_DeclareLabel (location, reinterpret_cast <char * > (falselabel));
8961 : : }
8962 : 6 : }
8963 : :
8964 : :
8965 : : /*
8966 : : PerformCodeIfLessEqu - codes the quadruple if op1 <= op2 then goto op3
8967 : : */
8968 : :
8969 : 4708 : static void PerformCodeIfLessEqu (unsigned int quad)
8970 : : {
8971 : 4708 : tree tl;
8972 : 4708 : tree tr;
8973 : 4708 : location_t location;
8974 : 4708 : unsigned int left;
8975 : 4708 : unsigned int right;
8976 : 4708 : unsigned int dest;
8977 : 4708 : unsigned int combined;
8978 : 4708 : unsigned int leftpos;
8979 : 4708 : unsigned int rightpos;
8980 : 4708 : unsigned int destpos;
8981 : 4708 : bool constExpr;
8982 : 4708 : bool overflow;
8983 : 4708 : M2Quads_QuadOperator op;
8984 : :
8985 : 4708 : M2Quads_GetQuadOtok (quad, &combined, &op, &left, &right, &dest, &overflow, &constExpr, &leftpos, &rightpos, &destpos);
8986 : 4708 : location = M2LexBuf_TokenToLocation (combined);
8987 : 4708 : if ((SymbolTable_IsConst (left)) && (SymbolTable_IsConst (right)))
8988 : : {
8989 : 0 : SymbolTable_PushValue (left);
8990 : 0 : SymbolTable_PushValue (right);
8991 : 0 : if (M2ALU_LessEqu (combined))
8992 : : {
8993 : 0 : m2statement_BuildGoto (location, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (dest))));
8994 : : }
8995 : : /* fall through */
8996 : : }
8997 : 4708 : else if ((((SymbolTable_IsConstSet (left)) || ((SymbolTable_IsVar (left)) && (SymbolTable_IsSet (SymbolTable_SkipType (SymbolTable_GetType (left)))))) || (SymbolTable_IsConstSet (right))) || ((SymbolTable_IsVar (right)) && (SymbolTable_IsSet (SymbolTable_SkipType (SymbolTable_GetType (right))))))
8998 : : {
8999 : : /* avoid dangling else. */
9000 : 6 : CodeIfSetLessEqu (quad, left, right, dest);
9001 : : }
9002 : : else
9003 : : {
9004 : : /* avoid dangling else. */
9005 : 4702 : if ((SymbolTable_IsComposite (SymbolTable_GetType (left))) || (SymbolTable_IsComposite (SymbolTable_GetType (right))))
9006 : : {
9007 : 0 : M2MetaError_MetaErrorT2 (combined, (const char *) "comparison tests between composite types not allowed {%1Eatd} and {%2atd}", 73, left, right);
9008 : : }
9009 : : else
9010 : : {
9011 : 4702 : ConvertBinaryOperands (location, &tl, &tr, ComparisonMixTypes (left, right, SymbolTable_SkipType (SymbolTable_GetType (left)), SymbolTable_SkipType (SymbolTable_GetType (right)), combined), left, right);
9012 : 4702 : m2statement_DoJump (location, m2expr_BuildLessThanOrEqual (location, tl, tr), NULL, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (dest))));
9013 : : }
9014 : : }
9015 : 4708 : }
9016 : :
9017 : :
9018 : : /*
9019 : : CodeIfLessEqu - codes the quadruple if op1 <= op2 then goto op3
9020 : : */
9021 : :
9022 : 4720 : static void CodeIfLessEqu (unsigned int quad)
9023 : : {
9024 : 4720 : if (IsValidExpressionRelOp (quad, false))
9025 : : {
9026 : 4708 : PerformCodeIfLessEqu (quad);
9027 : : }
9028 : 4720 : }
9029 : :
9030 : :
9031 : : /*
9032 : : CodeIfSetGreEqu -
9033 : : */
9034 : :
9035 : 6 : static void CodeIfSetGreEqu (unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
9036 : : {
9037 : 6 : unsigned int settype;
9038 : 6 : void * falselabel;
9039 : 6 : location_t location;
9040 : :
9041 : 6 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
9042 : 6 : if ((SymbolTable_IsConst (op1)) && (SymbolTable_IsConst (op2)))
9043 : : {
9044 : 0 : M2Error_InternalError ((const char *) "this should have been folded in the calling procedure", 53);
9045 : : }
9046 : 6 : else if (SymbolTable_IsConst (op1))
9047 : : {
9048 : : /* avoid dangling else. */
9049 : 0 : settype = SymbolTable_SkipType (SymbolTable_GetType (op2));
9050 : : }
9051 : : else
9052 : : {
9053 : : /* avoid dangling else. */
9054 : 6 : settype = SymbolTable_SkipType (SymbolTable_GetType (op1));
9055 : : }
9056 : 6 : if ((m2expr_CompareTrees (FindSize (CurrentQuadToken, settype), FindSize (CurrentQuadToken, M2System_Word))) <= 0)
9057 : : {
9058 : : /* word size sets */
9059 : 0 : m2statement_DoJump (location, m2expr_BuildIsSuperset (location, m2convert_BuildConvert (location, m2type_GetWordType (), SymbolConversion_Mod2Gcc (op1), false), m2convert_BuildConvert (location, m2type_GetWordType (), SymbolConversion_Mod2Gcc (op2), false)), NULL, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (op3))));
9060 : : }
9061 : : else
9062 : : {
9063 : 6 : falselabel = DynamicStrings_string (FormatStrings_Sprintf1 (DynamicStrings_Mark (DynamicStrings_InitString ((const char *) ".Lset%dcomp", 11)), (const unsigned char *) &quad, (sizeof (quad)-1)));
9064 : 6 : m2expr_BuildForeachWordInSetDoIfExpr (location, SymbolConversion_Mod2Gcc (settype), SymbolConversion_Mod2Gcc (op1), SymbolConversion_Mod2Gcc (op2), (SymbolTable_GetMode (op1)) == SymbolTable_LeftValue, (SymbolTable_GetMode (op2)) == SymbolTable_LeftValue, SymbolTable_IsConst (op1), SymbolTable_IsConst (op2), (m2expr_BuildExprProcedure_C) m2expr_BuildIsNotSuperset, reinterpret_cast <char * > (falselabel));
9065 : 6 : m2statement_BuildGoto (location, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (op3))));
9066 : 6 : m2statement_DeclareLabel (location, reinterpret_cast <char * > (falselabel));
9067 : : }
9068 : 6 : }
9069 : :
9070 : :
9071 : : /*
9072 : : PerformCodeIfGreEqu - codes the quadruple if op1 >= op2 then goto op3
9073 : : */
9074 : :
9075 : 5024 : static void PerformCodeIfGreEqu (unsigned int quad)
9076 : : {
9077 : 5024 : tree tl;
9078 : 5024 : tree tr;
9079 : 5024 : location_t location;
9080 : 5024 : unsigned int left;
9081 : 5024 : unsigned int right;
9082 : 5024 : unsigned int dest;
9083 : 5024 : unsigned int combined;
9084 : 5024 : unsigned int leftpos;
9085 : 5024 : unsigned int rightpos;
9086 : 5024 : unsigned int destpos;
9087 : 5024 : bool constExpr;
9088 : 5024 : bool overflow;
9089 : 5024 : M2Quads_QuadOperator op;
9090 : :
9091 : 5024 : M2Quads_GetQuadOtok (quad, &combined, &op, &left, &right, &dest, &overflow, &constExpr, &leftpos, &rightpos, &destpos);
9092 : 5024 : location = M2LexBuf_TokenToLocation (combined);
9093 : 5024 : if ((SymbolTable_IsConst (left)) && (SymbolTable_IsConst (right)))
9094 : : {
9095 : 0 : SymbolTable_PushValue (left);
9096 : 0 : SymbolTable_PushValue (right);
9097 : 0 : if (M2ALU_GreEqu (combined))
9098 : : {
9099 : 0 : m2statement_BuildGoto (location, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (dest))));
9100 : : }
9101 : : /* fall through */
9102 : : }
9103 : 5024 : else if ((((SymbolTable_IsConstSet (left)) || ((SymbolTable_IsVar (left)) && (SymbolTable_IsSet (SymbolTable_SkipType (SymbolTable_GetType (left)))))) || (SymbolTable_IsConstSet (right))) || ((SymbolTable_IsVar (right)) && (SymbolTable_IsSet (SymbolTable_SkipType (SymbolTable_GetType (right))))))
9104 : : {
9105 : : /* avoid dangling else. */
9106 : 6 : CodeIfSetGreEqu (quad, left, right, dest);
9107 : : }
9108 : : else
9109 : : {
9110 : : /* avoid dangling else. */
9111 : 5018 : if ((SymbolTable_IsComposite (SymbolTable_GetType (left))) || (SymbolTable_IsComposite (SymbolTable_GetType (right))))
9112 : : {
9113 : 0 : M2MetaError_MetaErrorT2 (combined, (const char *) "comparison tests between composite types not allowed {%1Eatd} and {%2atd}", 73, left, right);
9114 : : }
9115 : : else
9116 : : {
9117 : 5018 : ConvertBinaryOperands (location, &tl, &tr, ComparisonMixTypes (left, right, SymbolTable_SkipType (SymbolTable_GetType (left)), SymbolTable_SkipType (SymbolTable_GetType (right)), combined), left, right);
9118 : 5018 : m2statement_DoJump (location, m2expr_BuildGreaterThanOrEqual (location, tl, tr), NULL, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (dest))));
9119 : : }
9120 : : }
9121 : 5024 : }
9122 : :
9123 : :
9124 : : /*
9125 : : CodeIfGreEqu - codes the quadruple if op1 >= op2 then goto op3
9126 : : */
9127 : :
9128 : 5030 : static void CodeIfGreEqu (unsigned int quad)
9129 : : {
9130 : 5030 : if (IsValidExpressionRelOp (quad, false))
9131 : : {
9132 : 5024 : PerformCodeIfGreEqu (quad);
9133 : : }
9134 : 5030 : }
9135 : :
9136 : :
9137 : : /*
9138 : : CodeIfSetEqu - codes if op1 = op2 then goto op3
9139 : : Note that if op1 and op2 are not both constants
9140 : : since this will have been evaluated in CodeIfEqu.
9141 : : */
9142 : :
9143 : 462 : static void CodeIfSetEqu (unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
9144 : : {
9145 : 462 : unsigned int settype;
9146 : 462 : void * falselabel;
9147 : 462 : location_t location;
9148 : :
9149 : 462 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
9150 : 462 : if ((SymbolTable_IsConst (op1)) && (SymbolTable_IsConst (op2)))
9151 : : {
9152 : 0 : M2Error_InternalError ((const char *) "this should have been folded in the calling procedure", 53);
9153 : : }
9154 : 462 : else if (SymbolTable_IsConst (op1))
9155 : : {
9156 : : /* avoid dangling else. */
9157 : 0 : settype = SymbolTable_SkipType (SymbolTable_GetType (op2));
9158 : : }
9159 : : else
9160 : : {
9161 : : /* avoid dangling else. */
9162 : 462 : settype = SymbolTable_SkipType (SymbolTable_GetType (op1));
9163 : : }
9164 : 462 : if ((m2expr_CompareTrees (FindSize (CurrentQuadToken, settype), FindSize (CurrentQuadToken, M2System_Word))) <= 0)
9165 : : {
9166 : : /* word size sets */
9167 : 204 : m2statement_DoJump (location, m2expr_BuildEqualTo (location, m2convert_BuildConvert (location, m2type_GetWordType (), SymbolConversion_Mod2Gcc (op1), false), m2convert_BuildConvert (location, m2type_GetWordType (), SymbolConversion_Mod2Gcc (op2), false)), NULL, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (op3))));
9168 : : }
9169 : 258 : else if ((SymbolTable_GetSType (op1)) == (SymbolTable_GetSType (op2)))
9170 : : {
9171 : : /* avoid dangling else. */
9172 : 258 : falselabel = DynamicStrings_string (FormatStrings_Sprintf1 (DynamicStrings_Mark (DynamicStrings_InitString ((const char *) ".Lset%dcomp", 11)), (const unsigned char *) &quad, (sizeof (quad)-1)));
9173 : 258 : m2expr_BuildForeachWordInSetDoIfExpr (location, SymbolConversion_Mod2Gcc (settype), SymbolConversion_Mod2Gcc (op1), SymbolConversion_Mod2Gcc (op2), (SymbolTable_GetMode (op1)) == SymbolTable_LeftValue, (SymbolTable_GetMode (op2)) == SymbolTable_LeftValue, SymbolTable_IsConst (op1), SymbolTable_IsConst (op2), (m2expr_BuildExprProcedure_C) m2expr_BuildNotEqualTo, reinterpret_cast <char * > (falselabel));
9174 : 258 : m2statement_BuildGoto (location, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (op3))));
9175 : 258 : m2statement_DeclareLabel (location, reinterpret_cast <char * > (falselabel));
9176 : : }
9177 : : else
9178 : : {
9179 : : /* avoid dangling else. */
9180 : 0 : M2MetaError_MetaErrorT2 (CurrentQuadToken, (const char *) "set comparison is only allowed between the same set type, the set types used by {%1Eatd} and {%2atd} are different", 114, op1, op2);
9181 : : }
9182 : 462 : }
9183 : :
9184 : :
9185 : : /*
9186 : : CodeIfSetNotEqu - codes if op1 # op2 then goto op3
9187 : : Note that if op1 and op2 are not both constants
9188 : : since this will have been evaluated in CodeIfNotEqu.
9189 : : */
9190 : :
9191 : 444 : static void CodeIfSetNotEqu (unsigned int left, unsigned int right, unsigned int destQuad)
9192 : : {
9193 : 444 : unsigned int settype;
9194 : 444 : void * truelabel;
9195 : 444 : location_t location;
9196 : :
9197 : 444 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
9198 : 444 : if ((SymbolTable_IsConst (left)) && (SymbolTable_IsConst (right)))
9199 : : {
9200 : 0 : M2Error_InternalError ((const char *) "this should have been folded in the calling procedure", 53);
9201 : : }
9202 : 444 : else if (SymbolTable_IsConst (left))
9203 : : {
9204 : : /* avoid dangling else. */
9205 : 0 : settype = SymbolTable_SkipType (SymbolTable_GetType (right));
9206 : : }
9207 : : else
9208 : : {
9209 : : /* avoid dangling else. */
9210 : 444 : settype = SymbolTable_SkipType (SymbolTable_GetType (left));
9211 : : }
9212 : 444 : if ((m2expr_CompareTrees (FindSize (CurrentQuadToken, settype), FindSize (CurrentQuadToken, M2System_Word))) <= 0)
9213 : : {
9214 : : /* word size sets */
9215 : 216 : m2statement_DoJump (location, m2expr_BuildNotEqualTo (location, m2convert_BuildConvert (location, m2type_GetWordType (), SymbolConversion_Mod2Gcc (left), false), m2convert_BuildConvert (location, m2type_GetWordType (), SymbolConversion_Mod2Gcc (right), false)), NULL, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (destQuad))));
9216 : : }
9217 : 228 : else if ((SymbolTable_GetSType (left)) == (SymbolTable_GetSType (right)))
9218 : : {
9219 : : /* avoid dangling else. */
9220 : 228 : truelabel = DynamicStrings_string (CreateLabelName (destQuad));
9221 : 228 : m2expr_BuildForeachWordInSetDoIfExpr (location, SymbolConversion_Mod2Gcc (settype), SymbolConversion_Mod2Gcc (left), SymbolConversion_Mod2Gcc (right), (SymbolTable_GetMode (left)) == SymbolTable_LeftValue, (SymbolTable_GetMode (right)) == SymbolTable_LeftValue, SymbolTable_IsConst (left), SymbolTable_IsConst (right), (m2expr_BuildExprProcedure_C) m2expr_BuildNotEqualTo, reinterpret_cast <char * > (truelabel));
9222 : : }
9223 : : else
9224 : : {
9225 : : /* avoid dangling else. */
9226 : 0 : M2MetaError_MetaErrorT2 (CurrentQuadToken, (const char *) "set comparison is only allowed between the same set type, the set types used by {%1Eatd} and {%2atd} are different", 114, left, right);
9227 : : }
9228 : 444 : }
9229 : :
9230 : :
9231 : : /*
9232 : : ComparisonMixTypes -
9233 : : */
9234 : :
9235 : 59728 : static unsigned int ComparisonMixTypes (unsigned int varleft, unsigned int varright, unsigned int left, unsigned int right, unsigned int tokpos)
9236 : : {
9237 : 59728 : if (M2System_IsGenericSystemType (left))
9238 : : {
9239 : : return left;
9240 : : }
9241 : 59554 : else if (M2System_IsGenericSystemType (right))
9242 : : {
9243 : : /* avoid dangling else. */
9244 : : return right;
9245 : : }
9246 : : else
9247 : : {
9248 : : /* avoid dangling else. */
9249 : 59554 : return M2Base_MixTypesDecl (varleft, varright, left, right, tokpos);
9250 : : }
9251 : : /* static analysis guarentees a RETURN statement will be used before here. */
9252 : : __builtin_unreachable ();
9253 : : }
9254 : :
9255 : :
9256 : : /*
9257 : : PerformCodeIfEqu -
9258 : : */
9259 : :
9260 : 17176 : static void PerformCodeIfEqu (unsigned int quad)
9261 : : {
9262 : 17176 : tree tl;
9263 : 17176 : tree tr;
9264 : 17176 : location_t location;
9265 : 17176 : unsigned int left;
9266 : 17176 : unsigned int right;
9267 : 17176 : unsigned int dest;
9268 : 17176 : unsigned int combined;
9269 : 17176 : unsigned int leftpos;
9270 : 17176 : unsigned int rightpos;
9271 : 17176 : unsigned int destpos;
9272 : 17176 : bool constExpr;
9273 : 17176 : bool overflow;
9274 : 17176 : M2Quads_QuadOperator op;
9275 : :
9276 : 17176 : M2Quads_GetQuadOtok (quad, &combined, &op, &left, &right, &dest, &overflow, &constExpr, &leftpos, &rightpos, &destpos);
9277 : 17176 : location = M2LexBuf_TokenToLocation (combined);
9278 : 17176 : if ((SymbolTable_IsConst (left)) && (SymbolTable_IsConst (right)))
9279 : : {
9280 : 0 : SymbolTable_PushValue (left);
9281 : 0 : SymbolTable_PushValue (right);
9282 : 0 : if (M2ALU_Equ (combined))
9283 : : {
9284 : 0 : m2statement_BuildGoto (location, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (dest))));
9285 : : }
9286 : : /* Fall through. */
9287 : : }
9288 : 17176 : else if ((((SymbolTable_IsConstSet (left)) || ((SymbolTable_IsVar (left)) && (SymbolTable_IsSet (SymbolTable_SkipType (SymbolTable_GetType (left)))))) || (SymbolTable_IsConstSet (right))) || ((SymbolTable_IsVar (right)) && (SymbolTable_IsSet (SymbolTable_SkipType (SymbolTable_GetType (right))))))
9289 : : {
9290 : : /* avoid dangling else. */
9291 : 462 : CodeIfSetEqu (quad, left, right, dest);
9292 : : }
9293 : : else
9294 : : {
9295 : : /* avoid dangling else. */
9296 : 16714 : if ((SymbolTable_IsComposite (SymbolTable_GetType (left))) || (SymbolTable_IsComposite (SymbolTable_GetType (right))))
9297 : : {
9298 : 0 : M2MetaError_MetaErrorT2 (combined, (const char *) "equality tests between composite types not allowed {%1Eatd} and {%2atd}", 71, left, right);
9299 : : }
9300 : : else
9301 : : {
9302 : 16714 : ConvertBinaryOperands (location, &tl, &tr, ComparisonMixTypes (left, right, SymbolTable_SkipType (SymbolTable_GetType (left)), SymbolTable_SkipType (SymbolTable_GetType (right)), combined), left, right);
9303 : 16714 : m2statement_DoJump (location, m2expr_BuildEqualTo (location, tl, tr), NULL, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (dest))));
9304 : : }
9305 : : }
9306 : 17176 : }
9307 : :
9308 : :
9309 : : /*
9310 : : PerformCodeIfNotEqu -
9311 : : */
9312 : :
9313 : 26870 : static void PerformCodeIfNotEqu (unsigned int quad)
9314 : : {
9315 : 26870 : tree tl;
9316 : 26870 : tree tr;
9317 : 26870 : location_t location;
9318 : 26870 : unsigned int left;
9319 : 26870 : unsigned int right;
9320 : 26870 : unsigned int dest;
9321 : 26870 : unsigned int combined;
9322 : 26870 : unsigned int leftpos;
9323 : 26870 : unsigned int rightpos;
9324 : 26870 : unsigned int destpos;
9325 : 26870 : bool constExpr;
9326 : 26870 : bool overflow;
9327 : 26870 : M2Quads_QuadOperator op;
9328 : :
9329 : : /* Ensure that any remaining undeclared constant literal is declared. */
9330 : 26870 : M2Quads_GetQuadOtok (quad, &combined, &op, &left, &right, &dest, &constExpr, &overflow, &leftpos, &rightpos, &destpos);
9331 : 26870 : location = M2LexBuf_TokenToLocation (combined);
9332 : 26870 : if ((SymbolTable_IsConst (left)) && (SymbolTable_IsConst (right)))
9333 : : {
9334 : 6 : SymbolTable_PushValue (left);
9335 : 6 : SymbolTable_PushValue (right);
9336 : 6 : if (M2ALU_NotEqu (combined))
9337 : : {
9338 : 0 : m2statement_BuildGoto (location, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (dest))));
9339 : : }
9340 : : /* Fall through. */
9341 : : }
9342 : 26864 : else if ((((SymbolTable_IsConstSet (left)) || ((SymbolTable_IsVar (left)) && (SymbolTable_IsSet (SymbolTable_SkipType (SymbolTable_GetType (left)))))) || (SymbolTable_IsConstSet (right))) || ((SymbolTable_IsVar (right)) && (SymbolTable_IsSet (SymbolTable_SkipType (SymbolTable_GetType (right))))))
9343 : : {
9344 : : /* avoid dangling else. */
9345 : 444 : CodeIfSetNotEqu (left, right, dest);
9346 : : }
9347 : : else
9348 : : {
9349 : : /* avoid dangling else. */
9350 : 26420 : if ((SymbolTable_IsComposite (SymbolTable_GetType (left))) || (SymbolTable_IsComposite (SymbolTable_GetType (right))))
9351 : : {
9352 : 0 : M2MetaError_MetaErrorT2 (combined, (const char *) "inequality tests between composite types not allowed {%1Eatd} and {%2atd}", 73, left, right);
9353 : : }
9354 : : else
9355 : : {
9356 : 26420 : ConvertBinaryOperands (location, &tl, &tr, ComparisonMixTypes (left, right, SymbolTable_SkipType (SymbolTable_GetType (left)), SymbolTable_SkipType (SymbolTable_GetType (right)), combined), left, right);
9357 : 26420 : m2statement_DoJump (location, m2expr_BuildNotEqualTo (location, tl, tr), NULL, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (dest))));
9358 : : }
9359 : : }
9360 : 26870 : }
9361 : :
9362 : :
9363 : : /*
9364 : : IsValidExpressionRelOp - declare left and right constants (if they are not already declared).
9365 : : Check whether left and right are expression compatible.
9366 : : */
9367 : :
9368 : 62166 : static bool IsValidExpressionRelOp (unsigned int quad, bool isin)
9369 : : {
9370 : 62166 : unsigned int left;
9371 : 62166 : unsigned int right;
9372 : 62166 : unsigned int dest;
9373 : 62166 : unsigned int combined;
9374 : 62166 : unsigned int leftpos;
9375 : 62166 : unsigned int rightpos;
9376 : 62166 : unsigned int destpos;
9377 : 62166 : bool constExpr;
9378 : 62166 : bool overflow;
9379 : 62166 : M2Quads_QuadOperator op;
9380 : :
9381 : : /* Ensure that any remaining undeclared constant literal is declared. */
9382 : 62166 : M2Quads_GetQuadOtok (quad, &combined, &op, &left, &right, &dest, &constExpr, &overflow, &leftpos, &rightpos, &destpos);
9383 : 62166 : M2GCCDeclare_DeclareConstant (leftpos, left);
9384 : 62166 : M2GCCDeclare_DeclareConstant (rightpos, right);
9385 : 62166 : M2GCCDeclare_DeclareConstructor (leftpos, quad, left);
9386 : 62166 : M2GCCDeclare_DeclareConstructor (rightpos, quad, right);
9387 : 62166 : if (M2Check_ExpressionTypeCompatible (combined, (const char *) "", 0, left, right, M2Options_StrictTypeChecking, isin))
9388 : : {
9389 : : return true;
9390 : : }
9391 : : else
9392 : : {
9393 : : if (Verbose)
9394 : : {
9395 : : M2MetaError_MetaErrorT2 (combined, (const char *) "expression mismatch between {%1Etad} and {%2tad} seen during comparison", 71, left, right);
9396 : : }
9397 : : return false;
9398 : : }
9399 : : /* static analysis guarentees a RETURN statement will be used before here. */
9400 : : __builtin_unreachable ();
9401 : : }
9402 : :
9403 : :
9404 : : /*
9405 : : CodeIfEqu - codes the quadruple if op1 = op2 then goto op3
9406 : : */
9407 : :
9408 : 17194 : static void CodeIfEqu (unsigned int quad)
9409 : : {
9410 : 17194 : if (IsValidExpressionRelOp (quad, false))
9411 : : {
9412 : 17176 : PerformCodeIfEqu (quad);
9413 : : }
9414 : 17194 : }
9415 : :
9416 : :
9417 : : /*
9418 : : CodeIfNotEqu - codes the quadruple if op1 # op2 then goto op3
9419 : : */
9420 : :
9421 : 26888 : static void CodeIfNotEqu (unsigned int quad)
9422 : : {
9423 : 26888 : if (IsValidExpressionRelOp (quad, false))
9424 : : {
9425 : 26870 : PerformCodeIfNotEqu (quad);
9426 : : }
9427 : 26888 : }
9428 : :
9429 : :
9430 : : /*
9431 : : MixTypes3 - returns a type compatible from, low, high, var.
9432 : : */
9433 : :
9434 : 104 : static unsigned int MixTypes3 (unsigned int low, unsigned int high, unsigned int var, unsigned int tokenno)
9435 : : {
9436 : 104 : unsigned int type;
9437 : :
9438 : 104 : type = M2Base_MixTypes (SymbolTable_SkipType (SymbolTable_GetType (low)), SymbolTable_SkipType (SymbolTable_GetType (high)), tokenno);
9439 : 104 : type = M2Base_MixTypes (type, SymbolTable_SkipType (SymbolTable_GetType (var)), tokenno);
9440 : 104 : return type;
9441 : : /* static analysis guarentees a RETURN statement will be used before here. */
9442 : : __builtin_unreachable ();
9443 : : }
9444 : :
9445 : :
9446 : : /*
9447 : : BuildIfVarInConstValue - if var in constsetvalue then goto trueexit
9448 : : */
9449 : :
9450 : 6 : static void BuildIfVarInConstValue (location_t location, unsigned int tokenno, M2ALU_PtrToValue constsetvalue, unsigned int var, unsigned int trueexit)
9451 : : {
9452 : 6 : tree vt;
9453 : 6 : tree lt;
9454 : 6 : tree ht;
9455 : 6 : unsigned int type;
9456 : 6 : unsigned int low;
9457 : 6 : unsigned int high;
9458 : 6 : unsigned int n;
9459 : 6 : DynamicStrings_String truelabel;
9460 : :
9461 : 6 : n = 1;
9462 : 6 : truelabel = static_cast<DynamicStrings_String> (DynamicStrings_string (CreateLabelName (trueexit)));
9463 : 24 : while (M2ALU_GetRange (constsetvalue, n, &low, &high))
9464 : : {
9465 : 12 : type = MixTypes3 (low, high, var, tokenno);
9466 : 12 : ConvertBinaryOperands (location, &vt, <, type, var, low);
9467 : 12 : ConvertBinaryOperands (location, &ht, <, type, high, low);
9468 : 12 : m2expr_BuildIfInRangeGoto (location, vt, lt, ht, reinterpret_cast <char * > (truelabel));
9469 : 12 : n += 1;
9470 : : }
9471 : 6 : }
9472 : :
9473 : :
9474 : : /*
9475 : : BuildIfNotVarInConstValue - if not (var in constsetvalue) then goto trueexit
9476 : : */
9477 : :
9478 : 56 : static void BuildIfNotVarInConstValue (unsigned int quad, M2ALU_PtrToValue constsetvalue, unsigned int var, unsigned int trueexit)
9479 : : {
9480 : 56 : tree vt;
9481 : 56 : tree lt;
9482 : 56 : tree ht;
9483 : 56 : unsigned int type;
9484 : 56 : unsigned int low;
9485 : 56 : unsigned int high;
9486 : 56 : unsigned int n;
9487 : 56 : DynamicStrings_String falselabel;
9488 : 56 : DynamicStrings_String truelabel;
9489 : 56 : location_t location;
9490 : :
9491 : 56 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
9492 : 56 : truelabel = static_cast<DynamicStrings_String> (DynamicStrings_string (CreateLabelName (trueexit)));
9493 : 56 : n = 1;
9494 : 204 : while (M2ALU_GetRange (constsetvalue, n, &low, &high))
9495 : : {
9496 : 92 : n += 1;
9497 : : }
9498 : 56 : if (n == 2)
9499 : : {
9500 : : /* actually only one set range, so we invert it */
9501 : 24 : type = MixTypes3 (low, high, var, CurrentQuadToken);
9502 : 24 : ConvertBinaryOperands (location, &vt, <, type, var, low);
9503 : 24 : ConvertBinaryOperands (location, &ht, <, type, high, low);
9504 : 24 : m2expr_BuildIfNotInRangeGoto (location, vt, lt, ht, reinterpret_cast <char * > (truelabel));
9505 : : }
9506 : : else
9507 : : {
9508 : 32 : n = 1;
9509 : 32 : falselabel = static_cast<DynamicStrings_String> (DynamicStrings_string (FormatStrings_Sprintf1 (DynamicStrings_Mark (DynamicStrings_InitString ((const char *) ".Lset%d", 7)), (const unsigned char *) &quad, (sizeof (quad)-1))));
9510 : 132 : while (M2ALU_GetRange (constsetvalue, n, &low, &high))
9511 : : {
9512 : 68 : type = MixTypes3 (low, high, var, CurrentQuadToken);
9513 : 68 : ConvertBinaryOperands (location, &vt, <, type, var, low);
9514 : 68 : ConvertBinaryOperands (location, &ht, <, type, high, low);
9515 : 68 : m2expr_BuildIfInRangeGoto (location, vt, lt, ht, reinterpret_cast <char * > (falselabel));
9516 : 68 : n += 1;
9517 : : }
9518 : 32 : m2statement_BuildGoto (location, reinterpret_cast <char * > (truelabel));
9519 : 32 : m2statement_DeclareLabel (location, reinterpret_cast <char * > (falselabel));
9520 : : }
9521 : 56 : }
9522 : :
9523 : :
9524 : : /*
9525 : : PerformCodeIfIn - code the quadruple: if op1 in op2 then goto op3
9526 : : */
9527 : :
9528 : 362 : static void PerformCodeIfIn (unsigned int quad)
9529 : : {
9530 : 362 : unsigned int low;
9531 : 362 : unsigned int high;
9532 : 362 : tree lowtree;
9533 : 362 : tree hightree;
9534 : 362 : tree offset;
9535 : 362 : int fieldno;
9536 : 362 : location_t location;
9537 : 362 : unsigned int left;
9538 : 362 : unsigned int right;
9539 : 362 : unsigned int dest;
9540 : 362 : unsigned int combined;
9541 : 362 : unsigned int leftpos;
9542 : 362 : unsigned int rightpos;
9543 : 362 : unsigned int destpos;
9544 : 362 : bool constExpr;
9545 : 362 : bool overflow;
9546 : 362 : M2Quads_QuadOperator op;
9547 : :
9548 : : /* Ensure that any remaining undeclared constant literal is declared. */
9549 : 362 : M2Quads_GetQuadOtok (quad, &combined, &op, &left, &right, &dest, &constExpr, &overflow, &leftpos, &rightpos, &destpos);
9550 : 362 : location = M2LexBuf_TokenToLocation (combined);
9551 : 362 : if ((SymbolTable_IsConst (left)) && (SymbolTable_IsConst (right)))
9552 : : {
9553 : 0 : M2Error_InternalError ((const char *) "should not get to here (if we do we should consider calling FoldIfIn)", 69);
9554 : : }
9555 : 362 : else if (CheckElementSetTypes (quad))
9556 : : {
9557 : : /* avoid dangling else. */
9558 : 362 : if (SymbolTable_IsConst (left))
9559 : : {
9560 : 168 : fieldno = GetFieldNo (combined, left, SymbolTable_GetType (right), &offset);
9561 : 168 : if (fieldno >= 0)
9562 : : {
9563 : 168 : SymbolTable_PushValue (left);
9564 : 168 : M2ALU_PushIntegerTree (offset);
9565 : 168 : M2ALU_ConvertToType (SymbolTable_GetType (left));
9566 : 168 : M2ALU_Sub ();
9567 : 168 : m2expr_BuildIfConstInVar (location, SymbolConversion_Mod2Gcc (SymbolTable_SkipType (SymbolTable_GetType (right))), SymbolConversion_Mod2Gcc (right), M2ALU_PopIntegerTree (), (SymbolTable_GetMode (right)) == SymbolTable_LeftValue, fieldno, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (dest))));
9568 : : }
9569 : : else
9570 : : {
9571 : 0 : M2MetaError_MetaErrorT1 (combined, (const char *) "bit exceeded the range of set {%1Eatd}", 38, left);
9572 : : }
9573 : : }
9574 : 194 : else if (SymbolTable_IsConst (right))
9575 : : {
9576 : : /* avoid dangling else. */
9577 : : /* builds a cascaded list of if statements */
9578 : 6 : SymbolTable_PushValue (right);
9579 : 6 : BuildIfVarInConstValue (location, combined, M2ALU_GetValue (combined), left, dest);
9580 : : }
9581 : : else
9582 : : {
9583 : : /* avoid dangling else. */
9584 : 188 : GetSetLimits (SymbolTable_SkipType (SymbolTable_GetType (right)), &low, &high);
9585 : 188 : SymbolTable_PushValue (low);
9586 : 188 : lowtree = M2ALU_PopIntegerTree ();
9587 : 188 : SymbolTable_PushValue (high);
9588 : 188 : hightree = M2ALU_PopIntegerTree ();
9589 : 188 : m2expr_BuildIfVarInVar (location, SymbolConversion_Mod2Gcc (SymbolTable_SkipType (SymbolTable_GetType (right))), SymbolConversion_Mod2Gcc (right), SymbolConversion_Mod2Gcc (left), (SymbolTable_GetMode (right)) == SymbolTable_LeftValue, lowtree, hightree, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (dest))));
9590 : : }
9591 : : }
9592 : 362 : }
9593 : :
9594 : :
9595 : : /*
9596 : : PerformCodeIfNotIn - code the quadruple: if not (op1 in op2) then goto op3
9597 : : */
9598 : :
9599 : 1080 : static void PerformCodeIfNotIn (unsigned int quad)
9600 : : {
9601 : 1080 : unsigned int low;
9602 : 1080 : unsigned int high;
9603 : 1080 : tree lowtree;
9604 : 1080 : tree hightree;
9605 : 1080 : tree offset;
9606 : 1080 : int fieldno;
9607 : 1080 : location_t location;
9608 : 1080 : unsigned int left;
9609 : 1080 : unsigned int right;
9610 : 1080 : unsigned int dest;
9611 : 1080 : unsigned int combined;
9612 : 1080 : unsigned int leftpos;
9613 : 1080 : unsigned int rightpos;
9614 : 1080 : unsigned int destpos;
9615 : 1080 : bool constExpr;
9616 : 1080 : bool overflow;
9617 : 1080 : M2Quads_QuadOperator op;
9618 : :
9619 : : /* Ensure that any remaining undeclared constant literal is declared. */
9620 : 1080 : M2Quads_GetQuadOtok (quad, &combined, &op, &left, &right, &dest, &overflow, &constExpr, &leftpos, &rightpos, &destpos);
9621 : 1080 : location = M2LexBuf_TokenToLocation (combined);
9622 : 1080 : if ((SymbolTable_IsConst (left)) && (SymbolTable_IsConst (right)))
9623 : : {
9624 : 0 : M2Error_InternalError ((const char *) "should not get to here (if we do we should consider calling FoldIfIn)", 69);
9625 : : }
9626 : 1080 : else if (CheckElementSetTypes (quad))
9627 : : {
9628 : : /* avoid dangling else. */
9629 : 1074 : if (SymbolTable_IsConst (left))
9630 : : {
9631 : 566 : fieldno = GetFieldNo (combined, left, SymbolTable_SkipType (SymbolTable_GetType (right)), &offset);
9632 : 566 : if (fieldno >= 0)
9633 : : {
9634 : 560 : SymbolTable_PushValue (left);
9635 : 560 : M2ALU_PushIntegerTree (offset);
9636 : 560 : M2ALU_ConvertToType (SymbolTable_GetType (left));
9637 : 560 : M2ALU_Sub ();
9638 : 560 : m2expr_BuildIfNotConstInVar (location, SymbolConversion_Mod2Gcc (SymbolTable_SkipType (SymbolTable_GetType (right))), SymbolConversion_Mod2Gcc (right), M2ALU_PopIntegerTree (), (SymbolTable_GetMode (right)) == SymbolTable_LeftValue, fieldno, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (dest))));
9639 : : }
9640 : : else
9641 : : {
9642 : 6 : M2MetaError_MetaErrorT1 (combined, (const char *) "bit exceeded the range of set {%1Eatd}", 38, right);
9643 : : }
9644 : : }
9645 : 508 : else if (SymbolTable_IsConst (right))
9646 : : {
9647 : : /* avoid dangling else. */
9648 : : /* builds a cascaded list of if statements */
9649 : 56 : SymbolTable_PushValue (right);
9650 : 56 : BuildIfNotVarInConstValue (quad, M2ALU_GetValue (combined), left, dest);
9651 : : }
9652 : : else
9653 : : {
9654 : : /* avoid dangling else. */
9655 : 452 : GetSetLimits (SymbolTable_SkipType (SymbolTable_GetType (right)), &low, &high);
9656 : 452 : SymbolTable_PushValue (low);
9657 : 452 : lowtree = M2ALU_PopIntegerTree ();
9658 : 452 : SymbolTable_PushValue (high);
9659 : 452 : hightree = M2ALU_PopIntegerTree ();
9660 : 452 : m2expr_BuildIfNotVarInVar (location, SymbolConversion_Mod2Gcc (SymbolTable_SkipType (SymbolTable_GetType (right))), SymbolConversion_Mod2Gcc (right), SymbolConversion_Mod2Gcc (left), (SymbolTable_GetMode (right)) == SymbolTable_LeftValue, lowtree, hightree, reinterpret_cast <char * > (DynamicStrings_string (CreateLabelName (dest))));
9661 : : }
9662 : : }
9663 : 1080 : }
9664 : :
9665 : :
9666 : : /*
9667 : : CodeIfIn - code the quadruple: if op1 in op2 then goto op3
9668 : : */
9669 : :
9670 : 368 : static void CodeIfIn (unsigned int quad)
9671 : : {
9672 : 368 : if (IsValidExpressionRelOp (quad, true))
9673 : : {
9674 : 362 : PerformCodeIfIn (quad);
9675 : : }
9676 : 368 : }
9677 : :
9678 : :
9679 : : /*
9680 : : CodeIfNotIn - code the quadruple: if not (op1 in op2) then goto op3
9681 : : */
9682 : :
9683 : 1086 : static void CodeIfNotIn (unsigned int quad)
9684 : : {
9685 : 1086 : if (IsValidExpressionRelOp (quad, true))
9686 : : {
9687 : 1080 : PerformCodeIfNotIn (quad);
9688 : : }
9689 : 1086 : }
9690 : :
9691 : 13835 : static void CodeIndrX (unsigned int quad, unsigned int op1, unsigned int op2, unsigned int op3)
9692 : : {
9693 : 13835 : location_t location;
9694 : :
9695 : : /*
9696 : : ------------------------------------------------------------------------------
9697 : : IndrX Operator a = *b
9698 : : ------------------------------------------------------------------------------
9699 : : Sym1<X> IndrX Sym2<I> Meaning Mem[Sym1<I>] := Mem[constant]
9700 : : Sym1<X> IndrX Sym2<X> Meaning Mem[Sym1<I>] := Mem[Mem[Sym3<I>]]
9701 : :
9702 : : (op2 is the type of the data being indirectly copied)
9703 : : */
9704 : 13835 : location = M2LexBuf_TokenToLocation (CurrentQuadToken);
9705 : : /*
9706 : : Follow the Quadruple rules:
9707 : : */
9708 : 13835 : M2GCCDeclare_DeclareConstant (CurrentQuadToken, op3); /* checks to see whether it is a constant and declares it */
9709 : 13835 : M2GCCDeclare_DeclareConstructor (CurrentQuadToken, quad, op3); /* checks to see whether it is a constant and declares it */
9710 : 13835 : if (SymbolTable_IsConstString (op3))
9711 : : {
9712 : 0 : M2Error_InternalError ((const char *) "not expecting to index through a constant string", 48);
9713 : : }
9714 : : else
9715 : : {
9716 : : /*
9717 : : Mem[op1] := Mem[Mem[op3]]
9718 : : */
9719 : 13835 : m2statement_BuildAssignmentStatement (location, SymbolConversion_Mod2Gcc (op1), m2expr_BuildIndirect (location, SymbolConversion_Mod2Gcc (op3), SymbolConversion_Mod2Gcc (op2)));
9720 : : }
9721 : 13835 : }
9722 : :
9723 : :
9724 : : /*
9725 : : CodeXIndr - operands for XIndrOp are: left type right.
9726 : : *left = right. The second operand is the type of the data being
9727 : : indirectly copied.
9728 : : */
9729 : :
9730 : 35172 : static void CodeXIndr (unsigned int quad)
9731 : : {
9732 : 35172 : bool constExpr;
9733 : 35172 : bool overflowChecking;
9734 : 35172 : M2Quads_QuadOperator op;
9735 : 35172 : unsigned int tokenno;
9736 : 35172 : unsigned int left;
9737 : 35172 : unsigned int type;
9738 : 35172 : unsigned int right;
9739 : 35172 : unsigned int leftpos;
9740 : 35172 : unsigned int rightpos;
9741 : 35172 : unsigned int typepos;
9742 : 35172 : unsigned int xindrpos;
9743 : 35172 : tree length;
9744 : 35172 : tree newstr;
9745 : 35172 : location_t location;
9746 : :
9747 : 35172 : M2Quads_GetQuadOtok (quad, &xindrpos, &op, &left, &type, &right, &overflowChecking, &constExpr, &leftpos, &typepos, &rightpos);
9748 : 35172 : tokenno = M2LexBuf_MakeVirtualTok (xindrpos, leftpos, rightpos);
9749 : 35172 : location = M2LexBuf_TokenToLocation (tokenno);
9750 : 35172 : type = SymbolTable_SkipType (type);
9751 : 35172 : M2GCCDeclare_DeclareConstant (rightpos, right);
9752 : 35172 : M2GCCDeclare_DeclareConstructor (rightpos, quad, right);
9753 : 35172 : if (SymbolTable_IsProcType (SymbolTable_SkipType (type)))
9754 : : {
9755 : 25274 : m2statement_BuildAssignmentStatement (location, m2expr_BuildIndirect (location, SymbolConversion_Mod2Gcc (left), m2type_GetPointerType ()), SymbolConversion_Mod2Gcc (right));
9756 : : }
9757 : 9898 : else if (((SymbolTable_IsConstString (right)) && ((SymbolTable_GetStringLength (rightpos, right)) == 0)) && ((SymbolTable_GetMode (left)) == SymbolTable_LeftValue))
9758 : : {
9759 : : /* avoid dangling else. */
9760 : : /*
9761 : : no need to check for type errors,
9762 : : but we handle nul string as a special case as back end
9763 : : complains if we pass through a "" and ask it to copy the
9764 : : contents.
9765 : : */
9766 : 12 : m2statement_BuildAssignmentStatement (location, m2expr_BuildIndirect (location, M2GenGCC_LValueToGenericPtr (location, left), SymbolConversion_Mod2Gcc (M2Base_Char)), M2GenGCC_StringToChar (SymbolConversion_Mod2Gcc (right), M2Base_Char, right));
9767 : : }
9768 : 9886 : else if ((SymbolTable_IsConstString (right)) && ((SymbolTable_SkipTypeAndSubrange (SymbolTable_GetType (left))) != M2Base_Char))
9769 : : {
9770 : : /* avoid dangling else. */
9771 : 42 : if (! (M2GenGCC_PrepareCopyString (tokenno, &length, &newstr, right, type)))
9772 : : {
9773 : 0 : M2MetaError_MetaErrorT2 (M2LexBuf_MakeVirtualTok (xindrpos, leftpos, rightpos), (const char *) "string constant {%1Ea} is too large to be assigned to the array {%2ad}", 70, right, left);
9774 : : }
9775 : 42 : m2type_AddStatement (location, MaybeDebugBuiltinMemcpy (location, SymbolConversion_Mod2Gcc (left), m2expr_BuildAddr (location, newstr, false), length));
9776 : : }
9777 : : else
9778 : : {
9779 : : /* avoid dangling else. */
9780 : 9844 : m2statement_BuildAssignmentStatement (location, m2expr_BuildIndirect (location, SymbolConversion_Mod2Gcc (left), SymbolConversion_Mod2Gcc (type)), ConvertRHS (SymbolConversion_Mod2Gcc (right), type, right));
9781 : : }
9782 : 35172 : }
9783 : :
9784 : :
9785 : : /*
9786 : : InitBuiltinSyms -
9787 : : */
9788 : :
9789 : 54365802 : static void InitBuiltinSyms (unsigned int tok)
9790 : : {
9791 : 54365802 : if (Memset == SymbolTable_NulSym)
9792 : : {
9793 : 13345 : Memset = SymbolTable_FromModuleGetSym (tok, NameKey_MakeKey ((const char *) "memset", 6), M2Batch_MakeDefinitionSource (tok, NameKey_MakeKey ((const char *) "Builtins", 8)));
9794 : : }
9795 : 54365802 : if (Memcpy == SymbolTable_NulSym)
9796 : : {
9797 : 13345 : Memcpy = SymbolTable_FromModuleGetSym (tok, NameKey_MakeKey ((const char *) "memcpy", 6), M2Batch_MakeDefinitionSource (tok, NameKey_MakeKey ((const char *) "Builtins", 8)));
9798 : : }
9799 : 54365802 : }
9800 : :
9801 : :
9802 : : /*
9803 : : ConvertQuadsToTree - runs through the quadruple list and converts it into
9804 : : the GCC tree structure.
9805 : : */
9806 : :
9807 : 304263 : extern "C" void M2GenGCC_ConvertQuadsToTree (unsigned int Start, unsigned int End)
9808 : : {
9809 : 3290770 : do {
9810 : 3290770 : CodeStatement (Start);
9811 : 3290758 : Start = M2Quads_GetNextQuad (Start);
9812 : 3290758 : } while (! ((Start > End) || (Start == 0)));
9813 : 304251 : }
9814 : :
9815 : :
9816 : : /*
9817 : : ResolveConstantExpressions - resolves constant expressions from the quadruple list.
9818 : : It returns TRUE if one or more constants were folded.
9819 : : When a constant symbol value is solved, the call back
9820 : : p(sym) is invoked.
9821 : : */
9822 : :
9823 : 51030524 : extern "C" bool M2GenGCC_ResolveConstantExpressions (M2GCCDeclare_WalkAction p, M2BasicBlock_BasicBlock bb)
9824 : : {
9825 : 51030524 : unsigned int tokenno;
9826 : 51030524 : unsigned int quad;
9827 : 51030524 : M2Quads_QuadOperator op;
9828 : 51030524 : unsigned int op1;
9829 : 51030524 : unsigned int op2;
9830 : 51030524 : unsigned int op3;
9831 : 51030524 : unsigned int op1pos;
9832 : 51030524 : unsigned int op2pos;
9833 : 51030524 : unsigned int op3pos;
9834 : 51030524 : bool Changed;
9835 : 51030524 : unsigned int start;
9836 : 51030524 : unsigned int end;
9837 : :
9838 : 51030524 : InitBuiltinSyms (M2LexBuf_BuiltinTokenNo);
9839 : 51030524 : start = M2BasicBlock_GetBasicBlockStart (bb);
9840 : 51030524 : end = M2BasicBlock_GetBasicBlockEnd (bb);
9841 : 51030524 : Changed = false;
9842 : 51150620 : do {
9843 : 51150620 : NoChange = true;
9844 : 51150620 : quad = start;
9845 : 152127924 : while ((quad <= end) && (quad != 0))
9846 : : {
9847 : 100977364 : tokenno = CurrentQuadToken;
9848 : 100977364 : if (tokenno == 0)
9849 : : {
9850 : 2534208 : tokenno = M2Quads_QuadToTokenNo (quad);
9851 : : }
9852 : 100977364 : if (M2Options_GetDebugTraceQuad ())
9853 : : {
9854 : 0 : M2Printf_printf0 ((const char *) "examining fold: ", 16);
9855 : 0 : M2Quads_DisplayQuad (quad);
9856 : : }
9857 : 100977364 : M2Quads_GetQuadtok (quad, &op, &op1, &op2, &op3, &op1pos, &op2pos, &op3pos);
9858 : 100977364 : switch (op)
9859 : : {
9860 : 3344 : case M2Quads_StandardFunctionOp:
9861 : 3344 : FoldStandardFunction (tokenno, p, quad, op1, op2, op3);
9862 : 3344 : break;
9863 : :
9864 : 26330 : case M2Quads_BuiltinConstOp:
9865 : 26330 : FoldBuiltinConst (tokenno, p, quad, op1, op3);
9866 : 26330 : break;
9867 : :
9868 : 360 : case M2Quads_BuiltinTypeInfoOp:
9869 : 360 : FoldBuiltinTypeInfo (tokenno, p, quad, op1, op2, op3);
9870 : 360 : break;
9871 : :
9872 : 8620 : case M2Quads_LogicalOrOp:
9873 : 8620 : FoldSetOr (tokenno, p, quad, op1, op2, op3);
9874 : 8608 : break;
9875 : :
9876 : 1904 : case M2Quads_LogicalAndOp:
9877 : 1904 : FoldSetAnd (tokenno, p, quad, op1, op2, op3);
9878 : 1904 : break;
9879 : :
9880 : 48 : case M2Quads_LogicalXorOp:
9881 : 48 : FoldSymmetricDifference (tokenno, p, quad, op1, op2, op3);
9882 : 48 : break;
9883 : :
9884 : 3497393 : case M2Quads_BecomesOp:
9885 : 3497393 : FoldBecomes (p, bb, quad);
9886 : 3497393 : break;
9887 : :
9888 : 0 : case M2Quads_ArithAddOp:
9889 : 0 : FoldArithAdd (op1pos, p, quad, op1, op2, op3);
9890 : 0 : break;
9891 : :
9892 : 320026 : case M2Quads_AddOp:
9893 : 320026 : FoldAdd (op1pos, p, quad, op1, op2, op3);
9894 : 320026 : break;
9895 : :
9896 : 119538 : case M2Quads_SubOp:
9897 : 119538 : FoldSub (op1pos, p, quad, op1, op2, op3);
9898 : 119538 : break;
9899 : :
9900 : 88222 : case M2Quads_MultOp:
9901 : 88222 : FoldMult (op1pos, p, quad, op1, op2, op3);
9902 : 88222 : break;
9903 : :
9904 : 13593 : case M2Quads_DivM2Op:
9905 : 13593 : FoldDivM2 (op1pos, p, quad, op1, op2, op3);
9906 : 13593 : break;
9907 : :
9908 : 21758 : case M2Quads_ModM2Op:
9909 : 21758 : FoldModM2 (op1pos, p, quad, op1, op2, op3);
9910 : 21758 : break;
9911 : :
9912 : 8218 : case M2Quads_DivTruncOp:
9913 : 8218 : FoldDivTrunc (op1pos, p, quad, op1, op2, op3);
9914 : 8218 : break;
9915 : :
9916 : 96 : case M2Quads_ModTruncOp:
9917 : 96 : FoldModTrunc (op1pos, p, quad, op1, op2, op3);
9918 : 96 : break;
9919 : :
9920 : 0 : case M2Quads_DivCeilOp:
9921 : 0 : FoldDivCeil (op1pos, p, quad, op1, op2, op3);
9922 : 0 : break;
9923 : :
9924 : 0 : case M2Quads_ModCeilOp:
9925 : 0 : FoldModCeil (op1pos, p, quad, op1, op2, op3);
9926 : 0 : break;
9927 : :
9928 : 0 : case M2Quads_DivFloorOp:
9929 : 0 : FoldDivFloor (op1pos, p, quad, op1, op2, op3);
9930 : 0 : break;
9931 : :
9932 : 0 : case M2Quads_ModFloorOp:
9933 : 0 : FoldModFloor (op1pos, p, quad, op1, op2, op3);
9934 : 0 : break;
9935 : :
9936 : 31445 : case M2Quads_NegateOp:
9937 : 31445 : FoldNegate (op1pos, p, quad, op1, op3);
9938 : 31445 : break;
9939 : :
9940 : 6920 : case M2Quads_SizeOp:
9941 : 6920 : FoldSize (tokenno, p, quad, op1, op2, op3);
9942 : 6920 : break;
9943 : :
9944 : 2406384 : case M2Quads_RecordFieldOp:
9945 : 2406384 : FoldRecordField (tokenno, p, quad, op1, op2, op3);
9946 : 2406384 : break;
9947 : :
9948 : 992474 : case M2Quads_HighOp:
9949 : 992474 : FoldHigh (tokenno, p, quad, op1, op2, op3);
9950 : 992474 : break;
9951 : :
9952 : 7876 : case M2Quads_ElementSizeOp:
9953 : 7876 : FoldElementSize (tokenno, p, quad, op1, op2);
9954 : 7876 : break;
9955 : :
9956 : 285044 : case M2Quads_ConvertOp:
9957 : 285044 : FoldConvert (tokenno, p, quad, op1, op2, op3);
9958 : 285044 : break;
9959 : :
9960 : 4590 : case M2Quads_CoerceOp:
9961 : 4590 : FoldCoerce (tokenno, p, quad, op1, op2, op3);
9962 : 4590 : break;
9963 : :
9964 : 1236 : case M2Quads_CastOp:
9965 : 1236 : FoldCast (tokenno, p, quad, op1, op2, op3);
9966 : 1236 : break;
9967 : :
9968 : 17178 : case M2Quads_InclOp:
9969 : 17178 : FoldIncl (tokenno, p, quad, op1, op3);
9970 : 17178 : break;
9971 : :
9972 : 10856 : case M2Quads_ExclOp:
9973 : 10856 : FoldExcl (tokenno, p, quad, op1, op3);
9974 : 10856 : break;
9975 : :
9976 : 521210 : case M2Quads_IfEquOp:
9977 : 521210 : FoldIfEqu (tokenno, quad, op1, op2, op3);
9978 : 521210 : break;
9979 : :
9980 : 252064 : case M2Quads_IfNotEquOp:
9981 : 252064 : FoldIfNotEqu (tokenno, quad, op1, op2, op3);
9982 : 252064 : break;
9983 : :
9984 : 27916 : case M2Quads_IfLessOp:
9985 : 27916 : FoldIfLess (tokenno, quad, op1, op2, op3);
9986 : 27916 : break;
9987 : :
9988 : 26344 : case M2Quads_IfLessEquOp:
9989 : 26344 : FoldIfLessEqu (tokenno, quad, op1, op2, op3);
9990 : 26344 : break;
9991 : :
9992 : 23034 : case M2Quads_IfGreOp:
9993 : 23034 : FoldIfGre (tokenno, quad, op1, op2, op3);
9994 : 23034 : break;
9995 : :
9996 : 36240 : case M2Quads_IfGreEquOp:
9997 : 36240 : FoldIfGreEqu (tokenno, quad, op1, op2, op3);
9998 : 36240 : break;
9999 : :
10000 : 24542 : case M2Quads_IfInOp:
10001 : 24542 : FoldIfIn (tokenno, quad, op1, op2, op3);
10002 : 24542 : break;
10003 : :
10004 : 4802 : case M2Quads_IfNotInOp:
10005 : 4802 : FoldIfNotIn (tokenno, quad, op1, op2, op3);
10006 : 4802 : break;
10007 : :
10008 : 19918 : case M2Quads_LogicalShiftOp:
10009 : 19918 : FoldSetShift (tokenno, p, quad, op1, op2, op3);
10010 : 19918 : break;
10011 : :
10012 : 15582 : case M2Quads_LogicalRotateOp:
10013 : 15582 : FoldSetRotate (tokenno, p, quad, op1, op2, op3);
10014 : 15582 : break;
10015 : :
10016 : 5847110 : case M2Quads_ParamOp:
10017 : 5847110 : FoldBuiltinFunction (tokenno, p, quad, op1, op2, op3);
10018 : 5847110 : break;
10019 : :
10020 : 7600145 : case M2Quads_RangeCheckOp:
10021 : 7600145 : FoldRange (tokenno, quad, op3);
10022 : 7600145 : break;
10023 : :
10024 : 6614330 : case M2Quads_StatementNoteOp:
10025 : 6614330 : FoldStatementNote (op3);
10026 : 6614330 : break;
10027 : :
10028 : 72 : case M2Quads_StringLengthOp:
10029 : 72 : FoldStringLength (quad, p);
10030 : 72 : break;
10031 : :
10032 : 30094 : case M2Quads_StringConvertM2nulOp:
10033 : 30094 : FoldStringConvertM2nul (quad, p);
10034 : 30094 : break;
10035 : :
10036 : 7540 : case M2Quads_StringConvertCnulOp:
10037 : 7540 : FoldStringConvertCnul (quad, p);
10038 : 7540 : break;
10039 : :
10040 : 11564 : case M2Quads_LastForIteratorOp:
10041 : 11564 : FoldLastForIterator (quad, p);
10042 : 11564 : break;
10043 : :
10044 : :
10045 : : default:
10046 : : break;
10047 : : }
10048 : : /* ignore quadruple as it is not associated with a constant expression */
10049 : 100977304 : quad = M2Quads_GetNextQuad (quad);
10050 : : }
10051 : 51150560 : if (! NoChange)
10052 : : {
10053 : 120096 : Changed = true;
10054 : : }
10055 : 51150560 : } while (! (NoChange));
10056 : 51030464 : return Changed;
10057 : : /* static analysis guarentees a RETURN statement will be used before here. */
10058 : : __builtin_unreachable ();
10059 : : }
10060 : :
10061 : :
10062 : : /*
10063 : : GetHighFromUnbounded - returns a Tree containing the value of
10064 : : param.HIGH.
10065 : : */
10066 : :
10067 : 51632 : extern "C" tree M2GenGCC_GetHighFromUnbounded (location_t location, unsigned int dim, unsigned int param)
10068 : : {
10069 : 51632 : unsigned int UnboundedType;
10070 : 51632 : unsigned int ArrayType;
10071 : 51632 : unsigned int HighField;
10072 : 51632 : tree HighTree;
10073 : 51632 : unsigned int accessibleDim;
10074 : :
10075 : : /* remainingDim : CARDINAL ; */
10076 : 51632 : UnboundedType = SymbolTable_GetType (param);
10077 : 51632 : M2Debug_Assert (SymbolTable_IsUnbounded (UnboundedType));
10078 : 51632 : ArrayType = SymbolTable_GetType (UnboundedType);
10079 : 51632 : HighField = SymbolTable_GetUnboundedHighOffset (UnboundedType, dim);
10080 : 51632 : if (HighField == SymbolTable_NulSym)
10081 : : {
10082 : : /* it might be a dynamic array of static arrays,
10083 : : so lets see if there is an earlier dimension available. */
10084 : : accessibleDim = dim;
10085 : 0 : while ((HighField == SymbolTable_NulSym) && (accessibleDim > 1))
10086 : : {
10087 : 0 : accessibleDim -= 1;
10088 : 0 : HighField = SymbolTable_GetUnboundedHighOffset (UnboundedType, accessibleDim);
10089 : : }
10090 : 0 : if (HighField == SymbolTable_NulSym)
10091 : : {
10092 : 0 : M2MetaError_MetaError1 ((const char *) "{%EkHIGH} dimension number {%1N} for array does not exist", 57, dim);
10093 : 0 : return m2expr_GetCardinalZero (location);
10094 : : }
10095 : : else
10096 : : {
10097 : 0 : HighTree = BuildHighFromStaticArray (location, ArrayType); /* remainingDim, */
10098 : 0 : if (HighTree == NULL)
10099 : : {
10100 : 0 : M2MetaError_MetaError1 ((const char *) "{%EkHIGH} dimension number {%1N} for array does not exist", 57, dim);
10101 : 0 : return m2expr_GetCardinalZero (location);
10102 : : }
10103 : : return HighTree;
10104 : : }
10105 : : }
10106 : : else
10107 : : {
10108 : 51632 : return m2expr_BuildComponentRef (location, SymbolConversion_Mod2Gcc (param), SymbolConversion_Mod2Gcc (HighField));
10109 : : }
10110 : : /* static analysis guarentees a RETURN statement will be used before here. */
10111 : : __builtin_unreachable ();
10112 : : }
10113 : :
10114 : :
10115 : : /*
10116 : : StringToChar - if type=Char and str is a string (of size <= 1)
10117 : : then convert the string into a character constant.
10118 : : */
10119 : :
10120 : 926224 : extern "C" tree M2GenGCC_StringToChar (tree t, unsigned int type, unsigned int str)
10121 : : {
10122 : 926224 : DynamicStrings_String s;
10123 : 926224 : NameKey_Name n;
10124 : 926224 : unsigned int tokenno;
10125 : 926224 : location_t location;
10126 : :
10127 : 926224 : tokenno = SymbolTable_GetDeclaredMod (str);
10128 : 926224 : location = M2LexBuf_TokenToLocation (tokenno);
10129 : 926224 : type = SymbolTable_SkipType (type);
10130 : 926224 : if ((type == M2Base_Char) && (SymbolTable_IsConstString (str)))
10131 : : {
10132 : 7890 : M2Debug_Assert (SymbolTable_IsConstStringKnown (str));
10133 : 7890 : if ((SymbolTable_GetStringLength (tokenno, str)) == 0)
10134 : : {
10135 : 108 : s = DynamicStrings_InitString ((const char *) "", 0);
10136 : 108 : t = m2type_BuildCharConstant (location, reinterpret_cast <const char * > (s));
10137 : 108 : s = DynamicStrings_KillString (s);
10138 : : }
10139 : 7782 : else if ((SymbolTable_GetStringLength (tokenno, str)) > 1)
10140 : : {
10141 : : /* avoid dangling else. */
10142 : 0 : n = SymbolTable_GetSymName (str);
10143 : 0 : M2Error_WriteFormat1 ((const char *) "type incompatibility, attempting to use a string ('%a') when a CHAR is expected", 79, (const unsigned char *) &n, (sizeof (n)-1));
10144 : 0 : s = DynamicStrings_InitString ((const char *) "", 0); /* do something safe */
10145 : 0 : t = m2type_BuildCharConstant (location, reinterpret_cast <const char * > (s)); /* do something safe */
10146 : : }
10147 : 7890 : s = DynamicStrings_InitStringCharStar (NameKey_KeyToCharStar (SymbolTable_GetString (str)));
10148 : 7890 : s = DynamicStrings_Slice (s, 0, 1);
10149 : 7890 : t = m2type_BuildCharConstant (location, const_cast <const char * > (static_cast <char * > (DynamicStrings_string (s))));
10150 : 7890 : s = DynamicStrings_KillString (s);
10151 : : }
10152 : 926224 : return t;
10153 : : /* static analysis guarentees a RETURN statement will be used before here. */
10154 : : __builtin_unreachable ();
10155 : : }
10156 : :
10157 : :
10158 : : /*
10159 : : LValueToGenericPtr - returns a Tree representing symbol, sym.
10160 : : It coerces a lvalue into an internal pointer type
10161 : : */
10162 : :
10163 : 392642 : extern "C" tree M2GenGCC_LValueToGenericPtr (location_t location, unsigned int sym)
10164 : : {
10165 : 392642 : tree t;
10166 : :
10167 : 392642 : t = SymbolConversion_Mod2Gcc (sym);
10168 : 392642 : if (t == NULL)
10169 : : {
10170 : 0 : M2Error_InternalError ((const char *) "expecting symbol to be resolved", 31);
10171 : : }
10172 : 392642 : if ((SymbolTable_GetMode (sym)) == SymbolTable_LeftValue)
10173 : : {
10174 : 622 : t = m2convert_BuildConvert (location, m2type_GetPointerType (), t, false);
10175 : : }
10176 : 392642 : return t;
10177 : : /* static analysis guarentees a RETURN statement will be used before here. */
10178 : : __builtin_unreachable ();
10179 : : }
10180 : :
10181 : :
10182 : : /*
10183 : : ZConstToTypedConst - checks whether op1 and op2 are constants and
10184 : : coerces, t, appropriately.
10185 : : */
10186 : :
10187 : 7647 : extern "C" tree M2GenGCC_ZConstToTypedConst (tree t, unsigned int op1, unsigned int op2)
10188 : : {
10189 : 7647 : location_t location;
10190 : :
10191 : 7647 : location = M2LexBuf_TokenToLocation (SymbolTable_GetDeclaredMod (op2));
10192 : 7647 : if ((SymbolTable_IsConst (op1)) && (SymbolTable_IsConst (op2)))
10193 : : {
10194 : : /* leave, Z type, alone */
10195 : : return t;
10196 : : }
10197 : 3436 : else if (SymbolTable_IsConst (op1))
10198 : : {
10199 : : /* avoid dangling else. */
10200 : 2526 : if ((SymbolTable_GetMode (op2)) == SymbolTable_LeftValue)
10201 : : {
10202 : : /* convert, Z type const into type of non constant operand */
10203 : 0 : return m2convert_BuildConvert (location, m2type_GetPointerType (), t, false);
10204 : : }
10205 : : else
10206 : : {
10207 : : /* convert, Z type const into type of non constant operand */
10208 : 2526 : return m2convert_BuildConvert (location, SymbolConversion_Mod2Gcc (FindType (op2)), t, false);
10209 : : }
10210 : : }
10211 : 910 : else if (SymbolTable_IsConst (op2))
10212 : : {
10213 : : /* avoid dangling else. */
10214 : 0 : if ((SymbolTable_GetMode (op1)) == SymbolTable_LeftValue)
10215 : : {
10216 : : /* convert, Z type const into type of non constant operand */
10217 : 0 : return m2convert_BuildConvert (location, m2type_GetPointerType (), t, false);
10218 : : }
10219 : : else
10220 : : {
10221 : : /* convert, Z type const into type of non constant operand */
10222 : 0 : return m2convert_BuildConvert (location, SymbolConversion_Mod2Gcc (FindType (op1)), t, false);
10223 : : }
10224 : : }
10225 : : else
10226 : : {
10227 : : /* avoid dangling else. */
10228 : : /* neither operands are constants, leave alone */
10229 : : return t;
10230 : : }
10231 : : /* static analysis guarentees a RETURN statement will be used before here. */
10232 : : __builtin_unreachable ();
10233 : : }
10234 : :
10235 : :
10236 : : /*
10237 : : PrepareCopyString - returns two trees:
10238 : : length number of bytes to be copied (including the nul if room)
10239 : : srcTreeType the new string type (with the extra nul character).
10240 : :
10241 : : Pre condition: destStrType the dest type string.
10242 : : src is the original string (without a nul)
10243 : : to be copied.
10244 : : Post condition: TRUE or FALSE is returned.
10245 : : if true length and srcTreeType will be assigned
10246 : : else length is set to the maximum length to be
10247 : : copied and srcTree is set to the max length
10248 : : which fits in dest.
10249 : : */
10250 : :
10251 : 3306 : extern "C" bool M2GenGCC_PrepareCopyString (unsigned int tokenno, tree *length, tree *srcTree, unsigned int src, unsigned int destStrType)
10252 : : {
10253 : 3306 : location_t location;
10254 : 3306 : int intLength;
10255 : :
10256 : 3306 : location = M2LexBuf_TokenToLocation (tokenno);
10257 : 3306 : M2Debug_Assert (SymbolTable_IsArray (SymbolTable_SkipType (destStrType)));
10258 : : /* Handle string assignments:
10259 : : VAR
10260 : : str: ARRAY [0..10] OF CHAR ;
10261 : : ch : CHAR ;
10262 : :
10263 : : str := 'abcde' but not ch := 'a'
10264 : : */
10265 : 3300 : if ((SymbolTable_GetType (src)) == M2Base_Char)
10266 : : {
10267 : : /* avoid dangling else. */
10268 : : /*
10269 : : * Create string from char and add nul to the end, nul is
10270 : : * added by BuildStringConstant. In modula-2 an array must
10271 : : * have at least one element.
10272 : : */
10273 : 192 : (*length) = m2expr_GetIntegerOne (location);
10274 : 192 : M2ALU_PushIntegerTree (FindSize (tokenno, src));
10275 : 192 : M2ALU_PushIntegerTree (FindSize (tokenno, destStrType));
10276 : 192 : if (M2ALU_Less (tokenno))
10277 : : {
10278 : : /* There is room for the extra <nul> character. */
10279 : 156 : (*length) = m2expr_BuildAdd (location, (*length), m2expr_GetIntegerOne (location), false);
10280 : : }
10281 : : }
10282 : : else
10283 : : {
10284 : 3108 : M2ALU_PushIntegerTree (FindSize (tokenno, src));
10285 : 3108 : M2ALU_PushIntegerTree (FindSize (tokenno, destStrType));
10286 : 3108 : if (M2ALU_Less (tokenno))
10287 : : {
10288 : : /* There is room for the extra <nul> character. */
10289 : 2940 : (*length) = m2expr_BuildAdd (location, FindSize (tokenno, src), m2expr_GetIntegerOne (location), false);
10290 : 2940 : (*srcTree) = SymbolConversion_Mod2Gcc (src);
10291 : : }
10292 : : else
10293 : : {
10294 : : /* We need to truncate the <nul> at least. */
10295 : 168 : (*length) = FindSize (tokenno, destStrType);
10296 : 168 : M2ALU_PushIntegerTree (FindSize (tokenno, src));
10297 : 168 : M2ALU_PushIntegerTree ((*length));
10298 : : /* Greater or Equal so return max characters in the array. */
10299 : 168 : if (M2ALU_Gre (tokenno))
10300 : : {
10301 : : /* Create a new string without non nul characters to be gimple safe.
10302 : : But return FALSE indicating an overflow. */
10303 : 12 : intLength = m2expr_GetCstInteger ((*length));
10304 : 12 : (*srcTree) = m2decl_BuildStringConstant (const_cast <const char * > (static_cast <char * > (NameKey_KeyToCharStar (SymbolTable_GetString (src)))), intLength);
10305 : 12 : (*srcTree) = m2convert_ConvertString (SymbolConversion_Mod2Gcc (destStrType), (*srcTree));
10306 : 12 : return false;
10307 : : }
10308 : : }
10309 : : }
10310 : 3288 : intLength = m2expr_GetCstInteger ((*length));
10311 : 3288 : (*srcTree) = m2decl_BuildStringConstant (const_cast <const char * > (static_cast <char * > (NameKey_KeyToCharStar (SymbolTable_GetString (src)))), intLength);
10312 : 3288 : (*srcTree) = m2convert_ConvertString (SymbolConversion_Mod2Gcc (destStrType), (*srcTree));
10313 : 3288 : return true;
10314 : : /* static analysis guarentees a RETURN statement will be used before here. */
10315 : : __builtin_unreachable ();
10316 : : }
10317 : :
10318 : 14232 : extern "C" void _M2_M2GenGCC_init (__attribute__((unused)) int argc, __attribute__((unused)) char *argv[], __attribute__((unused)) char *envp[])
10319 : : {
10320 : 14232 : Memset = SymbolTable_NulSym;
10321 : 14232 : Memcpy = SymbolTable_NulSym;
10322 : 14232 : UnboundedLabelNo = 0;
10323 : 14232 : CurrentQuadToken = 0;
10324 : 14232 : ScopeStack = M2StackWord_InitStackWord ();
10325 : 14232 : }
10326 : :
10327 : 0 : extern "C" void _M2_M2GenGCC_fini (__attribute__((unused)) int argc, __attribute__((unused)) char *argv[], __attribute__((unused)) char *envp[])
10328 : : {
10329 : 0 : }
|
