diff --git a/compiler/ldscript.pas b/compiler/ldscript.pas
index fd3d9e3a0c..ff91ee2e59 100644
--- a/compiler/ldscript.pas
+++ b/compiler/ldscript.pas
@@ -278,9 +278,9 @@ procedure TScriptLexer.nextToken;
       tkLSHIFT..tkEQ: inc(p,2);
       #32..#255: inc(p);
       tkIDENT,tkNUMBER:
-        setstring(curtokenstr,@data[start],p-start);
+        setstring(curtokenstr,PChar(@data[start]),p-start);
       tkLITERAL:
-        setstring(curtokenstr,@data[start+1],p-start-2);
+        setstring(curtokenstr,PChar(@data[start+1]),p-start-2);
     end;
     curpos:=p;
   end;
diff --git a/compiler/ogmap.pas b/compiler/ogmap.pas
index 559fdac49e..918e91d628 100644
--- a/compiler/ogmap.pas
+++ b/compiler/ogmap.pas
@@ -81,7 +81,7 @@ implementation
               end;
             tmp[i]:='x';
             tmp[i-1]:='0';
-            setstring(result,@tmp[i-1],high(tmp)+2-i);
+            setstring(result,PChar(@tmp[i-1]),high(tmp)+2-i);
           end;
       end;