* * get it to compile with Delphi by Kovacs Attila Zoltan

compiler/gdb.pas

@@ -168,7 +168,8 @@ N_BINCL to N_EINCL
         Comment(V_Info,'count =  '+tostr(dbx_counter^));
         Comment(V_Info,'addr = '+tostr(longint(dbx_counter)));
 {$EndIf ExtDebugDbx }
-          for i:=0 to strlen(st) do
+          i:=0;
+          while i<=strlen(st) do
             begin
                if st[i] = '"' then
                  if do_count then exit
@@ -185,6 +186,7 @@ N_BINCL to N_EINCL
                         dec(i);
                      end;
                  end;
+               inc(i);
             end;
        end;
      end;
@@ -249,7 +251,10 @@ end.
 
 {
   $Log$
-  Revision 1.16  2000-05-11 09:40:11  pierre
+  Revision 1.17  2000-05-12 05:57:34  pierre
+   * * get it to compile with Delphi by Kovacs Attila Zoltan
+
+  Revision 1.16  2000/05/11 09:40:11  pierre
     * some DBX changes but it still does not work !
 
   Revision 1.15  2000/02/09 13:22:52  peter

compiler/globals.pas

@@ -37,8 +37,8 @@ unit globals;
       linux,
 {$endif}
 {$ifdef Delphi4}
-      dmisc,
       sysutils,
+      dmisc,
 {$else}
       strings,dos,
 {$endif}
@@ -1398,7 +1398,7 @@ implementation
            s:=strpas(hp);
            i:=pos('=',s);
            len:=strlen(hp);
-           if upper(copy(s,1,i-1))=upcase(envname) then
+           if upper(copy(s,1,i-1))=upper(envname) then
             begin
               GetMem(p2,len-length(envname));
               Move(hp[i],p2^,len-length(envname));
@@ -1568,7 +1568,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.61  2000-05-11 09:37:25  pierre
+  Revision 1.62  2000-05-12 05:55:04  pierre
+   * * get it to compile with Delphi by Kovacs Attila Zoltan
+
+  Revision 1.61  2000/05/11 09:37:25  pierre
    * do not use upcase for strings, reported by Kovacs Attila Zoltan
 
   Revision 1.60  2000/05/04 20:46:17  peter

compiler/ptconst.pas

@@ -34,6 +34,9 @@ unit ptconst;
   implementation
 
     uses
+{$ifdef Delphi}
+       sysutils,
+{$endif Delphi}
        globtype,systems,tokens,
        cobjects,globals,scanner,
        symconst,aasm,types,verbose,
@@ -797,7 +800,10 @@ unit ptconst;
 end.
 {
   $Log$
-  Revision 1.65  2000-05-11 09:15:15  pierre
+  Revision 1.66  2000-05-12 06:02:01  pierre
+   * * get it to compile with Delphi by Kovacs Attila Zoltan
+
+  Revision 1.65  2000/05/11 09:15:15  pierre
     + add a warning if a const string is longer than the
       length of the string type
 

compiler/symtable.pas

@@ -2838,6 +2838,8 @@ implementation
 {$endif Delphi}
 
    procedure InitSymtable;
+     var
+       token : ttoken;
      begin
 {$ifndef Delphi}
 {$ifdef TP}
@@ -2900,7 +2902,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.90  2000-05-11 09:40:12  pierre
+  Revision 1.91  2000-05-12 05:59:57  pierre
+   * * get it to compile with Delphi by Kovacs Attila Zoltan
+
+  Revision 1.90  2000/05/11 09:40:12  pierre
     * some DBX changes but it still does not work !
 
   Revision 1.89  2000/05/03 14:34:05  pierre