paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 04:48:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed win32 and go32v2 compilation

Browse Source 
git-svn-id: trunk@6600 -
This commit is contained in:
Jonas Maebe 2007-02-22 07:31:19 +00:00
parent b1fde7e52e
commit f7f295319f
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/cfileutils.pas
View File

@ -1045,16 +1045,18 @@ implementation
{$endif}
{$if defined(go32v2) or defined(watcom)}
var
hs : TCmdStr;
hs : shortstring;
{$endif}
begin
GetShortName:=n;
{$ifdef win32}
hs:=n+#0;
i:=Windows.GetShortPathName(@hs[1],@hs2[1],high(hs2));
if (i>0) and (i<=high(hs2)) then
{ may become longer in case of e.g. ".a" -> "a~1" or so }
setlength(hs2,length(hs)*2);
i:=Windows.GetShortPathName(@hs[1],@hs2[1],length(hs)*2);
if (i>0) and (i<=length(hs)*2) then
begin
hs2[0]:=chr(strlen(@hs2[1]));
setlength(hs2,strlen(@hs2[1]));
GetShortName:=hs2;
end;
{$endif}