Subversion Repositories pentevo

Rev

Blame | Last modification | View Log | Download | RSS feed | ?url?

  1. #ifndef _ASMIF_H
  2. #define _ASMIF_H
  3. /* asmif.h */
  4. /*****************************************************************************/
  5. /* SPDX-License-Identifier: GPL-2.0-only OR GPL-3.0-only                     */
  6. /*                                                                           */
  7. /* AS-Portierung                                                             */
  8. /*                                                                           */
  9. /* Befehle zur bedingten Assemblierung                                       */
  10. /*                                                                           */
  11. /* Historie: 15. 5.1996 Grundsteinlegung                                     */
  12. /*                                                                           */
  13. /*****************************************************************************/
  14.  
  15. typedef enum
  16. {
  17.   IfState_IFIF, IfState_IFELSE,
  18.   IfState_CASESWITCH, IfState_CASECASE, IfState_CASEELSE
  19. } tIfState;
  20.  
  21. typedef struct _TIfSave
  22. {
  23.   struct _TIfSave *Next;
  24.   Integer NestLevel;
  25.   Boolean SaveIfAsm;
  26.   TempResult SaveExpr;
  27.   tIfState State;
  28.   Boolean CaseFound;
  29.   LongInt StartLine;
  30. } TIfSave, *PIfSave;
  31.  
  32. extern Boolean IfAsm;
  33. extern PIfSave FirstIfSave;
  34.  
  35.  
  36. extern Boolean CodeIFs(void);
  37.  
  38. extern void AsmIFInit(void);
  39.  
  40. extern Integer SaveIFs(void);
  41.  
  42. extern void RestoreIFs(Integer Level);
  43.  
  44. extern Boolean IFListMask(void);
  45.  
  46. extern void asmif_init(void);
  47. #endif /* _ASMIF_H */
  48.