소스 검색

* wince support was added to lineinfo.

git-svn-id: trunk@969 -
yury 20 년 전
부모
커밋
7b03f03eff
1개의 변경된 파일7개의 추가작업 그리고 3개의 파일을 삭제
  1. 7 3
      rtl/inc/lineinfo.pp

+ 7 - 3
rtl/inc/lineinfo.pp

@@ -84,6 +84,10 @@ var
   {$endif}
   {$endif}
 {$endif}
 {$endif}
 
 
+{$if defined(win32) or defined(wince)}
+  {$define PE32}
+{$endif}
+
 {$ifdef netwlibc}
 {$ifdef netwlibc}
 {$define netware}
 {$define netware}
 {$endif}
 {$endif}
@@ -294,7 +298,7 @@ end;
 {$endif Go32v2}
 {$endif Go32v2}
 
 
 
 
-{$ifdef win32}
+{$ifdef PE32}
 function LoadPeCoff:boolean;
 function LoadPeCoff:boolean;
 type
 type
   tdosheader = packed record
   tdosheader = packed record
@@ -409,7 +413,7 @@ begin
    end;
    end;
   LoadPeCoff:=(stabofs<>-1) and (stabstrofs<>-1);
   LoadPeCoff:=(stabofs<>-1) and (stabstrofs<>-1);
 end;
 end;
-{$endif Win32}
+{$endif PE32}
 
 
 
 
 {$IFDEF EMX}
 {$IFDEF EMX}
@@ -911,7 +915,7 @@ begin
      exit;
      exit;
    end;
    end;
 {$ENDIF EMX}
 {$ENDIF EMX}
-{$ifdef win32}
+{$ifdef PE32}
   if LoadPECoff then
   if LoadPECoff then
    begin
    begin
      OpenStabs:=true;
      OpenStabs:=true;