Browse Source

Use $GOTO ON

pierre 25 years ago
parent
commit
35d59eeb52
6 changed files with 45 additions and 11 deletions
  1. 8 2
      compiler/cg68kadd.pas
  2. 7 2
      compiler/cg68kcal.pas
  3. 7 2
      compiler/cg68kflw.pas
  4. 7 1
      compiler/pass_2.pas
  5. 8 2
      compiler/pstatmnt.pas
  6. 8 2
      compiler/scanner.pas

+ 8 - 2
compiler/cg68kadd.pas

@@ -20,6 +20,9 @@
 
 
  ****************************************************************************
  ****************************************************************************
 }
 }
+{$ifdef FPC}
+  {$goto on}
+{$endif FPC}
 unit cg68kadd;
 unit cg68kadd;
 interface
 interface
 
 
@@ -1281,7 +1284,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.19  2000-02-09 13:22:48  peter
+  Revision 1.20  2000-03-01 00:04:31  pierre
+   Use $GOTO ON
+
+  Revision 1.19  2000/02/09 13:22:48  peter
     * log truncated
     * log truncated
 
 
   Revision 1.18  2000/01/07 01:14:21  peter
   Revision 1.18  2000/01/07 01:14:21  peter
@@ -1293,4 +1299,4 @@ end.
   Revision 1.16  1999/09/16 11:34:52  pierre
   Revision 1.16  1999/09/16 11:34:52  pierre
    * typo correction
    * typo correction
 
 
-}
+}

+ 7 - 2
compiler/cg68kcal.pas

@@ -20,6 +20,9 @@
 
 
  ****************************************************************************
  ****************************************************************************
 }
 }
+{$ifdef FPC}
+  {$goto on}
+{$endif FPC}
 unit cg68kcal;
 unit cg68kcal;
 interface
 interface
 
 
@@ -1067,7 +1070,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.24  2000-02-09 13:22:48  peter
+  Revision 1.25  2000-03-01 00:04:31  pierre
+   Use $GOTO ON
+
+  Revision 1.24  2000/02/09 13:22:48  peter
     * log truncated
     * log truncated
 
 
   Revision 1.23  2000/01/07 01:14:21  peter
   Revision 1.23  2000/01/07 01:14:21  peter
@@ -1094,4 +1100,3 @@ end.
    * typo correction
    * typo correction
 
 
 }
 }
-

+ 7 - 2
compiler/cg68kflw.pas

@@ -20,6 +20,9 @@
 
 
  ****************************************************************************
  ****************************************************************************
 }
 }
+{$ifdef FPC}
+  {$goto on}
+{$endif FPC}
 unit cg68kflw;
 unit cg68kflw;
 interface
 interface
 
 
@@ -770,7 +773,10 @@ do_jmp:
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.15  2000-02-09 13:22:49  peter
+  Revision 1.16  2000-03-01 00:04:31  pierre
+   Use $GOTO ON
+
+  Revision 1.15  2000/02/09 13:22:49  peter
     * log truncated
     * log truncated
 
 
   Revision 1.14  2000/01/07 01:14:22  peter
   Revision 1.14  2000/01/07 01:14:22  peter
@@ -798,4 +804,3 @@ end.
     * changed pai386, paippc and paiapha (same for tai*) to paicpu (taicpu)
     * changed pai386, paippc and paiapha (same for tai*) to paicpu (taicpu)
 
 
 }
 }
-

+ 7 - 1
compiler/pass_2.pas

@@ -20,6 +20,9 @@
 
 
  ****************************************************************************
  ****************************************************************************
 }
 }
+{$ifdef FPC}
+  {$goto on}
+{$endif FPC}
 {$ifdef TP}
 {$ifdef TP}
   {$E+,F+,N+}
   {$E+,F+,N+}
 {$endif}
 {$endif}
@@ -832,7 +835,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.58  2000-02-20 20:49:45  florian
+  Revision 1.59  2000-03-01 00:01:14  pierre
+   Use $GOTO ON
+
+  Revision 1.58  2000/02/20 20:49:45  florian
     * newcg is compiling
     * newcg is compiling
     * fixed the dup id problem reported by Paul Y.
     * fixed the dup id problem reported by Paul Y.
 
 

+ 8 - 2
compiler/pstatmnt.pas

@@ -20,6 +20,10 @@
 
 
  ****************************************************************************
  ****************************************************************************
 }
 }
+{$ifdef FPC}
+  {$goto on}
+{$endif FPC}
+
 unit pstatmnt;
 unit pstatmnt;
 
 
   interface
   interface
@@ -1345,7 +1349,10 @@ unit pstatmnt;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.122  2000-02-09 13:22:59  peter
+  Revision 1.123  2000-02-29 23:59:47  pierre
+   Use $GOTO ON
+
+  Revision 1.122  2000/02/09 13:22:59  peter
     * log truncated
     * log truncated
 
 
   Revision 1.121  2000/01/23 16:33:49  peter
   Revision 1.121  2000/01/23 16:33:49  peter
@@ -1421,4 +1428,3 @@ end.
     * m68k compiler is again compilable (only gas writer, no assembler reader)
     * m68k compiler is again compilable (only gas writer, no assembler reader)
 
 
 }
 }
-

+ 8 - 2
compiler/scanner.pas

@@ -24,6 +24,9 @@
   {$F+,N+,E+,R-}
   {$F+,N+,E+,R-}
 {$endif}
 {$endif}
 unit scanner;
 unit scanner;
+{$ifdef FPC}
+  {$goto on}
+{$endif FPC}
 
 
   interface
   interface
 
 
@@ -1785,7 +1788,10 @@ exit_label:
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.106  2000-02-28 17:23:57  daniel
+  Revision 1.107  2000-02-29 23:59:47  pierre
+   Use $GOTO ON
+
+  Revision 1.106  2000/02/28 17:23:57  daniel
   * Current work of symtable integration committed. The symtable can be
   * Current work of symtable integration committed. The symtable can be
     activated by defining 'newst', but doesn't compile yet. Changes in type
     activated by defining 'newst', but doesn't compile yet. Changes in type
     checking and oop are completed. What is left is to write a new
     checking and oop are completed. What is left is to write a new
@@ -1861,4 +1867,4 @@ end.
     * directives are allowed in (* *)
     * directives are allowed in (* *)
     * fixed parsing of (* between conditional code
     * fixed parsing of (* between conditional code
 
 
-}
+}