* amiga fixes merged

compiler/globals.pas

@@ -77,7 +77,7 @@ interface
        maxlocalsize = high(smallint);
        { maximum number of paras in bytes before warning is emitted }
        maxparasize = high(word);
-       
+
 
     type
        pfileposinfo = ^tfileposinfo;
@@ -815,7 +815,13 @@ implementation
           begin
             CurrPath:=FixPath(FExpand(CurrPath),false);
             if (CurrentDir<>'') and (Copy(CurrPath,1,length(CurrentDir))=CurrentDir) then
-             CurrPath:='.'+source_info.DirSep+Copy(CurrPath,length(CurrentDir)+1,255);
+             begin
+{$ifdef AMIGA}
+               CurrPath:=Copy(CurrPath,length(CurrentDir)+1,255);
+{$else}
+               CurrPath:='.'+source_info.DirSep+Copy(CurrPath,length(CurrentDir)+1,255);
+{$endif}
+             end;
           end;
          { wildcard adding ? }
          if pos('*',currpath)>0 then
@@ -1130,6 +1136,11 @@ implementation
         {$ifdef ver1_0}Linux{$else}Unix{$endif}.Shell(command);
       end;
       {$else}
+      {$ifdef amiga}
+      begin
+        exec('',command);
+      end;
+      {$else}
       var
         comspec : string;
       begin
@@ -1137,6 +1148,7 @@ implementation
         Exec(comspec,' /C '+command);
       end;
       {$endif}
+      {$endif}
 
 
     Function SetCompileMode(const s:string; changeInit: boolean):boolean;
@@ -1521,7 +1533,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.76  2002-12-01 22:07:41  carl
+  Revision 1.77  2002-12-06 17:50:00  peter
+    * amiga fixes merged
+
+  Revision 1.76  2002/12/01 22:07:41  carl
     * warning of portabilitiy problems with parasize / localsize
     + some added documentation